Office: (Office 2003) Abfrage per VBA erstellen?

Hallo.
Ich habe mehrere Tabellen in meiner Datenbank. Für jede dieser Tabellen möchte ich gerne Abfrageobjekte haben, die alle Felder der Tabelle enthalten. Ein Feld soll dabei als Kriterium dienen (eine Seirennummer), welche Datensätze alle angezeigt werden sollen.
Nun kann es sein, dass Tabellen hinzukommen oder wegfallen, deshalb wollte ich nicht für jede Tabelle eine Abfrage von Hand erstellen, sondern dynamisch über einen Button per VBA erstellen. Das Seriennummerfeld exisitiert in jeder Tabelle.
Welche Möglichkeiten gibt es da, wenn ich mir die Tabellennamen meiner Datenbank bereits aufgelistet habe?

Danke.

:)

 

Liste Dir in einem Formular in einem Listenfeld alle Tabellenamen auf (das hast Du offenbar schon).
Erstelle eine Button
Im onClick-Ereignis des Buttons wird das SQL-Statement erstellt:
strSQL = "SELECT * FROM '" & Me!DeinListenFeld & "' WHERE DeinKriterium;"
Diese Variable wird an eine QueryDef-Anweisung (s. OnlineHilfe) weitergereicht um eine neue Abfrage (wie soll die heissen? -> ggf. InputBox um den User zu fragen) zu erstellen.

 

Also so richtig bekomme ich es nicht hin.
Sagen wir ich habe eine Tabelle "Tabelle" mit den Feldern "Nummer", "Name" und "Zusatz". Und nun will ich eine Abfrage haben, die mir alle Datensätze der Tabelle anzeigt, bei der Nummer = 3 ist. Die Abfrage soll einfach mal "Abfrage" heißen.

WIe muss ich da anfangen?

Code:

das funktioniert ja so nicht und so richtig weiter weiß ich auch nicht.

 

Sieh Dir mal in der KnowHow von Klaus Oberdalhoff (ein Standardwerk, das man kennen muss), das Beispiel frmSearch an.

 

Wieso, das ist doch schon ganz prima.

Jetzt musst Du nur noch in dem strSql-String die variablen Felder/Klauseln einpacken - siehe Thread #2

z.Bsp.:
Code:

LG
Jan

 

Sorry, ich denke Du musst hier die beiden Hochkommata neben ..DeinTabellenname... rausnehmen!
War noch gedanklich beim SQL-Server...:-((

Jan

 

Ja das mit den Hochkomma war bei mri auch der Fehler... Vielen Dank für eure Hilfe, es funktioniert.