Wie kann man eine Abfrage per VBA definieren?

Manchmal ist es notwendig, flexible Abfrage zu generieren. Zum Beispiel könnte man als Reaktion auf das Ausfüllen eines Formulars die Abfrage entsprechend ändern.

Dazu kann man im VBA-Script ein SQL-SELECT-Kommando in die Abfrage schreiben.


Dim db As Database
Dim STR As String
Dim Abfrage As QueryDef

Set db = CurrentDb()
Set Abfrage = db.QueryDefs("Name der Abfrage")

STR = "SELECT DISTINCTROW anrede, titel, nachname, vorname FROM PERSONEN WHERE ..."
Abfrage.SQL = STR
Abfrage.Execute
    
Set db = Nothing
Set Abfrage = Nothing

-- KerstinSchiebel - 10 Dec 2007
Topic revision: r2 - 2007-12-10, KerstinSchiebel
 
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding GSI Wiki? Send feedback
Imprint (in German)
Privacy Policy (in German)