Predmet:Re: Redni brojevi, kako izbjeći grešku?

---

Jas kaj mene go imam vaka reseno

Smetka_Broj.DefaultValue = SlijedenBroj()

Private Function SlijedenBroj()
Dim Broj As String
Broj = DMax("Smetka_Broj", "tblSmetki", "Magacin=" & Forms![frmLogon]![cboMagacin]) + 1
If IsNull(Broj) Or Broj = "" Then Broj = 1
SlijedenBroj = Broj
End Function