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