Overføre dato til ny post +1

Du kna indsætte denne i formularens VedAktuel (Current):

Private Sub Form_Current()
If Me.NewRecord Then
Me.dato = DMax("[dato]", "tabel1") + 1
End If
End Sub

Hver gang du skifter post, måler koden om der er tale om en ny post. Hvis denne betingelse er opfyldt, tildeles feltet "dato" den største værdi (DMax) i feltet dato i tabellen "tabel1" +1

Hvis du vil lave det i en knap som du skriver indsætter du blor dlg i knappens VedKlik:

Private Sub Kommandoknap4_Click()
DoCmd.GoToRecord acForm, "form1", acNewRec
Me.dato = DMax("[dato]", "tabel1") + 1
End Sub

I alle tilfælde skal du udskrifte navnene på felt, tabel og formular med de aktuelle navne.

Tak for hjælpen :)