Microsoft Access - Neuen Datensatz einfügen über einen Button weiterzählen der Mitgliedsnummer
Ausgangssituation ist, dass ich in einem Formular über einen Button ein neues Mitglied anlegen kann.
Die Mitgliedsnummern sind aufsteigend von beispielsweise 1 bis 136. Nun gibt es ein manuell angelegtes Mitglied mit der Mitgliedsnummer 9999. Der Button kommt damit natürlich nicht klar, da er zum letzten Datensatz gehen müsste, von dort einen Datensatz zurück und die dort befindliche Mitgliedsnummer +1 nehmen müsste.
Folgendes führt mich leider noch nicht zum Ziel:
Private Sub Schalt_Neu_Click()
On Error GoTo Err_Schalt_Neu_Click
DoCmd.GoToRecord , , A_LAST
KNr = [Kunden Nr]
DoCmd.GoToRecord , , A_NEWREC
[Kunden Nr] = KNr + 1
DoCmd.GoToControl "Kunden Nr"
Exit_Schalt_Neu_Click:
Exit Sub
Err_Schalt_Neu_Click:
MsgBox Error$
Resume Exit_Schalt_Neu_Click
End Sub
Hat jemand eine Idee dazu?
Die Mitgliedsnummern sind aufsteigend von beispielsweise 1 bis 136. Nun gibt es ein manuell angelegtes Mitglied mit der Mitgliedsnummer 9999. Der Button kommt damit natürlich nicht klar, da er zum letzten Datensatz gehen müsste, von dort einen Datensatz zurück und die dort befindliche Mitgliedsnummer +1 nehmen müsste.
Folgendes führt mich leider noch nicht zum Ziel:
Private Sub Schalt_Neu_Click()
On Error GoTo Err_Schalt_Neu_Click
DoCmd.GoToRecord , , A_LAST
KNr = [Kunden Nr]
DoCmd.GoToRecord , , A_NEWREC
[Kunden Nr] = KNr + 1
DoCmd.GoToControl "Kunden Nr"
Exit_Schalt_Neu_Click:
Exit Sub
Err_Schalt_Neu_Click:
MsgBox Error$
Resume Exit_Schalt_Neu_Click
End Sub
Hat jemand eine Idee dazu?
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 203914
Url: https://administrator.de/forum/microsoft-access-neuen-datensatz-einfuegen-ueber-einen-button-weiterzaehlen-der-mitgliedsnummer-203914.html
Ausgedruckt am: 29.04.2025 um 01:04 Uhr
1 Kommentar
Habe es selbst gelöst. Wenn jemand das braucht:
Private Sub Schalt_Neu_Click()
On Error GoTo Err_Schalt_Neu_Click
DoCmd.GoToRecord , , A_LAST
DoCmd.GoToRecord , , A_PREVIOUS
KNr = [Kunden Nr]
DoCmd.GoToRecord , , A_NEWREC
[Kunden Nr] = KNr + 1
Exit_Schalt_Neu_Click:
Exit Sub
Err_Schalt_Neu_Click:
MsgBox Error$
Resume Exit_Schalt_Neu_Click
End Sub
Private Sub Schalt_Neu_Click()
On Error GoTo Err_Schalt_Neu_Click
DoCmd.GoToRecord , , A_LAST
DoCmd.GoToRecord , , A_PREVIOUS
KNr = [Kunden Nr]
DoCmd.GoToRecord , , A_NEWREC
[Kunden Nr] = KNr + 1
Exit_Schalt_Neu_Click:
Exit Sub
Err_Schalt_Neu_Click:
MsgBox Error$
Resume Exit_Schalt_Neu_Click
End Sub
