Datum automatisch ändern
MartinZ
Gesendet: 08.07.14 09:42
Betreff: Datum automatisch ändern


New user

Beiträge: 3

Zunächst mal "Griaß eich, beinand"!

Bin als aktiver Teilnahmer neu im Forum (und eigentlich auch bei VBA und SQL) und hoffe auf Eure Hilfe bei folgendem Problem:

Ich möcht über ein Formular nach Eingabe eines Datums in einem neuen Datensatz ein anderes Datum in einem bereits bestehenden Datensatz automatisch ändern. Der zugehörige Code sieht so aus


Private Sub ab_AfterUpdate()
Dim Datumneu As Date
Dim ID_togo As Long
Dim strSQL As String
Me.Refresh
Datumneu = NeuesDatum_ab
ID_togo = Ändern_ID
MsgBox Datumneu
MsgBox ID_togo
strSQL = "UPDATE t_Fixkosten SET [bis] = (" & Datumneu & ") WHERE [ID_Fixkosten] = (" & ID_togo & ")"

DoCmd.RunSQL strSQL

End Sub


Das neue Datum (Datummeu) wird richtig berechnet und auch die ID des zu aktualisierenden Datensatzes (ID_togo) ist richtig

Bei Ausführung ergibt sich folgende Fehlermeldung:

Laufzeitfehler '3075':
Syntaxfehler in Zahl in Abfrageausdruck '(21.01.2011'.


Alle Datumsfelder sind in Datum, kurz formatiert. Ich hab' schon viel recherchiert und glaube, dass der Hund in der Formatübergabe von Access und SQL begraben liegt, finde aber keinen Weg, das Problem zu beheben.

Schon im Voraus ein herzliches DANKE für Eure Lösungsvorschläge.

Martin
Top of the page Bottom of the page