Kriterium in Abfrage:
Wie „*“ & [forms].[frmsuche].[suchtext] & „*“
Diese teil liest alles aus, was irgendwie der Zeichenfollge in der form frmsuche im feld suchtext eingegeben wurde.
Suchtext ist eine Textbox, Suchliste eine Listbox
Option Compare Database
Private Sub suchliste_Click()
i = Me.suchliste
If Me.tbParameter.Value = „0“ Then
DoCmd.Close
Forms.frmBasisdaten.IDK.SetFocus
DoCmd.FindRecord i
Exit Sub
End If
If Me.tbParameter.Value = „1“ Then
Dim stDocName As String
Dim stLinkCriteria As String
B = Me.suchliste.Column(2)
stDocName = „frmAuftragDetail“
stLinkCriteria = „[IDAuftrag]=“ & i 'Me.suchtext.Value
DoCmd.Close
Forms.frmBasisdaten.IDK.SetFocus
DoCmd.FindRecord B
DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.OpenForm stDocName
'Forms.frmAuftragDetail.IDAuftragsnummer.SetFocus
DoCmd.FindRecord i
Exit Sub
End If
End Sub
Private Sub suchtext_AfterUpdate()
Me.Requery
Me.Refresh
End Sub