Kann mir jemand sagen was in dieser SQL-Anweisung falsch ist? Ich bekomme immer die Fehermeldung "Syntax-Fehler in UPDATE" ??? ???
Dim sql As String
sql = "UPDATE abfrage_details" & _
"SET det_soll = abfrage_details.kun_debitor, det_haben = abfrage_details.artgrup_erloes" & _
"WHERE vk_nr = me.vk_nr"
DoCmd.RunSQL sql
ich glaub da fehlt ein oder zwei Leerzeichen
sql = "UPDATE abfrage_details " & _
"SET det_soll = abfrage_details.kun_debitor, det_haben = abfrage_details.artgrup_erloes " & _
"WHERE vk_nr = me.vk_nr"
Danke!! vor lauter Bäume sieht man den Wald nicht mehr :)
Wenn ich den Befehl jetzt ausführe bekomme ich immer eine Abfrage ob ich die Änderungen wirklich vornehmen möchte. Kann man das "ausschalten"?
Hallo,
statt DoCmd.RunSQL sql
Currentdb.Execute sql, dbFailOnError
verwenden.
Dann bekomme ich die Fehlermeldung "1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben....
Wolltest Du die VK_Nr des Formulars als Bedingung übergeben?
Probiere dieses:
sql = "UPDATE abfrage_details " & _
"SET det_soll = abfrage_details.kun_debitor, det_haben = abfrage_details.artgrup_erloes " & _
"WHERE vk_nr=" & Me!vk_nr
Danke, so klappt´s!!
Jetzt habe ich aber noch ein weitere Problem:
Anbei eine Tabelle die erklärt was ich machen möchte. Also kann in vkobjekte Rechnungen, Lieferscheine anlegen. Und die Zahl wird dann jeweils über da Formular vergeben.
Jetzt möchte ich gerne mit VBA ein Datensatz in vkobjekte anlegen. Das ganze soll dann eine Umbuchung sein. Da ich in der Tabelle vkobjekte aber keinen Autowert habe muss die Zahl auch über den VBA-Code vergeben werden.
Ich habe mir jetzt mal folgenden Code ausgedacht. Vielleicht kann man daraus erkennen was ich machen möchte. Dieser Code funktioniert aber natürlich nicht.
Vielleicht kann mir dabei jemand behilflich sein:
eingangsavv = InputBox("....!", "..."
sql = "INSERT INTO vk_objekte ([vk_nr], [vktyp_nr], [vk_lagersoll], [vk_lagerhaben], [vk_umbuchung]) " _
& "VALUES (nächste freie Nummer, 'UM', eingangsavv, me![avv_nr], 'true') "
[Anhang gelöscht durch Administrator]