Laufzeitfehler 3075

[dralle]

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)

[database]

Hallo,

du solltest Texte auch als solche im SQL-String behandeln

Code (vb) [Auswählen] Erweitern

... "(" & 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