Liebe VBA-Anwender,
ich habe in einem Formular (Name: DM_Personen_Adressdetails) ein Unterformular erstelllt (Datenblatt, Name: DM_Anfragen_Unterformular) mit folgenden Feldern [ID] und [Anfrnr]. Bisher läuft es so, dass ich bei [Anfrnr] eine Nummer manuell eintrage, die vorher manuell vergeben wurde. Zukünftig würde ich diese Nummer gern automatisch vergeben. Folgenden Code zur Vergabe einer fortlaufenden Nummer habe ich bereits im Einsatz und würde ihn gern in diesem Formular einsetzten. Daher meine Frage: Ist es möglich über einen Button auf dem Formular "DM_Personen_Adressdetails" eine neue Anfragenummer im Datenblattunterformular "DM_Anfragen_Unterformular" zu erstellen. Dabei sind zwei Varianten denkbar: 1.) Es wird automatisch ein neuer Datensatz (ID) angelegt und eine neue Anfragenummer vergeben oder 2.) der Fokus wird manuell in den nächsten freien Datensatz gebracht und eine neue Nummer wird generiert.
Habt Ihr eine Idee und könnt mir weiterhelfen?
Private Sub Anfrnr_Exit(Cancel As Integer)
Dim LNummer As Integer
LNummer = DMax("[Anfrnr]", "Anfragen")
If Nz(Me.Anfrnr.Value) = "" Then
Me.Anfrnr = LNummer + 1
MsgBox ("Bitte Anfragenummer auf Anfragebogen notieren!")
End If
End Sub
Gruß,
Matthias
|