Ich möchte aus einer Exceldate via Button in eine Accessdatenbank gehen und eine Anfügeabfrage ausführen. Hat das schon einmal jemand gemacht ?
Bin für jede Hilfe dankbar !!! :-)
gruß Tobi
Bin für jede Hilfe dankbar !!! :-)
gruß Tobi
was ist eine Anfügeabfrage?
Gruß
Micha
Private Sub Test()
Dim strSQL As String
Dim dbDatenbank As Database
Dim strDatenbank As String
strDatenbank = "S:\ctl\su\team 8 EDV\06 Eigen\Grunddaten\StepReporting.mdb"
Set dbDatenbank = OpenDatabase(strDatenbank)
'DoCmd.SetWarnings False
strSQL = "INSERT INTO [Reporting_tab_CR1_000_00-32] ( Status, Anzahl, Kennung, Auswertedatum ) "
strSQL = strSQL & "SELECT Reporting_abf_CR1_001_Berlin_Basis_3.Status, Reporting_abf_CR1_001_Berlin_Basis_3.Anzahl, Reporting_abf_CR1_001_Berlin_Basis_3.Kennung, Reporting_abf_CR1_001_Berlin_Basis_3.Auswertedatum "
strSQL = strSQL & "FROM Reporting_abf_CR1_001_Berlin_Basis_3 "
strSQL = strSQL & "ORDER BY Reporting_abf_CR1_001_Berlin_Basis_3.Status;"
DoCmd.RunSQL (strSQL)
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen