Predmet:Re: Funkcija za ID
Polje OrderID Stavi 8 karaktera mislim da je toliko i bilo.
U input masku Ovog polja napisi: 0000-0000
Procedura:
PreuzmiIzvorni kôd (Visual Basic):Function SifraN()
Dim DB As Database
Dim SQL As String
Dim Rs As Recordset
Dim I As Integer
Set DB = CurrentDb
SQL = "SELECT Max(Right(OrderID,4)) FROM tblProdaja"
Set Rs = DB.OpenRecordset(SQL)
If Format$(Rs.Fields(0)) <> "" Then
I = Val(Rs.Fields(0))
End If
I = I + 1
SifraN = Year(Date) & Format(I, "0000")
Rs.Close
Set DB = Nothing
Kraj:
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.