Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Unter VBA mittels SQL auf Tabelle zugreifen





Frage

Ist schon ne Weile her das ich mich mit Access abgemüht habe. Ich möchte auf eine Tabelle unter VBA zugreifen (siehe Code unten) Problem: Das SQL-Statement ist wahrscheinlich falsch, (beim Datum?) und bei der Zeile set rs = ... bekomme ich die Fehlermeldung Laufzeitfehler 3001 Ungültiges Argument. Hat jemand eine Idee? Oder BeispielCode wie man auf eine Tabelle unter VBA richtig zugreift? Dim rs As Recordset Dim SQL As String SQL = "SELECT * FROM [LagerVerwaltung] WHERE Transaktionsdatum=#" & Me![RechnungsDatum] & "#;" Set rs = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot, dbReadOnly) If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF If rs!Status = "V" Then Summe = Summe + rs!Betrag End If rs.MoveNext Wend End If

Antwort 1 von marie

Probier mal mit DateValue. Hier eine SQL von mir, wo das Datum in eine Inputbox eingegeben wird. SQL = "DELETE DISTINCTROW Abgänger.*, Abgänger.Abgangsdatum FROM Abgänger" _ & " WHERE (((Abgänger.Abgangsdatum)< DateValue(" & Antwort & ")))" also ohne # SQL = "SELECT * FROM [LagerVerwaltung] WHERE )Transaktionsdatum=DateValue(Me![RechnungsDatum])) Gruß Marie