#############################################
auch Hallo,
ich nehme an, daß es sich um ein einspaltiges Formular handelt d.h. ein Datensatz wird jeweils im Formular gezeigt.
Hier legen Sie ein ungebundenes Feld an, daß sich auf eine Frage bezieht.
Dieses Feld benennen Sie srch_Name
Im Ereignis-Code geben Sie After Update folgendes ein:
Private Sub srch_name_AfterUpdate()
On Error GoTo Err_srch_name_Click
DoCmd.ApplyFilter , „[Fam_Name] = „““ & srch_name.Column(0) & „“"" & _
" AND [Vorname] = „“" & srch_name.Column(1) & „“""
Exit_srch_name_Click:
Exit Sub
Err_srch_name_Click:
MsgBox „Name nicht gefunden. Name noch einmal im Suchfeld eingeben !“
'MsgBox Err.Description
Resume Exit_srch_name_Click
End Sub
Wenn Sie nun in diesem Suchfeld einen Namen eingeben,
werden alle mit den beginnenden Buchstaben gefundenen Namen angezeigt. Danach können Sie den Satz löschen.
… und nun viel Spaß