Office: (Office 2016) VBA Tabelle als Parameter eingeben

Hallo ich möchte in VBA, ganz simple abfrage "Select * FROM Tabellenname"
jedoch den Tabellennamen als parameter übergeben können.

Also ich hab ein Formular erstellt wo ein Button vorhanden ist und wenn man den drückt läuft das VBA code jedoch weiss ich nicht wie ich den Tabellennamen als parameter übergeben kann.

:)

 

Hallo,
so:
Code:

 

Das im wörtlichen Sinne ist nicht vorgesehen und somit nicht umsetzbar.
Man kann aber wie gezeigt die Abfragedefinition per VBA ändern.

 

Danke für die schnellen antworten.
Ich bin neu in VBA, was heißt "Man kann aber wie gezeigt die Abfragedefinition per VBA ändern." ???

mein code war bis her so, wenn ich im Formular den Button drücke sollte dieser folgende VBA code ausgelöst werden

Dim qdf As QueryDef, sqltext

sqltext = "Select * FROM [TABELLENAMEN]"
For Each qdf In CurrentDb.QueryDefs
If qdf.Name = "tmp" Then
DoCmd.Close acQuery, "tmp": DoCmd.DeleteObject acQuery, "tmp"
End If
Next
Set qdf = CurrentDb.CreateQueryDef("tmp", sqltext)
DoCmd.OpenQuery qdf.Name

sollte ich jetzt anstatt "Select * FROM [TABELLENAMEN]",
"Select * FROM '" & Me.FormularfeldMitTabellenname &"'"
eingeben ???
habe das gemacht, aber hat nicht funktioniert.

Ach und der Button ist eine SCHALTFLÄCHE was ich da benutzt habe.

 

Guckst Du einen Beitrag zuvor? Die Hochkommata sind natürlich falsch => weglassen.

Abfragedefinition:
Code:

Das ist nicht nur ein Name für das Objekt gespeicherte Abfrage, der Name aus der Übersetzung ist Programm.

Kleiner Tipp: Wenn man irgendwelche Zeichenketten zusammensetzt - eine SQL-Anweisung ist vor Ausführung nichts anderes - ist es sehr hilfreich zu wissen, was dabei herauskommen soll, wie also die korrekte Syntax der Anweisung lautet. Mit diesem Ziel kann man nun das Ergebnis seines Tuns vergleichen und entsprechende Korrekturen vornehmen, falls nötig.

Hier würde die Syntax dieser überaus komplexen Abfrage lauten
Code:

 

also wenn ich die Hochkommata weglasse kommt Kompilerfehler.

der code ist so:

Dim qdf As QueryDef, sqltext

sqltext = "Select * FROM " & Me.FormularfeldMitTabellenname & ""
For Each qdf In CurrentDb.QueryDefs
If qdf.Name = "tmp" Then
DoCmd.Close acQuery, "tmp": DoCmd.DeleteObject acQuery, "tmp"
End If
Next
Set qdf = CurrentDb.CreateQueryDef("tmp", sqltext)
DoCmd.OpenQuery qdf.Name

ich dachte das
"& Me.FormularfeldMitTabellenname &"
eine Funktion ist der den Benutzer nach einer Eingabe fragt

 

Ein Formularfeld wird Dich nie eigenständig nach einer Eingabe fragen, es sei denn, diese Rückfrage (hoffentliich vor Verwendung für die Manipulation der Abfrage) wurde explizit programmiert, wäre also vorhanden und würde auch aufgerufen.

Nun, vielleicht solltest Du Dich verstärkt mit Grundlagen beschäftigen, um dem Denken eine vernünftige Basis zu geben. Ein Formularfeld ist sicher keine Funktion (lasse das niemanden hören).

 

Ich habe nur den Code da oben, also nix explizit programmiert.

Was soll denn aber nun den Benutzer nach einer Eingabe auffordern ?

ich meine wenn ich hier schreibe das ich neuling in VBA bin und man mir nur

Hallo,
so:
Code:

"Select * FROM '" & Me.FormularfeldMitTabellenname &"'"

schreibt, weis man natürlich am anfang nichts damit anzufangen.

 

\@blabuduwnmdjdsjajsus
Was hast du denn an "weglassen" nicht verstanden?
Code:

edit:
Ach ja, dieses

kann man durch Ausgabe der Variablen "sqltext" mit
Code:

im Direktfenster versuchen, oder mit diesem Tool, welches dir auch gleich
die passende Fehlermeldung anzeigt, und weitere Möglichkeiten des Testens
anbietet.

gruss ekkehard

 

Hallo und Danke ekkehard,
also ich hab das jetzt anders gelöst, habe ein textfeld in das Formular mit eingefügt und im Code den Wert der in diesem textfeld steht mit in den SQL befehl eingebaut. also was man da nun reinschreibt als tabellenname diese tabelle wird dann angezeigt.

Danke dir aber sehr