Prikazi cijelu temu 22.12.2011 12:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function SifraN()
  2. Dim DB As Database
  3. Dim SQL As String
  4. Dim Rs As Recordset
  5. Dim I As Integer
  6.  
  7. Set DB = CurrentDb
  8. SQL = "SELECT Max(Right(OrderID,4)) FROM tblProdaja"
  9. Set Rs = DB.OpenRecordset(SQL)
  10. If Format$(Rs.Fields(0)) <> "" Then
  11. I = Val(Rs.Fields(0))
  12. End If
  13. I = I + 1
  14. SifraN = Year(Date) & Format(I, "0000")
  15. Rs.Close
  16. Set DB = Nothing
  17. Kraj:
  18. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.