Moin,
für folgenden Code bekomme ich immer den Error 3061
"10 Parameter wurden erwartet, aber es wurden zu wenig übergeben."
Ich komme einfach nicht drauf... Wer kann weiterhelfen? Danke und Grüße!!
für folgenden Code bekomme ich immer den Error 3061
"10 Parameter wurden erwartet, aber es wurden zu wenig übergeben."
Ich komme einfach nicht drauf... Wer kann weiterhelfen? Danke und Grüße!!
Quellcode
- Private Sub Befehl1_Click()
- Dim db As DAO.Database
- Set db = CurrentDb
- Dim strSQL As String
- Dim Ctrl As Control
- Dim NeuPerso As String
- Dim NeuAnrede As String
- Dim NeuVor As String
- Dim NeuNach As String
- Dim NeuTel As String
- Dim NeuDatum As String
- Dim NeuStr As String
- Dim NeuPLZ As String
- Dim NeuOrt As String
- Dim NeuMail As String
- NeuPerso = Me.NeukundePersonalnummer.Value
- NeuAnrede = Me.NeukundeAnrede.Value
- NeuVor = Me.NeukundeVorname.Value
- NeuNach = Me.NeukundeNachname.Value
- NeuTel = Me.NeukundeTelefonDienst.Value
- NeuDatum = Me.NeukundeGeburtsdatum.Value
- NeuStr = Me.NeukundeStrasse.Value
- NeuPLZ = Me.NeukundePLZ.Value
- NeuOrt = Me.NeukundeOrt.Value
- NeuMail = Me.NeukundeeMailDienst.Value
- 'https://www.encodedna.com/excel/loop-through-all-textboxes-in-userform-and-clear-the-values-in-vba.htm
- For Each Ctrl In Me.Controls
- If TypeName(Ctrl) = "TextBox" Then
- Debug.Print Ctrl.Value
- If IsNull(Ctrl.Value) Then
- MsgBox "Es müssen alle Felder ausgefüllt werden.", vbInformation
- Exit Sub
- End If
- End If
- Next
- Debug.Print NeukundeAnrede.Value
- strSQL = "INSERT INTO tab_Kunden(Personnalnummer,Anrede,Vorname,Nachname,TelefonDienstlich,Geburtsdatum,Straße,Postleitzahl,Ort,eMailAdresse) VALUES" & _
- "(NeuPerso,NeuAnrede,NeuVor,NeuNach,NeuTel,NeuDatum,NeuStr,NeuPLZ,NeuOrt,NeuMail);"
- Debug.Print strSQL
- db.Execute strSQL, dbFailOnError
- End Sub