DoCmd.RunSQL - Update

  • Access

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von skyblue.

    DoCmd.RunSQL - Update

    Hallo,

    habe derzeit folgenden Code:
    (Neu Anlegen)

    Visual Basic-Quellcode

    1. DoCmd.RunSQL "INSERT INTO Kunde" & _
    2. "(Name, Nachname, " & _
    3. "Stadt, PLZ, " & _
    4. "Anschrift, Telefon, Geburtstag, Rabatt, ServiceID) " & _
    5. "VALUES ('" & Me!feld_Name & "', '" & Me!feld_Nachname & "', '" & _
    6. Me!feld_Stadt & "', '" & _
    7. Me!feld_PLZ & "', '" & _
    8. Me!feld_Anschrift & "', '" & _
    9. Me!feld_Telefon & "', '" & _
    10. Me!feld_Geburtstag & "', '" & _
    11. Me!feld_Rabatt & "', '" & _
    12. Me!Service_ID & "')"

    (Updaten)

    Visual Basic-Quellcode

    1. DoCmd.RunSQL "UPDATE Kunde SET" & _
    2. "(Name, Nachname, " & _
    3. "Stadt, PLZ, " & _
    4. "Anschrift, Telefon, Geburtstag, Rabatt, ServiceID) WHERE ID =" & GlplngID & _
    5. "VALUES ('" & Me!feld_Name & "', '" & Me!feld_Nachname & "', '" & _
    6. Me!feld_Stadt & "', '" & _
    7. Me!feld_PLZ & "', '" & _
    8. Me!feld_Anschrift & "', '" & _
    9. Me!feld_Telefon & "', '" & _
    10. Me!feld_Geburtstag & "', '" & _
    11. Me!feld_Rabatt & "', '" & _
    12. Me!Service_ID & "')"


    Jedoch funktioniert das Updaten nicht. Könnt Ihr mir weiterhelfen ?
    Schonmal vielen dank!

    Gruß, Skyblue

    Probier das mal

    SQL-Abfrage

    1. DoCmd.RunSQL "UPDATE Kunde SET Name = " & Me!feld_Name & ", Nachname = " & Me!feld_Nachname & ", Stadt = " & Me!feld_Stadt & ", PLZ = " & Me!feld_PLZ & ", Anschrift = " & Me!feld_Anschrift & ", Telefon = " & Me!feld_Telefon & ", Geburtstag = " & Me!feld_Geburtstag & ", Rabatt = " & Me!feld_Rabatt & ", ServiceID = " & Me!Service_ID & " WHERE ID = " & GlplngID & ""

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Cannon“ ()

    skyblue schrieb:

    Erhalte folgende Fehlermeldung:

    Run-time error '102':
    Incorrect syntax near '('.

    Update Syntax schaut so aus:

    SQL-Abfrage

    1. DoCmd.RunSQL "UPDATE Kunde SET Name = " & Me!feld_Name & ", Nachname = " & Me!feld_Nachname & ", Stadt = " & Me!feld_Stadt & ", PLZ = " & Me!feld_PLZ & ", Anschrift = " & Me!feld_Anschrift & ", Telefon = " & Me!feld_Telefon & ", Geburtstag = " & Me!feld_Geburtstag & ", Rabatt = " & Me!feld_Rabatt & ", ServiceID = " & Me!Service_ID & " WHERE ID = " & GlplngID & ""

    skyblue schrieb:

    Dabei erhalte ich fehlermeldungen "Incorrect syntax near "
    Sprich anstatt kannst du dir jetzt die Anschrift vorstellen etc.
    Dies macht er leider bei jedem einzelnen Wert durch d.h kein Update

    hmm dann teste das mal

    SQL-Abfrage

    1. DoCmd.RunSQL "UPDATE Kunde SET Name = '" & Me!feld_Name & "', Nachname = '" & Me!feld_Nachname & "', Stadt = '" & Me!feld_Stadt & "', PLZ = '" & Me!feld_PLZ & "', Anschrift = '" & Me!feld_Anschrift & "', Telefon = '" & Me!feld_Telefon & "', Geburtstag = '" & Me!feld_Geburtstag & "', Rabatt =' " & Me!feld_Rabatt & "', ServiceID = '" & Me!Service_ID & "' WHERE ID = '" & GlplngID & "'"

Facebook
Telefonspende