• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Foutmelding bij openen Userform

Status
Niet open voor verdere reacties.
J

jodelo

Gebruiker
Lid geworden
13 sep 2007
Berichten
87
Hallo beste helpers,

Ik ben bezig om een reserveringsformulier te maken via een tutorial op internet.
Alles lukt prima tot op het moment dat ik de vba code in het formulier invul.
Na invulling van de code krijg ik een foutmelding dat er een object nodig is.

Voor invulling van de code opent het formulier zich gewoon.
Wat kan er fout zijn, ik weet het niet meer maar ben dan ook een rookie wat betreft VBA.
Elke hulp is welkom. Groeten Jo

Alvast bedanktBekijk bijlage Reservering.xlsm
 
Hij loopt vast op het vullen van je combobox en Listbox!

Code: 
'Fill CityListBox
CityListBox.List = Array("Roermond", "Venlo", "Weert")

Code: 
DinnerComboBox.List = Array("Italiaans", "Duits", "Frites en Vlees")

Als je dit hebt gewijzigd zal hij een foutmelding geven omdat je bij Moneytextbox het getal 1 bent vergeten. !!! Meerdere keren !!!

Gr.

Sjon
 
Laatst bewerkt:
Je gebruikt in je code MoneyTextBox maar de betreffende TextBox heb je de naam MoneyTextBox1 gegeven. Verander bij eigenschappen de textbox
 
gast0660 zei:
Je gebruikt in je code MoneyTextBox maar de betreffende TextBox heb je de naam MoneyTextBox1 gegeven. Verander bij eigenschappen de textbox
Klik om te vergroten...

Hallo gast0660:

Ik heb dit gewijzigd maar de foutmelding blijft hetzelfde. Hij blijft verwijzen naar een niet bestaand object.
 
Heb je mijn opmerking gelezen en de wijzigingen uitgevoerd?

Zo ja, waar valt hij dan nu op uit? Bij het aanpassen van de moneytextbox naar moneytextbox1 in de code deed hij het prima.
 
Laatst bewerkt:
SjonR zei:
Hij loopt vast op het vullen van je combobox en Listbox!

Code: 
'Fill CityListBox
CityListBox.List = Array("Roermond", "Venlo", "Weert")

Code: 
DinnerComboBox.List = Array("Italiaans", "Duits", "Frites en Vlees")


Als je dit hebt gewijzigd zal hij een foutmelding geven omdat je bij Moneytextbox het getal 1 bent vergeten. !!! Meerdere keren !!!

Gr.

Sjon
Klik om te vergroten...

Hoi Sjon:

Ik begrijp niet precies wat je bedoelt met "omdat je bij Moneytextbox het getal 1 bent vergeten. !!! Meerdere keren !!!"
Kun je dat eens uitleggen want ik snap nog niet erg veel van het VBA gebeuren.
 
Laatst bewerkt:
SjonR zei:
Heb je mijn opmerking gelezen en de wijzigingen uitgevoerd?

Zo ja, waar valt hij dan nu op uit? Bij het aanpassen van de moneytextbox naar moneytextbox1 in de code deed hij het prima.
Klik om te vergroten...

Ik heb de 1 weggehaald maar de fout blijft hetzelfde (fout 424 tijdens uitvoering: object vereist)
 
Wil je svp niet quoten?

Er gaat nog veel meer fout. Waarom zit de datum in de caption van een checkbox?

Mijn voorkeur
Code: 
Private Sub UserForm_Initialize()
  CityListBox.List = Array("Roermond", "Venlo", "Weert")
  DinnerComboBox.List = Array("Italiaans", "Duits", "Frites en Vlees")
  CarOptionButton2.Value = True
  For j = 1 To 3
    Me.Controls("Label" & j + 6) = Me.Controls("DateCheckBox" & j).Caption
  Next j
End Sub

Code: 
Private Sub ClearButton_Click()
For Each it In Me.Controls
  Select Case TypeName(it)
    Case "TextBox"
      it.Value = ""
    Case "ListBox"
      it.ListIndex = -1
    Case "CheckBox"
      it.Value = False
    Case "ComboBox"
      it.ListIndex = -1
  End Select
Next
CarOptionButton2.Value = True
End Sub

Code: 
Private Sub OKButton_Click()
For j = 1 To 3
  c00 = c00 & IIf(Me.Controls("DateCheckBox" & j), Me.Controls("Label" & j + 6) & " ", "")
Next j
Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6) = Array(NameTextBox, PhoneTextBox, CityListBox, DinnerComboBox, Trim(c00), IIf(CarOptionButton1, "Ja", "Nee"))
End Sub
 
Laatst bewerkt:
SjonR zei:
Hij loopt vast op het vullen van je combobox en Listbox!

Code: 
'Fill CityListBox
CityListBox.List = Array("Roermond", "Venlo", "Weert")

Code: 
DinnerComboBox.List = Array("Italiaans", "Duits", "Frites en Vlees")

Als je dit hebt gewijzigd zal hij een foutmelding geven omdat je bij Moneytextbox het getal 1 bent vergeten. !!! Meerdere keren !!!

Gr.

Sjon
Klik om te vergroten...

Sjon
Ik heb de code gewijzigd en de boxen vullen zich nu met de gegevens.
Krijg echter bij het opslaan een Compileerfout, Sub of Function is niet gedefinieerd.

Gr Jo
 
Sorry voor het quoten

Wist niet dat dit niet op prijs wordt gesteld, sorry hiervoor.

Vena, de code van jou werkt op een ding na, de prijs wordt niet opgeslagen.
De rest werkt perfect.

Update: ook de prijs heb ik nu zichtbaar bij het opslaan.
Waar ik nu nog tegenaan loop is dat hij het sheet begint te vullen vanaf rij 5 onder de kolomkoppen.
Hoe kan ik deze laten beginnen direct onder de kolomkoppen.

gr. Jo
 
Laatst bewerkt:
Waarschijnlijk heb je iets (een spatie) in A4 staan of je hebt een tabel (listobject) in het bestand staan. Plaats anders even een representatief voorbeeldbestandje.
 
Hoi Vena:

Ik heb het probleem opgelost. Met behulp van jou code kwam ik al een heel stuk.
Heb alleen de verwijzing naar de MoneyTextBox toegevoegd en toen werkte het.
In ieder geval bedankt allemaal voor de hulp.

Groeten Jo
 
mijn voorkeur.
Code: 
for each it in controls

Code: 
Case "ListBox", "ComboBox"
      it.ListIndex = -1

Code: 
 Me("Label" & j + 6) = Me("DateCheckBox" & j).Caption
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan