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