Hallo,

was willst Du genau machen ?? Einen betimmten Datensatz suchen oder eine gewisse Menge von Datensätzen nach Kriterien herausfiltern ??

Gruß
Gudrun

Hi Gudrun,

ich will einen bestimmten Datensatz [txtSuchwort] suchen und natürlich, da Begriffe mehrfach vorkommen, auch weitersuchen. Es klappt zwar mit "Suchen Datensatz" und "Suchen Weiter" aus den auszuwählenden Makrobefehlen sehr gut - aber ich kann nur den Fokus auf ein Steuerelement setzen (zumindest schaffe ich es nicht andes bisher) und nicht gleichzeitig/nacheinander auf die genannten Drei: Dokumentenname;Registertext;Dokumentenbezeichnung. Der Cursor springt immer nur in den Datensätzen von einem Steuerelement zum gefundenen Datensatz.

Hast Du dazu einen Tipp??

Gruß
Stefan

Hallo Stefan,

theoretisch müsste es reichen, wenn du in deinem Makro die Eigenschaft "Nur aktuelles Feld" auf "Nein" stellst, dann würden neben den drei geforderten Felder alle restlichen aber ebenso durchsucht werden.

Wenn du nichts gegen VBA-Code hast, dann solltest du das hier ausprobieren:

Private Sub txtSuchwort_AfterUpdate()
	Dim strFilter As String
	
	With Me
		If Not IsNull(.txtSuchwort) Then
			strFilter = "[Ordnername] LIKE '" & .txtSuchwort & "' OR " & _
						"[Registertext] LIKE '" & .txtSuchwort & "' OR " & _
						"[Dokumentenbezeichnung] LIKE '" & .txtSuchwort & "'"
						
			.Filter = strFilter
			.FilterOn = True
		Else
			.FilterOn = False
		End If
	End With
End Sub

Wähle in den Eigenschaften des Suchfeldes unter "Nach Aktualisierung" den Eintrag "[Ereignisprozedur] aus und klicke dahinter auf "...". Füge dann den obigen Code ein.

Dieses Beispiel durchsucht gleichzeitig alle drei von dir genannten Felder. Um den Filter später wieder zu entfernen reicht es, wenn du dann den Inhalt des Suchfeldes wieder entfernst. Dank des LIKE-Operators kannst du dann auch nach Teilen von Wörtern suchen, so findet "*a*" alle Begriffe, in denen ein "a" vorkommt. :-)

Gruß
erik

Hi Erik,


Das habe ich versucht, aber es führte zu keinem Ergebnis, kein Datensatz wurde als gefunden markiert.

Ich werde morgen deinen Vorschlag ausprobieren und teile dann das Ergebnis an dieser Selle mit - bis dahin viele Dank!

Stefan