Hallo, da ich nach längerer Recherche zu keiner Lösung gekommen bin, dachte ich, ich frage mal hier nach. Meine VBA bzw. SQL Kenntnisse sind eher rudimentär.
Ich soll in vba mehrere einzelne SQL-Abfragen zusammenführen, damit man sich einen Haufen Klickerei bei der Bearbeitung einer Datenbank in Access sparen kann. Die SQL abfragen habe ich in vba einfach mit DoCmd.RunSQL aneinandergereiht und das funktioniert soweit. Der Clue an der ganzen Sache ist allerdings dass mehrere Datenbanken bearbeitet werden sollen in denen die im Code erwähnten Namen der Tabellen in Teilen anders sind.
Wäre es möglich nun z.B. mit einer vba Inputbox den Namen einer Tabelle einzugeben sodass dieser Name dann in den SQL-Code übertragen wird?
Hätte mir das in etwa nach folgendem Schema vorgestellt, aber ich weiß leider nicht wie ich die Variable vom VBA Teil in den SQL Code bekomme.
Sub inputtest()
Dim TESTValue As Variant
Dim SQL As String
TESTValue = InputBox("Was für ein Tabellentyp wird bearbeitet?")
SQL = "SELECT Tabelle1.* INTO TESTValue" & _
" FROM Tabelle1" & _
" WHERE Wert='12345'"
DoCmd.RunSQL SQL
End Sub
|