Probleme bei "Refresh BackgroundQuery"



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Probleme bei "Refresh BackgroundQuery"
von: Benjamin
Geschrieben am: 01.07.2002 - 12:22:19

Hi, ich habe leider ein Problem, das ich überhaupt nicht verstehe...
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

nach oben   nach unten

Re: Probleme bei "Refresh BackgroundQuery"
von: Coach
Geschrieben am: 01.07.2002 - 19:25:42

Hallo Benjamin,

sind Projektnummer und Personalnummer vom selben Datentyp? Und "Nummer" identisch definiert?

Gruß Coach


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Summe Zeiten"