|
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 | |
|
Datum automatisch ändern