Hallo zusammen,

ich versuche mich gerade das erste mal mit diesem Thema. Da ich keine Ahnung von SQL habe, zeichnete ich ein Makro auf, welches ich nun versuche, meinen Vorstellungen anzupassen.

Leider bekomme ich bei der Integration des"Where" Befehls eine Fehlermeldung Typen unverträglichkeit:, Laufzeitfehler 13.

Woran kann es liegen?

Danke

Piecha

Hier der Code:

Dim SQLVerbindung As String
Dim SQLEinstellungen As String
Dim SQLSpalten As String
Dim SQLQuelle As String
Dim SQLAuswahl As String
Dim SQLSortierung As String

Const QuellPfad = "\\Server\Bde\"
Const QuellDatei = "test.mdb"
Const Prodplan = "`Betriebsaufträge Tabelle`"
Const BAEnd = "`Auftrag erledigt`"
Const BANr = "AuftragsNr_PW"

Sub HoleDaten()
    SQLVerbindung = "ODBC;DSN=MS Access Database;DBQ=" & QuellPfad & QuellDatei & ";DefaultDir=" & QuellPfad & ";DriverId=281;F"
   'SQLVerbindung = "ODBC;DSN=MS Access Database;DBQ=" & QuellPfad & QuellDatei & ";DefaultDir=" & QuellPfad & ";DriverId=281;F"
    '--Einstellungen-----------------------------------------------------
    SQLEinstellungen = "IL=MS Access;MaxBufferSize=2048;PageTimeout=50;"
   'SQLEinstellungen = "IL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
    '--Spalten-----------------------------------------------------------
    SQLSpalten = "SELECT " & Prodplan & "." & BANr & ", " & Prodplan & "." & BAEnd & Chr(13) & "" & Chr(10)
   'SQLSpalten = "SELECT " & Prodplan & "." & BANr & ", " & Prodplan & "." & BAEnd & Chr(13) & "" & Chr(10)
    '--Quelle------------------------------------------------------------
    SQLQuelle = "FROM `" & QuellPfad & QuellDatei & "`." & Prodplan & " " & Prodplan & Chr(13) & "" & Chr(10)
   'SQLQuelle = "FROM `" & QuellPfad & QuellDatei & "`." & Prodplan & " " & Prodplan & Chr(13) & "" & Chr(10)
    '--Auswahl-----------------------------------------------------------
    SQLAuswahl = "WHERE (`Betriebsaufträge Tabelle`.`Auftrag erledigt`=1)" & Chr(13) & "" & Chr(10)
    'SQLAuswahl = ""
    '--Sortierung--------------------------------------------------------
    SQLSortierung = "ORDER BY `Betriebsaufträge Tabelle`.AuftragsNr_PW"
    'SQLSortierung = ""
    '--------------------------------------------------------------------
    Sheets("Import_Access").Select
    Cells.Select
    Selection.ClearContents
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array(SQLVerbindung), Array(SQLEinstellungen)), Destination:=Range("$A$1")).QueryTable
        .CommandText = Array(SQLSpalten & SQLQuelle & SQLAuswahl & SQLSortierung)
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tabelle_Abfrage_von_MS_Access_Database"
        .Refresh BackgroundQuery:=False
    End With

End Sub