Accessformular - Neues Mitglied anlegen

Accessformular - Neues Mitglied anlegen - Fehlermeldung (1 Beitrag, 58 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo.

hab ein kleines Formular gebastelt wo man neue Mitglieder eintragen kann bzw. Alte ändern kann, wenn ich jetzt ein Neues anlege klappt noch alles wunderbar, drück ich dann aber nochmal auf den Button neu kommt diese Meldung:

Sie können nicht zu den angegebenen Datensatz springen.

Was kann da falsch sein?

Hier der ganze Code und ein Bild des Formulars:

Option Compare Database

Private Sub button_ende_Click()
On Error GoTo Err_button_ende_Click

DoCmd.Close

Exit_button_ende_Click:
Exit Sub

Err_button_ende_Click:
MsgBox Err.Description
Resume Exit_button_ende_Click

End Sub

Private Sub daten_filtern()

Dim kriterium As String

If Not IsNull(Me.suche_mgnr) Or Me.suche_mgnr <> "" Then
If kriterium <> "" Then kriterium = kriterium & " and "
kriterium = kriterium & "[Mgnr] LIKE '" & "*" & Me.suche_mgnr & "*'"
End If

If Not IsNull(Me.suche_name) Or Me.suche_name <> "" Then
If kriterium <> "" Then kriterium = kriterium & " and "
kriterium = kriterium & "[Mitgliedsname] LIKE '" & "*" & Me.suche_name & "*'"
End If

Me.Filter = kriterium
Me.FilterOn = True

End Sub

Private Sub suche_mgnr_AfterUpdate()
Call daten_filtern
End Sub

Private Sub suche_name_AfterUpdate()
Call daten_filtern
End Sub

Private Sub txt_Datum_KeyDown(KeyCode As Integer, Shift As Integer)
zeit = Time
formatzeit = Format(Date, "dd. mmmm yyyy")
txt_Datum = formatzeit

Me.AllowAdditions = False
Me.AllowEdits = True

End Sub
Private Sub button_neu_Click()
On Error GoTo Err_button_neu_Click

DoCmd.GoToRecord , , acNewRec

Exit_button_neu_Click:
Exit Sub

Err_button_neu_Click:
MsgBox Err.Description
Resume Exit_button_neu_Click

End Sub
Private Sub button_speichern_Click()
On Error GoTo Err_button_speichern_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_button_speichern_Click:
Exit Sub

Err_button_speichern_Click:
MsgBox Err.Description
Resume Exit_button_speichern_Click

End Sub

http://img136.imageshack.us/img136/2496/formdf7.jpg

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung