ich habe ein Base-Formuler zusammengestellt über eine Kundentabelle (Name, Vorname) und über eine parameterisierte Abfrage kann ich gezielt alle Datensätze mit Nachnamen bsp. beginnend mit "la" und mit allen Vornamen beginnend bsp. "j" anzeigen lassen. Dazu verwende ich eine Zwischentabelle "Filtertabelle" mit den beiden Feldern "F_Nachname" und "F_Vorname" und exakt einem leeren Datensatz.
Das klappt auch soweit, nur dass jedes Mal in "Filtertabelle" die Parameter hinzugfügt werden und beim nächsten Öffnen des Formulars mit eingelesen werden.
Ich versuche jetzt ein Makro zu schreiben, das ein UPDATE auf diese Tabelle macht, wenn das Button-Ereignis "Bei Fokusverlust" eintritt.
Code: Alles auswählen
Sub update_filter(event)
DIM oForm AS OBJECT
DIM oConnection AS OBJECT
DIM SQL_Statement AS OBJECT
DIM sSQL AS STRING
oForm = event.source.model.parent
oConnection = oForm.activeconnection
SQL_Statement = oConnection.CreateStatement
sSQL = "UPDATE ""Filtertabelle"" SET ""F_Nachname"" = '', ""F_Vorname"" = ''"
SQL_Statement.executeUpdate(sSQL)
oForm.reload
end Sub
Grüße
Wambui