Hallo,

ich hoffe es findet sich eine Lösung.

Mein Problem:

Ich habe ein Formular, das beim Start mit Daten gefüllt wird.

Ich möchte jetzt ein Suchfeld und einen Button haben.

Jedesmal wenn der Button "weiter Suchen" geklickt wird, soll im Formular im detailbereich auf den nächsten Datensatz (oder das Feld) gesprungen werden, der mindestens einen Teil des Suchfelds in irgendeiner Spalte enthällt.

Ich möchte die Datensätze nicht filtern. Die sollen alle weiterhin angezeigt werden.(sind schon gefiltert).

Schön wäre es wenn schon bei der Eingabe des Suchtextes die Suche starten würde.

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.