Alter Feldinhalt auslesen

[Juno]

Hallo Zusammen,

ich habe mal wieder ein Problem:
Ich habe ein Feld vk_altnr und ein Feld vk_nr. Ich möchte jetzt gerne mit VBA den Inhalt aus vk_altnr und vk_nr mit Komma getrennt in vk_altrn eintragen und danach die Zahl in vk_nr ändern.

Ich muss das ganze mit einer SQL Anweisung machen.

Ich bin jetzt soweit:

Code [Auswählen] Erweitern

    sql = "UPDATE tbldetails" & _
            " SET [vk_altnr] = [vk_altnr] & ',' & " & Forms!assvk2.vk_nr & "," & _
            " [vk_nr] =" & Forms!assvk2.vk_nr & "" & _
            " WHERE [det_id] =" & Me!Liste5.ItemData(varPosition) & ""

Aber dann wir die Zahl verwendet die ich nachher noch geändert habe.

Vielleicht könnte mir jemand behilflich sein...

[database]

Hallo,

versuch's mal so:

Code [Auswählen] Erweitern


   sql = "UPDATE tbldetails" & _
           " SET [vk_altnr] = [vk_altnr] & ',' & Forms!assvk2.vk_nr & "," & _
           " [vk_nr] =" & Forms!assvk2.vk_nr & _
           " WHERE [det_id] =" & Me!Liste5.ItemData(varPosition)


Code von hier in deine Applikation KOPIEREN! 

HTH
Peter

[Juno]

Mit deinem Code bekomme ich eine Syntax-Fehlermeldung.

[DF6GL]

Hallo,

schreib mal die Steuerelementverweise korrekt:
   sql = "UPDATE tbldetails" & _
           " SET [vk_altnr] = [vk_altnr] & ',' & Forms!assvk2!vk_nr ," & _
           " [vk_nr] ='" & Me!vk_nr  & "'" & _
           " WHERE [det_id] =" & Me!Liste5.ItemData(varPosition)
falls vk_nr vom Datentyp Text ist

[Juno]

vk_nr und det_id sind beides Zahlenfelder. Nur vk_altnr ist ein Textfeld.
Ich bekomme immer die Fehlermeldung "Erwartet: Anweisungsende"

Den ersten Code den ich gepostet habe hat zumindest schon mal funktioniert. Aber wie schon gesagt es wird immer die Zahl verwendet die schon abgeändert wurde.

[Juno]

Kann mir vielleicht jemand helfen?

[DF6GL]

Hallo,

versuch es mal so:

Code [Auswählen] Erweitern

sql= "UPDATE tbldetails" & _
            " SET [vk_altnr] = [vk_altnr] & '" & ", " & Me!vk_nr & "' ," & _
            " [vk_nr] =" & Me!vk_nr & _
            " WHERE [det_id] =" & Me!Liste5.ItemData(varPosition)