Hallo,
ich habe ein Formular programmiert dessen Datenherkunft eine Parameterabfrage ist.
Beim öffnen des Formulars wird also der Parameterwert eingegeben und die Ergebnisse in einem Listenfeld angezeigt.
Ich möchte, dass wenn die Liste leer ist, dass dann das Listenfeld ausgeblendet wird und das darunter liegende Textfeld sichtbar wird mit dem Hinweis "Keien Daten gefunden".
Das Listenfeld heißt "suchhilfe_lieferanten"
Darunter ist ein Textfeld (Text2) das die Anzahl der Treffer aus der Liste anzeigt.
Folgenden Code hatte ich mir überlegt:
Private Sub suchhilfe_lieferanten_AfterUpdate()
If Me.Count.Text2 = 0 Then
Me.suchhilfe_lieferanten.Visible = False
End If
End If
End Sub
Leider funktioniert der Code in der Form nicht. Weis jemand wo der Fehler liegt? Würde mich über eine Hilfestellung bzw. einen Tipp sehr freuen. Danke im Voraus!
LG Stephan alias sandmannbln
|