listbox mag niet leeg zijn

[Eddy Maas]

Misschien kan iemand mij verder helpen......

Heb een form waar in listbox in staat die aan een tebel gekoppeld zit. De persoon die moet een selectie maken uit de lijst die in de listbox zit, echter als je met de tab / enter toets langs de velden heen gaat en dus ook de listbox passeert mag deze list box niet leeg zijn voor het record word weggeschreven. Ik heb diverse zaken geprobeert met de volgende code :

If Keuzelijst_met_invoervak135 Is Null Then
MsgBox "Een medewerker moet geselecteerd worden"
Me.Keuzelijst_met_invoervak135.SetFocus

End If
en ik heb ze gebruikt bij diverse gebeurtenissen zoals voor bijwerken / na bijwerken / na focus verloren etc.
Maar zonder resultaat. Wie kan mij helpen .........

alvast bedankt,

Eddy

 

[vanzwam]

Probeer het eens zo


If IsNull([Keuzelijst_met_invoervak135] OR [Keuzelijst_met_invoervak135]) = " " Then
MsgBox "Een medewerker moet geselecteerd worden"
Me.Keuzelijst_met_invoervak135.SetFocus

End If

Zet dit "na update"

 

[Eddy Maas]

Helaas rudi,

Ook hierbij geeft acces geen foutmelding dat niets geselecteerd is en gaat gewoon door. Nog een idee ?

gr

eddy

 

[maartenf]

Probeer het eens zo


If IsNull(me.[Keuzelijst_met_invoervak135] OR me.[Keuzelijst_met_invoervak135]) = " " Then
MsgBox "Een medewerker moet geselecteerd worden"
Me.Keuzelijst_met_invoervak135.SetFocus

End If

Zet dit "na update"

als dit ook niet werkt, plaats dan even een zip.bestandje

 

[Eddy Maas]

Ik heb het opgrlost echter de code moet bij verlaten staan.


bedankt,

eddy