H
Heuriger
Gast
Moin.
Per SetFocus möchte ich etwas in einer Tabelle anhand einer ID etwas suchen.
Das klappt auch. Soweit so gut.
Allerdings möchte ich jetzt ein paar Sachen hinzufügen:
- der gesuchte Datensatz soll Rot markiert werden (über Hintergrundfarbe oder Schriftfarbe)
- es soll eine Meldung kommen, wenn der Datensatz nicht vorhanden ist
Danke für eure Bemühungen
Sonnige Grüße
#push
Keiner eine Idee?
Per SetFocus möchte ich etwas in einer Tabelle anhand einer ID etwas suchen.
Das klappt auch. Soweit so gut.
Allerdings möchte ich jetzt ein paar Sachen hinzufügen:
- der gesuchte Datensatz soll Rot markiert werden (über Hintergrundfarbe oder Schriftfarbe)
- es soll eine Meldung kommen, wenn der Datensatz nicht vorhanden ist
Private Sub Suchfeld_AfterUpdate()
If Me!Suchfeld <> " " Then
ID.SetFocus
DoCmd.FindRecord Me![Suchfeld]
Else
MsgBox "Suchfeld ist leer!!!"
End If
End Sub
Danke für eure Bemühungen
Sonnige Grüße
#push
Keiner eine Idee?
Zuletzt bearbeitet von einem Moderator: