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