Supportnet / Forum / Datenbanken
Tabellenerstellungsabfrage mit Variablem Namen
Frage
Access 2000
Hallo,
ich habe eine Tab.erst.abfr. Leider muss ich beim erstellen schon den Namen der zukünftigen tabelle angeben. Das ist aber Mist, kann ich statt eines festen Namens irgendwie den Inhalt eines Formularfeldes angeben ?? Also das ganze Variabel lassen??
Vielen Dank für euro Hilfe!
Steffen
Antwort 1 von SteffenV
Hier noch die SQL Ansicht:
SELECT tblAuftrag.intNummer, tblAuftrag.txtAuftrag, tblAuftrag.intPakete, tblAuftrag.intPositionen, ([datZeit]*[faktor])*100 AS Ausdr1, tblAuftrag.datDatum, tblBenutzer.txtBenutzer INTO Name
FROM tblBenutzer INNER JOIN tblAuftrag ON tblBenutzer.intBenutzerID = tblAuftrag.intBenutzerID
ORDER BY tblAuftrag.intNummer;
Den fetten Name müsste man doch irgendwie Variabel machen können???
Gruß
Steffen
SELECT tblAuftrag.intNummer, tblAuftrag.txtAuftrag, tblAuftrag.intPakete, tblAuftrag.intPositionen, ([datZeit]*[faktor])*100 AS Ausdr1, tblAuftrag.datDatum, tblBenutzer.txtBenutzer INTO Name
FROM tblBenutzer INNER JOIN tblAuftrag ON tblBenutzer.intBenutzerID = tblAuftrag.intBenutzerID
ORDER BY tblAuftrag.intNummer;
Den fetten Name müsste man doch irgendwie Variabel machen können???
Gruß
Steffen
Antwort 2 von erik
Public Sub TabelleErstellen(Tabellenname As String)
Dim db As Database
Dim strSQL as String
strSQL="SELECT tblAuftrag.intNummer, tblAuftrag.txtAuftrag, tblAuftrag.intPakete, tblAuftrag.intPositionen, ([datZeit]*[faktor])*100 AS Ausdr1, tblAuftrag.datDatum, tblBenutzer.txtBenutzer INTO " & Tabellenname & " _
" FROM tblBenutzer INNER JOIN tblAuftrag ON tblBenutzer.intBenutzerID = tblAuftrag.intBenutzerID
ORDER BY tblAuftrag.intNummer; "
Set db = CurrentDb
db.Execute strSQL
Set db = Nothing
End Sub
Aufruf:
TabelleErstellen "tblDingsbums"
Dim db As Database
Dim strSQL as String
strSQL="SELECT tblAuftrag.intNummer, tblAuftrag.txtAuftrag, tblAuftrag.intPakete, tblAuftrag.intPositionen, ([datZeit]*[faktor])*100 AS Ausdr1, tblAuftrag.datDatum, tblBenutzer.txtBenutzer INTO " & Tabellenname & " _
" FROM tblBenutzer INNER JOIN tblAuftrag ON tblBenutzer.intBenutzerID = tblAuftrag.intBenutzerID
ORDER BY tblAuftrag.intNummer; "
Set db = CurrentDb
db.Execute strSQL
Set db = Nothing
End Sub
Aufruf:
TabelleErstellen "tblDingsbums"