Må ikke kunne gå baglæns i formular
Jeg har tidligere haft gang i denne tråd, og troede også at jeg havde styr på den del, der hed, at man ikke måtte kunne gå baglæns i formularen, kun fremad til ny posthttp://www.eksperten.dk/spm/886074#reply_7449736
Dettte er gjort dels ved kode, dels ved at fjerne navigationsknapperne
Jeg har disse koder knyttet til:
Private Sub Form_Load()
DoCmd.GoToRecord acDataForm, "Logbog", acNewRec, 1
DoCmd.Maximize
Me.LbNr.SetFocus
End Sub
Og denne til en knap:
Private Sub cmdGåTilNyPost_Click()
On Error GoTo Err_cmdGåTilNyPost_Click
DoCmd.GoToRecord acForm, "Logbog", acNewRec
Exit_cmdGåTilNyPost_Click:
Exit Sub
Err_cmdGåTilNyPost_Click:
MsgBox Err.Description
Resume Exit_cmdGåTilNyPost_Click
End Sub
Og det virker for såvidt efter hensigten. Der er bare en detalje, som jeg ikke var klar over, man kan scrolle baglæns i posterne med musen!
Hvordan kommer jeg det til livs ?
Der er et skjult tekstfelt "Løbenr" (autonummerering) på hver post, hvis det er til nogen hjælp.