{"id":55001561,"date":"2025-10-01T00:00:00","date_gmt":"2025-08-28T18:59:17","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1561"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Optimierter_Suchen_und_ErsetzenDialog_Funktionen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Optimierter_Suchen_und_ErsetzenDialog_Funktionen\/","title":{"rendered":"Optimierter „Suchen und Ersetzen“-Dialog: Funktionen"},"content":{"rendered":"

\"\"Im Beitrag „Besserer „Suchen und Ersetzen“-Dialog: Grundgerüst“ haben wir das Grundgerüst für einen Ersatz der eingebauten Suchen- und Ersetzen-Funktion von Access erstellt. Im vorliegenden Artikel wollen wir nun die Such- und Ersetzungsfunktionen mit Leben füllen. Dabei werden Sie nicht nur die begonnene Lösung vervollständigen, sondern auch noch Einiges über das VBA-gesteuerte Suchen und Ersetzen in Datenblättern lernen.<\/b><\/p>\n

Die Lösung aus dem oben genannten Beitrag bildet bisher die vollständige Benutzeroberfläche des eingebauten Suchen und Ersetzen<\/b>-Dialogs ab.<\/p>\n

Allerdings haben wir die eigentlichen Suchen- und Ersetzen-Funktionen noch nicht eingebaut. Das holen wir in diesem Beitrag nach.<\/p>\n

Dabei unterscheiden wir verschiedene Fälle, die wir in den folgenden Abschnitten im Detail beschreiben.<\/p>\n

Einfaches Weitersuchen in einem Feld<\/h2>\n

Der erste und einfachste Fall ist die Suche im aktuell markierten Feld (siehe Bild 1). Dazu enthält die Eigenschaft Suchen <\/b>den Wert Aktuelles Feld<\/b>. Vorher müssen wir uns allerdings noch um einige weitere Informationen kümmern.<\/p>\n

\"Erster<\/p>\n

Bild 1: Erster Fall: Suchen in einem einzelnen Feld<\/span><\/b><\/p>\n

Referenzieren des aktuellen Datenblatts<\/h2>\n

Wichtig ist für den Suchen und Ersetzen<\/b>-Dialog, dass wir einen Verweis auf das Datenblatt erhalten, das wir untersuchen wollen. Dazu führen wir in der Ereignisprozedur, die durch das Öffnen des Formulars frmSuchenUndErsetzen<\/b> ausgelöst wird, einige Aktionen aus (siehe Listing 1).<\/p>\n

Private Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n     Dim <\/span>strObjektname As String<\/span>\r\n     Set<\/span> objAktuellesDatenblatt = AktuelleDatenblattansichtObjekt\r\n     If <\/span>objAktuellesDatenblatt Is Nothing Then<\/span>\r\n         MsgBox<\/span> \"Suchen und Ersetzen steht nur für die Datenblattansicht zur Verfügung.\", vbOKOnly + vbExclamation, _\r\n             \"Keine Datenblattansicht aktiviert\"\r\n         Cancel = True<\/span>\r\n         Exit Sub<\/span>\r\n     Else<\/span>\r\n         Set<\/span> rstDatenblatt = objAktuellesDatenblatt.Recordset\r\n         Me.TimerInterval = 100\r\n     End If<\/span>\r\n     If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\r\n         If <\/span>Me.OpenArgs = \"Ersetzen\" Then<\/span>\r\n             bolErsetzen = True<\/span>\r\n         End If<\/span>\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Aktionen beim Öffnen des Formulars<\/span><\/b><\/p>\n
Die Prozedur ruft zuerst die Funktion AktuelleDatenblattansichtObjekt<\/b> auf. Diese sehen wir in Listing 2. Sie versucht, bei deaktivierter Fehlerbehandlung über Screen.ActiveDatasheet <\/b>auf das aktive Datasheet<\/b>-Objekt zuzugreifen. Das gelingt in vielen Fällen, aber zum Beispiel dann nicht, wenn sich das Datenblatt in einem Unterformular befindet. Dann liefert der Zugriff auf Screen.ActiveDatasheet <\/b>einen Fehler zurück.<\/p>\n
Public Function <\/span>AktuelleDatenblattansichtObjekt() As Object<\/span>\r\n     Dim <\/span>objAktuellesObjekt As Object<\/span>\r\n     On Error Resume Next<\/span>\r\n     Set<\/span> objAktuellesObjekt = Screen.ActiveDatasheet\r\n     On Error GoTo<\/span> 0\r\n     If <\/span>objAktuellesObjekt Is Nothing Then<\/span>\r\n         On Error Resume Next<\/span>\r\n         Set<\/span> objAktuellesObjekt = Screen.ActiveForm.ActiveControl\r\n         If <\/span>objAktuellesObjekt.CurrentView = acCurViewDatasheet Then<\/span>\r\n             Set<\/span> AktuelleDatenblattansichtObjekt = objAktuellesObjekt.Form\r\n             Exit Function<\/span>\r\n         End If<\/span>\r\n         On Error GoTo<\/span> 0\r\n     Else<\/span>\r\n         Set<\/span> AktuelleDatenblattansichtObjekt = objAktuellesObjekt\r\n     End If<\/span>\r\nEnd Function<\/span><\/pre>\n
Listing 2: Aktuelle Datenblattansicht holen<\/span><\/b><\/p>\n
Deshalb deaktivieren wir hier die Fehlerbehandlung und prüfen anschließend, ob objAktuellesObjekt <\/b>einen Wert enthält. Falls nicht, versuchen wir es auf einem anderen Weg. Wir versuchen, ebenfalls bei deaktivierter Fehlerbehandlung, mit Screen.ActiveForm.ActiveControl <\/b>einen Verweis auf das Unterformular zu erhalten und in objAktuellesObjekt <\/b>einzutragen. Wie gesagt: Datenblätter in Hauptformularen, Tabellen oder Abfragen liefert uns bereits Screen.ActiveDatasheet <\/b>das aktuelle Datenblatt.<\/p>\n
Die Funktion prüft dann, ob das aktive Steuerelement ein Datenblatt ist. Falls ja, liefert sie einen Verweis auf die Form<\/b>-Eigenschaft von objAktuellesObjekt <\/b>zurück.<\/p>\n
Die Prozedur Form_Open <\/b>schreibt das Ergebnis in die Variable objAktuellesDatenblatt<\/b>, das wie folgt im Kopf des Klassenmoduls des Formulars deklariert wird:<\/p>\n
Private <\/span>objAktuellesDatenblatt As Object<\/span><\/pre>\n
Dort deklarieren wir direkt auch noch:<\/p>\n
Private <\/span>rstDatenblatt As <\/span>DAO.Recordset<\/pre>\n
Wenn objAktuellesDatenblatt <\/b>nun leer ist, gibt Form_Open <\/b>eine Meldung aus, dass die Suchen und Ersetzen<\/b>-Funktion nur für die Datenblattansicht zur Verfügung steht.<\/p>\n
Danach wird die Prozedur mit Cancel = True <\/b>verlassen, sodass das Formular gar nicht erst angezeigt wird.<\/p>\n
Anderenfalls schreibt sie einen Verweis auf das Recordset in objAktuellesDatenblatt <\/b>in die Variable rstDatenblatt <\/b>und aktiviert einen Timer, der alle 100 Millisekunden feuern soll (es ginge vermutlich auch ein größeres Intervall). Diesen Timer schauen wir uns gleich an.<\/p>\n
Schließlich prüft die Prozedur noch das Öffnungsargument. Enthält dieses den Wert Ersetzen<\/b>, wird bolErsetzen <\/b>auf True <\/b>eingestellt. Dies sorgt später dafür, dass neben dem Suchen<\/b>– auch das Ersetzen<\/b>-Tab im Formular angezeigt wird.<\/p>\n
Die Prozedur, die durch das Ereignis Bei Zeitgeber <\/b>ausgelöst wird, prüft bei jedem Aufruf, ob das Datenblatt aus rstDatenblatt <\/b>noch vorhanden ist. Dazu greifen wir einfach auf die RecordCount<\/b>-Eigenschaft zu. Löst dies einen Fehler aus, sind das Recordset und somit wohl auch die Datenblattansicht, für die der Suchen und Ersetzen<\/b>-Dialog geöffnet wurde, wohl nicht mehr vorhanden:<\/p>\n
Private Sub <\/span>Form_Timer()\r\n     Dim <\/span>lngRecordcount As Long<\/span>\r\n     On Error Resume Next<\/span>\r\n     lngRecordcount = rstDatenblatt.RecordCount\r\n     If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n         On Error GoTo<\/span> 0\r\n         Me.TimerInterval = 0\r\n         DoCmd.Close acForm, Me.Name\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Einfachen Suchvorgang ausführen<\/h2>\n
Damit kommen wir zum eigentlichen Suchvorgang. Wir schauen uns zuerst einen einfachen Suchvorgang mit den Parametern aus Bild 2 an.<\/p>\n
\"Einfache<\/p>\n
Bild 2: Einfache Suche<\/span><\/b><\/p>\n
Ein Klick auf die Schaltfläche Weitersuchen<\/b> löst die Prozedur aus Listing 3 aus. Diese holt sich den Suchbegriff aus dem Kombinationsfeld cboSuchenNach <\/b>in die Variable txtSuchbegriff<\/b>. Wenn dieser eine Länge von 0 <\/b>hat, bricht sie die Prozedur ab.<\/p>\n
Private Sub <\/span>cmdWeitersuchen_Click()\r\n     Dim <\/span>strFeld As String<\/span>\r\n     Dim <\/span>strSuchbegriff As String<\/span>\r\n     Dim <\/span>strKriterium As String<\/span>\r\n     Dim <\/span>bolFound As Boolean<\/span>\r\n     Dim <\/span>strMeldung As String<\/span>\r\n     strSuchbegriff = Nz(Me.cboSuchenNach.Column(1), \"\")\r\n     If <\/span>Len<\/span>(strSuchbegriff) = 0 Then<\/span> Exit Sub<\/span>\r\n     Select Case Me.cboSuchenIn\r\n         Case <\/span>\"Aktuelles Feld\"\r\n             If <\/span>KriteriumAktuellesFeld(strSuchbegriff, strFeld) = True<\/span> Then<\/span>\r\n                 bolFound = False<\/span>\r\n                 Select Case Me.cboSuchen\r\n                     Case <\/span>\"Alle\"\r\n                         Call<\/span> SuchenDatensatz(bolFound, strKriterium, strFeld, strSuchbegriff)\r\n                     Case <\/span>\"Abwärts\"\r\n                         rstDatenblatt.FindNext<\/span> strKriterium\r\n                         If <\/span>rstDatenblatt.NoMatch Then<\/span>\r\n                             bolFound = False<\/span>\r\n                         Else<\/span>\r\n                             bolFound = True<\/span>\r\n                         End If<\/span>\r\n                     Case <\/span>\"Aufwärts\"\r\n                         rstDatenblatt.FindPrevious strKriterium\r\n                         If <\/span>rstDatenblatt.NoMatch Then<\/span>\r\n                             bolFound = False<\/span>\r\n                         Else<\/span>\r\n                             bolFound = True<\/span>\r\n                         End If<\/span>\r\n                 End Select    \r\n                 If <\/span>Not<\/span> bolFound Then<\/span>\r\n                     lngAbsolutePositionStart = -1\r\n                     MsgBox<\/span> \"Kein weiterer Eintrag gefunden.\"\r\n                 Else<\/span>\r\n                     Select Case Me.cboVergleichen\r\n                         Case <\/span>\"Teil des Feldinhalts\", \"Anfang des Feldinhalts\"\r\n                             Call<\/span> SuchbegriffMarkieren(objAktuellesDatenblatt.ActiveControl, Me.cboSuchenNach.Column(1))\r\n                     End Select<\/span>\r\n                 End If<\/span>\r\n             Else<\/span>\r\n                 MsgBox<\/span> strMeldung, vbExclamation + vbOKOnly, \"Suche nicht erfolgreich\"\r\n             End If<\/span>\r\n         Case <\/span>\"Aktuelles Dokument\"\r\n             MsgBox<\/span> \"Nicht implementiert.\"\r\n     End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 3: Code hinter der Schaltfläche Weitersuchen<\/span><\/b><\/p>\n
Anderenfalls erfolgt eine Unterscheidung nach dem Umfang der Suche, der mit dem Kombinationsfeld cboSuchenIn <\/b>festgelegt wird. Im Fall von Aktuelles Feld <\/b>beginnt der Teil, den wir hier beschreiben wollen.<\/p>\n
Es folgt ein Aufruf der Funktion KriteriumAktuellesFeld<\/b>, der als Ergebnis das Suchkriterium für die Suche liefern soll. Das ist recht aufwendig, da wir prüfen müssen, welchen Datentyp das Feld enthält, ob dieser zum eingegebenen Suchbegriff passt und so weiter – mehr dazu weiter unten. Wir gehen an dieser Stelle davon aus, dass wir zum Beispiel den Suchbegriff adi <\/b>eingegeben haben und als Kriterium mit dem Parameter strKriterium <\/b>den folgenden Ausdruck zurückerhalten:<\/p>\n
Vorname LIKE ''*adi*''<\/pre>\n
Dann wird die Variable bolFound <\/b>zunächst auf False <\/b>eingestellt. Nun prüfen wir den Inhalt von cboSuchen <\/b>und steuern abhängig davon einen der Case<\/b>-Zweige für Alle<\/b>, Abwärts<\/b> oder Aufwärts <\/b>an.<\/p>\n
Suchen nach allen Vorkommen im aktuellen Feld<\/h2>\n
Wenn der Benutzer Alle <\/b>gewählt hat, haben wir die umfangreichste Ausgabe vor uns. Während wir bei Abwärts oder Aufwärts einfach vom aktuellen Datensatz aus nach oben oder unten suchen können, müssen wir in diesem Fall vom aktuellen Datensatz aus nach unten suchen, dann oben neu beginnen und vor dem aktuellen Datensatz stoppen. Da dies ein wenig aufwendiger ist, haben wir diesen Teil in eine eigene Prozedur namens SuchenDatensatz <\/b>ausgelagert (siehe Listing 4).<\/p>\n
Private Sub <\/span>SuchenDatensatz(bolGefunden As Boolean<\/span>, strKriterium As String<\/span>)\r\n     Dim <\/span>bolStart As Boolean<\/span>\r\n     If <\/span>lngAbsolutePositionStart = -1 Then<\/span>\r\n         lngAbsolutePositionStart = rstDatenblatt.AbsolutePosition\r\n         bolVonVornGestartet = False<\/span>\r\n         bolStart = True<\/span>\r\n     Else<\/span>\r\n         If <\/span>Not<\/span> lngLetzteFundstelle = rstDatenblatt.AbsolutePosition Then<\/span>\r\n             lngAbsolutePositionStart = rstDatenblatt.AbsolutePosition\r\n             bolVonVornGestartet = False<\/span>\r\n         End If<\/span>\r\n     End If<\/span>\r\n     If <\/span>bolStart = True<\/span> Then<\/span>\r\n         rstDatenblatt.FindFirst strKriterium\r\n         bolStart = False<\/span>\r\n     Else<\/span>\r\n         rstDatenblatt.FindNext<\/span> strKriterium\r\n     End If    \r\n     If <\/span>rstDatenblatt.NoMatch = False<\/span> Then<\/span>\r\n         If <\/span>bolVonVornGestartet = True<\/span> Then<\/span>\r\n             If <\/span>rstDatenblatt.AbsolutePosition > lngAbsolutePositionStart Then<\/span>\r\n                 rstDatenblatt.AbsolutePosition = lngLetzteFundstelle\r\n                 bolGefunden = False<\/span>\r\n                 Exit Sub<\/span>\r\n             End If<\/span>\r\n         End If<\/span>\r\n         lngLetzteFundstelle = rstDatenblatt.AbsolutePosition\r\n         bolGefunden = True<\/span>\r\n         Exit Sub<\/span>\r\n     Else<\/span>\r\n         If <\/span>bolVonVornGestartet = False<\/span> Then<\/span>\r\n             bolVonVornGestartet = True<\/span>\r\n             rstDatenblatt.FindFirst strKriterium\r\n             If <\/span>rstDatenblatt.NoMatch = False<\/span> Then<\/span>\r\n                 If <\/span>rstDatenblatt.AbsolutePosition < lngAbsolutePositionStart Then<\/span>\r\n                     lngLetzteFundstelle = rstDatenblatt.AbsolutePosition\r\n                     bolGefunden = True<\/span>\r\n                     Exit Sub<\/span>\r\n                 Else<\/span>\r\n                     rstDatenblatt.AbsolutePosition = lngLetzteFundstelle\r\n                     bolGefunden = False<\/span>\r\n                     Exit Sub<\/span>\r\n                 End If<\/span>\r\n             End If<\/span>\r\n         Else<\/span>\r\n             bolGefunden = False<\/span>\r\n             Exit Sub<\/span>\r\n         End If<\/span>\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 4: Code zum Suchen nach einem Datensatz<\/span><\/b><\/p>\n
Dieser übergeben wir verschiedene Parameter, die zum größten Teil auch als Rückgabeparameter dienen:<\/p>\n