Moin!
Ich versuche neue Datensätze einer Kundentabelle anzufügen.
Private Sub Kundendaten_hinzufügen_Click()
If Not IsNull(Me.Ku_1) And Not IsNull(Me.Ku_2) And Not IsNull(Me.Ku_3) And Not IsNull(Me.Ku_4) And Not IsNull(Me.Ku_5) And Not IsNull(Me.Ku_6) And Not IsNull(Me.Ku_7) And Not IsNull(Me.Ku_8) And Not IsNull(Me.Ku_9) Then
'Kundendaten eintragen
CurrentDb.Execute "INSERT INTO Kunden(Kunden_ID, Ku_Vorname , Ku_Familienname, Ku_Anrede, Ku_Telefonnummer, Ku_Strasse, PLZ_ID_F, Ku_Geburtsdatum, Ku_IBAN, Ku_BIC )VALUES" & _
"(" & Me.Kunden_ID & "," & Me.Ku_1 & "," & Me.Ku_2 & "," & Me.Ku_3 & "," & Me.Ku_4 & "," & Me.Ku_5 & "," & Me.Ku_6 & "," & Me.Ku_7 & "," & Me.Ku_8 & "," & Me.Ku_9 & ")", dbFailOnError
MsgBox ("Kunde wurde hinzugefügt")
DoCmd.Close
DoCmd.OpenForm "Kunden"
Else
Beep
MsgBox ("Bitte alle Felder ausfühlen!")
End If
End Sub
Allerdings kommt häufig bei der Straße und dem Datum ein Laufzeitfehler! Kann er diese Daten nicht übertragen? Was muss ich tuen?
(Straße beinhaltet häufig auch Bindestriche und auch eine Zahl für die Hausnummer)
Hallo,
du solltest Texte auch als solche im SQL-String behandeln
... "(" & Me.Kunden_ID & ",'" & Me.Ku_1 & "','" & Me.Ku_2 & "','" & Me.Ku_3 ....
Weiter schau dir die Übergabe von Datumswerten an: http://www.donkarl.com/?FAQ6.8