Access-o-Mania

Hallo!

Das Thema wurde öfters angesprochen sogar an externen Foren. Leider vorgeschlagene Lösungen im Internet zu finden, helfen mir nicht.

Ich versuche aus einem Formular ein Datensatzt per SQL und VBA an eine Tabelle zu übergeben. Leider, jedes Mal, kriege ich ne Fehlermeldung Datentypkonfilkt.

Ich habe schon mit CDbl und mit format versucht die Datum umzuwandeln, funktioniert leider nicht.

Die Felder sind als Datum festgelegt.

Hier mein Code:

    Dim sSQL As String
    Dim a, b As String

    a = Format(Me!Datum, "/#yyyy/-mm/-dd/#")
    b = Format(Me!Datum2, "/#yyyy/-mm/-dd/#")

    sSQL = "INSERT INTO test (Artikel, Datum, Datum2, Stückzahl) VALUES ('" & Me!Artikel & "', '" & a & "' , '" & b & "', " & Me!Stückzahl & ")"

    CurrentDb.Execute sSQL, dbFailOnError

Hallo,

die Hochkommata um die Datumswerte sind fehl am Platz:

Zitat.....  , " & a & " , " & b & ",   ....

Hallo,

sobald die Hochkommata weg, kriege ich folgende Fehlermeldung:

Syntaxfehler (fehlender Operator) in Abfrageausdruck '.#2020.-08.-17#'

Hallo,

dann ändere zusätzlich:

Zitata = Format(Cdate(Me!Datum), "/#yyyy/-mm/-dd/#")
b = Format(Cdate(Me!Datum2), "/#yyyy/-mm/-dd/#")

Zitat von: Rivside am August 17, 2020, 08:40:40

Code [Auswählen] Erweitern

    a = Format(Me!Datum, "/#yyyy/-mm/-dd/#")
    b = Format(Me!Datum2, "/#yyyy/-mm/-dd/#")

Der Format-Ausdruck ist nicht richtig. Du muss den Backslash verwenden um die Trennzeichen zu escapen.

Format(Me!Datum, "\#yyyy\-mm\-dd\#")

Als generellen Tipp empfehle ich mein VBA-SQL-String-Tutorial (https://codekabinett.com/rdumps.php?Lang=1&targetDoc=vba-sql-string-tutorial).

Oh je.... meine Brille funktioniert auch nicht mehr richtig....   :o  :'(

Sowas aber auch...