Hallo,
habe derzeit folgenden Code:
(Neu Anlegen)
(Updaten)
Jedoch funktioniert das Updaten nicht. Könnt Ihr mir weiterhelfen ?
Schonmal vielen dank!
Gruß, Skyblue
habe derzeit folgenden Code:
(Neu Anlegen)
Visual Basic-Quellcode
- DoCmd.RunSQL "INSERT INTO Kunde" & _
- "(Name, Nachname, " & _
- "Stadt, PLZ, " & _
- "Anschrift, Telefon, Geburtstag, Rabatt, ServiceID) " & _
- "VALUES ('" & Me!feld_Name & "', '" & Me!feld_Nachname & "', '" & _
- Me!feld_Stadt & "', '" & _
- Me!feld_PLZ & "', '" & _
- Me!feld_Anschrift & "', '" & _
- Me!feld_Telefon & "', '" & _
- Me!feld_Geburtstag & "', '" & _
- Me!feld_Rabatt & "', '" & _
- Me!Service_ID & "')"
(Updaten)
Visual Basic-Quellcode
- DoCmd.RunSQL "UPDATE Kunde SET" & _
- "(Name, Nachname, " & _
- "Stadt, PLZ, " & _
- "Anschrift, Telefon, Geburtstag, Rabatt, ServiceID) WHERE ID =" & GlplngID & _
- "VALUES ('" & Me!feld_Name & "', '" & Me!feld_Nachname & "', '" & _
- Me!feld_Stadt & "', '" & _
- Me!feld_PLZ & "', '" & _
- Me!feld_Anschrift & "', '" & _
- Me!feld_Telefon & "', '" & _
- Me!feld_Geburtstag & "', '" & _
- Me!feld_Rabatt & "', '" & _
- Me!Service_ID & "')"
Jedoch funktioniert das Updaten nicht. Könnt Ihr mir weiterhelfen ?
Schonmal vielen dank!
Gruß, Skyblue