INSERT INTO - Error 3061

  • Access

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Lico.

    INSERT INTO - Error 3061

    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!!


    Quellcode

    1. ​Private Sub Befehl1_Click()
    3. Dim db As DAO.Database
    4. Set db = CurrentDb
    5. Dim strSQL As String
    6. Dim Ctrl As Control
    8. Dim NeuPerso As String
    9. Dim NeuAnrede As String
    10. Dim NeuVor As String
    11. Dim NeuNach As String
    12. Dim NeuTel As String
    13. Dim NeuDatum As String
    14. Dim NeuStr As String
    15. Dim NeuPLZ As String
    16. Dim NeuOrt As String
    17. Dim NeuMail As String
    19. NeuPerso = Me.NeukundePersonalnummer.Value
    20. NeuAnrede = Me.NeukundeAnrede.Value
    21. NeuVor = Me.NeukundeVorname.Value
    22. NeuNach = Me.NeukundeNachname.Value
    23. NeuTel = Me.NeukundeTelefonDienst.Value
    24. NeuDatum = Me.NeukundeGeburtsdatum.Value
    25. NeuStr = Me.NeukundeStrasse.Value
    26. NeuPLZ = Me.NeukundePLZ.Value
    27. NeuOrt = Me.NeukundeOrt.Value
    28. NeuMail = Me.NeukundeeMailDienst.Value
    29. 'https://www.encodedna.com/excel/loop-through-all-textboxes-in-userform-and-clear-the-values-in-vba.htm
    31. For Each Ctrl In Me.Controls
    32. If TypeName(Ctrl) = "TextBox" Then
    33. Debug.Print Ctrl.Value
    34. If IsNull(Ctrl.Value) Then
    35. MsgBox "Es müssen alle Felder ausgefüllt werden.", vbInformation
    36. Exit Sub
    37. End If
    38. End If
    39. Next
    41. Debug.Print NeukundeAnrede.Value
    43. strSQL = "INSERT INTO tab_Kunden(Personnalnummer,Anrede,Vorname,Nachname,TelefonDienstlich,Geburtsdatum,Straße,Postleitzahl,Ort,eMailAdresse) VALUES" & _
    44. "(NeuPerso,NeuAnrede,NeuVor,NeuNach,NeuTel,NeuDatum,NeuStr,NeuPLZ,NeuOrt,NeuMail);"
    46. Debug.Print strSQL
    48. db.Execute strSQL, dbFailOnError
    51. End Sub
    Bilder

    • Error-3061.png

      10,45 kB, 374×288, 77 mal angesehen

    Hallo

    Bin selbst nicht mehr Fit mit Access aber...
    Versuche es mal so:

    SQL-Abfrage

    1. 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')


    Grüße
    Sascha
    If _work = worktype.hard Then Me.Drink(Coffee)
    Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

    ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Beim Debug von StrSQL kommt folgendes raus:

    SQL-Abfrage

    1. 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');


    Irgendwie setzt er die Variablen nicht um??


    Na gut, du musst schon die Variablen nehmen...

    VB.NET-Quellcode

    1. strSQL = "INSERT INTO tab_Kunden(Personnalnummer,Anrede,Vorname,Nachname,TelefonDienstlich,Geburtsdatum,Straße,Postleitzahl,Ort,eMailAdresse) VALUES" & _
    2. "(" & NeuPerso & "," & NeuAnrede & "," & NeuVor & "," .......


    Grüße
    Sascha
    If _work = worktype.hard Then Me.Drink(Coffee)
    Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

    ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Es läääuufftt !! 8o

    VB.NET-Quellcode

    1. ​ strSQL = "INSERT INTO tab_Kunden(Personnalnummer,Anrede,Vorname,Nachname,TelefonDienstlich,Geburtsdatum,Straße,Postleitzahl,Ort,eMailAdresse) VALUES" & _
    2. "(" & NeuPerso & ",'" & NeuAnrede & "','" & NeuVor & "','" & NeuNach & "','" & NeuTel & "','" & NeuDatum & "','" & NeuStr & "','" & NeuPLZ & "','" & NeuOrt & "','" & NeuMail & "');"


    Diese Variante hatte schonmal probiert - es klappte aber nicht, weil ich " ," statt "," geschrieben hatte. Verdammte Leerzeichen. ;)

Facebook
Telefonspende