Kod:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Yukarıdaki kod istediğini yapmazsa bir de şunu deneyin:
Alıntı:Dim IdNo As Long
IdNo = Me.ContactID 'Otomatik Sayı değeri alan alanınızın adı
Me.Requery
Form.Requery
DoCmd.FindRecord IdNo, acEntire, , acSearchAll, , acCurrent
Kolay gelsin...