Laufzeitfehler 3426 HILFE !

[Guimaster]

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 Code :

Private Sub Command1_Click()
txtName.SetFocus
Data1.Recordset.AddNew

txtPassw.SetFocus
Data1.Recordset.AddNew

txtbem.SetFocus
Data1.Recordset.AddNew

txtSite.SetFocus
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Dim prompt$
Dim antw$
prompt$ = "Wollen Sie die Accountdaten WIRKLICH Löschen ?"
antw$ = MsgBox(prompt$, vbYesNo, "Account Daten Löschen ?")

If antw$ = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

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

Private Sub Command1_Click()
txtName.SetFocus
Data1.Recordset.AddNew

txtPassw.SetFocus
Data1.Recordset.AddNew

txtbem.SetFocus
Data1.Recordset.AddNew

txtSite.SetFocus
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Dim prompt$
Dim antw$
prompt$ = "Wollen Sie die Accountdaten WIRKLICH Löschen ?"
antw$ = MsgBox(prompt$, vbYesNo, "Account Daten Löschen ?")

If antw$ = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Command3_Click()
End
End Sub

 

[Alex F.]

Wie öffnest du denn dein Dataset?

Grüsse bb

PS: Deinen Code einmal zu posten hätte gereicht . Bitte benutze die Code Tags [code=vb] [/code]

 

[Guimaster]

sry so weit bin ich wohl noch nicht ^^ wie mach das mit dataset ?

und sry wegen codebost ^^