Laufzeitfehler 3426 HILFE !!

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Guimaster123.

    Laufzeitfehler 3426 HILFE !!

    Hallo Community ,

    dieser Fehler taucht jetztzum 2. mal auf -.-

    Ich möchte einen Accountmanager Programmieren , aber wenn ich auf einfügen Klicke kommt folgende Fehlermeldung :

    Laufzeitfehler '3426'

    Diese Aktion wurde durch ein zugeordnetes Objekt abgebrochen.


    Hier der Source :

    Visual Basic-Quellcode

    1. Private Sub Command1_Click()
    2. txtName.SetFocus
    3. Data1.Recordset.AddNew
    5. txtName.SetFocus
    6. Data1.Recordset.AddNew
    8. txtPassw.SetFocus
    9. Data1.Recordset.AddNew
    11. txtbem.SetFocus
    12. Data1.Recordset.AddNew
    14. txtSite.SetFocus
    15. Data1.Recordset.AddNew
    16. End Sub
    18. Private Sub Command2_Click()
    19. Dim prompt$
    20. Dim antw$
    21. prompt$ = "Wollen Sie die Accountdaten WIRKLICH Löschen ?"
    22. antw$ = MsgBox(prompt$, vbYesNo, "Account Daten Löschen ?")
    24. If antw$ = vbYes Then
    25. Data1.Recordset.Delete
    26. Data1.Recordset.MoveNext
    27. End If
    28. End Sub
    30. Private Sub Command3_Click()
    31. End
    32. End Sub
    34. Private Sub Form_Load()
    36. End Sub

    ersteinmal vielen Dak für eure Antworten und den Fehlerfund ^^

    Zu der Codezeile mit dem Fehler :

    Nach dem der Fehler kommt kann ich ja Debuggen wählen wenn ich dises tu wird folgende Codezeile Gelb markiert :

    Visual Basic-Quellcode

    1. Private Sub Command1_Click()
    2. txtName.SetFocus
    3. --------------> Data1.Recordset.AddNew <----------------
    5. txtPassw.SetFocus
    6. Data1.Recordset.AddNew
    8. txtbem.SetFocus
    9. Data1.Recordset.AddNew
    11. txtSite.SetFocus
    12. Data1.Recordset.AddNew
    13. End Sub
    15. Private Sub Command2_Click()
    16. Dim prompt$
    17. Dim antw$
    18. prompt$ = "Wollen Sie die Accountdaten WIRKLICH Löschen ?"
    19. antw$ = MsgBox(prompt$, vbYesNo, "Account Daten Löschen ?")
    21. If antw$ = vbYes Then
    22. Data1.Recordset.Delete
    23. Data1.Recordset.MoveNext
    24. End If
    25. End Sub
    27. Private Sub Command3_Click()
    28. End
    29. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Guimaster123“ ()

Facebook
Telefonspende