Hallo,
ich habe jetzt selbst eine Lösung gebastelt.
für alle die das intressiert.
man benötigt ein textfeld für die Eingabe und einen button.
hier der Code im klickereignis:
Dim suchtext, abfragetext As String
Static Rowindex As Long
suchtext = Me.fld_Suche.Value
If Rowindex > 0 And Rowindex = Me.Recordset.AbsolutePosition Then
Me.Recordset.MoveNext
End If
If Me.Recordset.BOF Then
Me.Recordset.MoveFirst
End If
If Me.Recordset.EOF Then
Me.Recordset.MoveFirst
End If
Do While Not Me.Recordset.EOF
abfragetext = Nz(Me.Recordset!AUFTRNR, 0)
If InStr(abfragetext, suchtext) > 0 Then
Rowindex = Me.Recordset.AbsolutePosition
Me!AUFTRNR.SetFocus
'Me.Recordset.MoveNext
Exit Do
End If
abfragetext = Nz(Me.Recordset!STATUSTEXT, 0)
If InStr(abfragetext, suchtext) > 0 Then
Rowindex = Me.Recordset.AbsolutePosition
Me!STATUSTEXT.SetFocus
'Me.Recordset.MoveNext
Exit Do
End If
Me.Recordset.MoveNext
Loop
vieleicht gibt es ja auch noch eine bessere Lösung, aber das funktioniert schon mal ganz gut.