Ich habe in meinem Excel 2 Abfragen, die bis auf das Suchwort und die Spalte, in der gesucht wird, identisch sind..
1. Abfrage (nummer=61801 9990)
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Projektzeit;DBQ=O:\ALLGEMEIN\BU_Info\Entwicklung\ProDat\Datenbank\Pausenkontrolle.mdb;DriverId=281;FIL=MS Access;MaxBufferS" _
), Array("ize=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT tblProjektstunden.PersonalnummerID, tblProjektstunden.Projektnummer, tblProjektstunden.Projektstunden, tblProjektstunden.Tag, tblProjektstunden.Monat, tblProjektstunden.Jahr" & Chr(13) & "" & Chr(10) & "FROM tblProjektstu" _
, _
"nden tblProjektstunden" & Chr(13) & "" & Chr(10) & "WHERE (tblProjektstunden.Projektnummer=" & nummer & ")" & Chr(13) & "" & Chr(10) & "ORDER BY tblProjektstunden.PersonalnummerID" _
)
.Name = "Abfrage von Projektzeit"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
2. Abfrage (nummer=1004)
Private Sub ID()
nummer = Form.Kont_num.Text
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Projektzeit;DBQ=O:\ALLGEMEIN\BU_Info\Entwicklung\ProDat\Datenbank\Pausenkontrolle.mdb;DriverId=281;FIL=MS Access;MaxBufferS" _
), Array("ize=2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT tblProjektstunden.PersonalnummerID, tblProjektstunden.Projektnummer, tblProjektstunden.Projektstunden, tblProjektstunden.Tag, tblProjektstunden.Monat, tblProjektstunden.Jahr" & Chr(13) & "" & Chr(10) & "FROM tblProjektstu" _
, _
"nden tblProjektstunden" & Chr(13) & "" & Chr(10) & "WHERE (tblProjektstunden.PersonalnummerID=" & nummer & ")" & Chr(13) & "" & Chr(10) & "ORDER BY tblProjektstunden.Projektnummer" _
)
.Name = "Abfrage von ID"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
In der ersten Abfrage sagt er bei .Refresh BackgroundQuery:=False
"Allgemeiner ODBC Fehler"
Danke im Vorraus
Benjamin