Predmet:Generiranje broja dokumenta
Koristim slijedeću funkciju za generiranje broja dokumenta koji treba biti u obliki
1/SK20/1 ili 1/SK25/1
znači za različiti prefiks prvi lijevi broj se povečava za 1
1/SK20/1
2/SK20/1
3/SK20/1
i
1/SK25/1
2/SK25/1
itd.
Ovo radi u redu dok prvi broj ne postane dvocifren.
U dijelu SELECT Max(Left([OrderID],1)) pokušao sam umjesto 1 staviti nešto kao InStr([OrderID],"/") ali me ne sluša.
PreuzmiIzvorni kôd (vbnet):Function BrojRac(Prefix As String)
Dim db As Database
Dim SQL As String
Dim rs As Recordset
Dim i As Integer
Set db = CurrentDb
SQL = "SELECT Max(Left([OrderID],1)) FROM tblProdaja WHERE Mid(OrderID,3,4)= '" & Prefix & "'"
Set rs = db.OpenRecordset(SQL)
If Format$(rs.Fields(0)) <> "" Then
i = Val(rs.Fields(0))
End If
i = i + 1
BrojRac = i & "/" & Prefix & "/1"
rs.Close
Set db = Nothing
End Function
Prilozi:
PrimjerRacun.rar
Preuzimanja:355
Velicina datoteke:885.72 KB
Pozdrav