Umesto
Code:
Private Sub Command44_Click()
MsgBox "Morate promeniti inventarni broj kako bi zapis bio uredno sacuvan!!!"
DoCmd.GoToRecord , , acNewRec
Me!Autor = Me!Autor.Tag
Me![Naslov dela] = Me![Naslov dela].Tag
Me!Invbroj.SetFocus
End Sub
Probaj sa
Code:
Private Sub Command44_Click()
MsgBox "Morate promeniti inventarni broj kako bi zapis bio uredno sacuvan!!!"
'Kad si ga vec opomenuo, neka ovde unese novi InvBroj
Me!Invbroj.SetFocus
'Zapamti trenutne vrednosti
Me!Autor = Me!Autor.Tag
Me![Naslov dela] = Me![Naslov dela].Tag
'Sad idi na novi rekord
DoCmd.GoToRecord , , acNewRec
'Prilikom prelazenja na novi rekord, odradice se OnCurrent
End Sub
Ako korstis Dirty, to ti dodje isto kao na BeforeUpdate. Mislim da ti nije neophodno. Izmeni kod na Command44_Click(). Trebalo bi da se odvija ovako:
1) korisnik se nalazi na nekom rekordu gde su Autor i Naslov Dela koje zelis da preneses u sledeci rekord
2) deo koda 'Zapamti trenutne vrednosti ce da smesti vrednosti u Tag
3) DoCmd.GoToRecord , , acNewRec ce da pomeri pointer baze na novi rekord. Satri ce biti automatski snimljen, a odradice se i OnCurrent koji vrednosti iz Tag-a prepisuje u odgovarajuca polja
Shvatio si ideju i guraj napred.
;-)