meine Abfrage nach ACCESS funktionert tadellos, solange ich die WHERE-Bedingung direkt eingebe, z.B. "O3". Wenn ich versuche, sie aus Flexibiltätsgründen durch eine Variable zu ersetzen, endet das Makro mit dem aussagefähigen 1004-Fehler. Hat jemand eine Idee?
Die beiden kurzen Makros sehen wie folgt aus (den DB-Pfad hab ich dabei ausgeblendet). Ist mein erster Beitrag, das mit dem Editieren hab ich noch nicht drauf, ich besser mich ;-)).
läuft:
Sub Makro3()
Dim SReg
Const sDB = "ODBC;DSN=MS Access Database;DBQ="AUSGEBLENDET";"
Const sDB2 = ""AUSGEBLENDET";DriverId=25;FIL=MS _
Access;MaxBufferSize=2048;PageTimeout=5;"
With Selection.QueryTable
.Connection = Array(Array(sDB), Array(sDB2))
.CommandText = Array("SELECT `SAP-BW Umsatz`.`Input Umsatz SAG BJ`.Fakturaelement, `SAP- _
_
_
_
BW Umsatz`.Projektdefinition, `SAP-BW Umsatz`.Bezeichnung, `SAP-BW Umsatz`.`Projekt LandText`, ` _
_
_
SAP-BW Umsatz`.`PSP-Element Text`, `SAP" _
, _
"-BW Umsatz`.PrCtr, `SAP-BW Umsatz`.Region, `SAP-BW Umsatz`.Produkt, `SAP-BW Umsatz`.` _
Kaufmann Nachname`, `SAP-BW Umsatz`.`Umsatz SAG Brutto BJ`, `SAP-BW Umsatz`.`Umsatz SAG Kons RE _
_
_
BJ`, `SAP-BW Umsat" _
, _
"z`.`Umsatz SAG Kons Sonst BJ`, `SAP-BW Umsatz`.`Umsatz SAG Netto BJ`" & "FROM " _
AUSGEBLENDET" `.`SAP-BW Umsatz` `SAP-BW Umsatz`" & Chr( _
_
13) & "" & Chr(10) & _
"WHERE (`SAP-BW Umsatz`.Region='O4')")
.Refresh BackgroundQuery:=False
End With
End Sub
läuft nicht:
Sub auto_open()
Const sDB = "ODBC;DSN=MS Access Database;DBQ="AUSGEBLENDET";"
Const sDB2 = "DefaultDir="AUSGEBLENDET";"
;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
Dim SReg
SReg = "O3"
With Selection.QueryTable
.Connection = Array(Array(sDB), Array(sDB2))
.CommandText = Array("SELECT `SAP-BW Umsatz`.`Input Umsatz SAG BJ`.Fakturaelement, `SAP- _
_
_
_
BW Umsatz`.Projektdefinition, `SAP-BW Umsatz`.Bezeichnung, `SAP-BW Umsatz`.`Projekt LandText`, ` _
_
_
SAP-BW Umsatz`.`PSP-Element Text`, `SAP" _
, _
"-BW Umsatz`.PrCtr, `SAP-BW Umsatz`.Region, `SAP-BW Umsatz`.Produkt, `SAP-BW Umsatz`.` _
_
_
_
Kaufmann Nachname`, `SAP-BW Umsatz`.`Umsatz SAG Brutto BJ`, `SAP-BW Umsatz`.`Umsatz SAG Kons RE _
_
_
BJ`, `SAP-BW Umsat" _
, _
"z`.`Umsatz SAG Kons Sonst BJ`, `SAP-BW Umsatz`.`Umsatz SAG Netto BJ`" & "FROM " _
AUSGEBLENDET"`.`SAP-BW Umsatz` `SAP-BW Umsatz`" & Chr( _
_
13) & "" & Chr(10) & _
"WHERE (`SAP-BW Umsatz`.Region=" & SReg & ")")
.Refresh BackgroundQuery:=False
End With
End Sub