DoCmd.RunSQL "Update... Syntax

[maler230]

Hallo  ,

ich würde gerne den oben genannten Befehl benutzen, um einen Datensatz zu aktualisieren. Leider kriege ich das von der Syntax her nicht auf die Reihe...
Also ich möchte in der Tabelle "Test" das Zahlenfeld "Menge" aktualisieren. Dort soll der Wert aus einem Textfeld reingeschrieben werden.

Code [Auswählen] Erweitern

DoCmd.RunSQL "Update tblTest SET Menge = " & Me!txt_Menge
So klappt das auch noch ganz gut... Nun will ich aber per WHERE Klausel den Datensatz in der Tabelle einschränken... Ich möchte das Access praktisch das hier macht:

Code [Auswählen] Erweitern

DoCmd.RunSQL "Update tbl_Test SET Menge = " & Me!txt_Menge WHERE TabellenfeldZahl1 = TextfeldZahl1 AND TabellenfeldZahl2 = TextfeldZahl2 AND TabellenfeldDatum = TextfeldDatum

Habe schon etliche Variationen versucht, immer mit Syntaxfehlern

[MzKlMu]

Hallo,
warum verwendest Du nicht einfach gebundene Formulare ?
Dann kannst Du Dir die komplette Programmiererei sparen. Das kann Access serienmäßig besser und ohne Aufwand.

[Frank77]

Hallo! ich mach des so
Gruß Frank

Code [Auswählen] Erweitern

Dim strSQL As String
strSQL = "Update tbl_Test SET Menge = " & Me!txt_Menge & " WHERE TabellenfeldZahl1 = " & Me!TextfeldZahl1 & " And TabellenfeldZahl2 = " & Me!TextfeldZahl2 & " And TabellenfeldDatum = " & Format$(Me!TextfeldDatum, "dd.mm.yyyy")
CurrentDb.Execute strSQL, dbFailOnError

[DF6GL]

Hallo,

wenn, denn so:

Code [Auswählen] Erweitern

Dim strSQL As String
strSQL = "Update tbl_Test SET Menge = " & nz(Me!txt_Menge,0) & " WHERE TabellenfeldZahl1 = " & nz(Me!TextfeldZahl1,0) & " And TabellenfeldZahl2 = " & nz(Me!TextfeldZahl2,0) & " And TabellenfeldDatum = " & Format(nz(Me!TextfeldDatum,Date()), "\#yyyy-mm-dd\#")
CurrentDb.Execute strSQL, dbFailOnError