Hallo,
in einem Listenfeld ist die Datenherkunft eine Abfrage.
Beim klicken eines Buttons wird das Listen requeried.
Dadurch wird also die Abfrage gestartet und die Ergebnisse angezeigt.
Wenn das Feld leer ist, also kein Ergebnis zurückgekommen ist, soll eine MsgBox erscheinen die einen Fehler bringt.
Die Box kommt allerdings nie oder immer, je nach meiner Lösungsvariante :
Private Sub Befehl39_Click() '****Benutzer suchen****
Me.Liste59.Requery
If IsNull(Me.Liste59) = True Then
'Me.Liste59.Value = "" Then
MsgBox "Es existiert kein von Ihnen gesuchter Benutzer"
Else
'Me.frm_sub_1.Requery *****Vorheriges Unterformular****
End If
Me.Liste59.Visible = True
End Sub
Weiss da jemand was ich falsch mache ?
Gruss,
Lars |