Predmet:Re: Kako na predhodni rekord

---

Na pocetku tvoje procedure na on klik dodaj ovo.
Dim a As Integer

a = Me.CurrentRecord

I ispod gdje vrsis requery dodaj ovo:
Me.Proknjizeno = True
MsgBox "Stavke sa otpremnice broj: " _
& OrderID & " su skinute sa skladišne kartice!", vbOKOnly, "Potvrda"
Forms!frmKnjizenje.Requery
Me.frmKnjizenjeSub.Requery
DoCmd.GoToRecord , , acGoTo, a' ovo dodaj

---