Prikazi cijelu temu 21.12.2011 14:43
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Funkcija za ID
Za generiranje broja računa koristim slijedeću funkciju koju je napravio ZXZ:
PreuzmiIzvorni kôd (vbnet):
  1. Function SifraN()
  2. Dim DB As Database
  3. Dim SQL As String
  4. Dim Rs As Recordset
  5. Dim I As String
  6.  
  7. Set DB = CurrentDb
  8. SQL = "SELECT Max(OrderID) AS BrojN " & "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 = Format(I, "000000")
  15. Rs.Close
  16. Set DB = Nothing
  17. End Function

sa njom dobivam brojeve u obliku 050001; 050002 itd.
Molio bih pomoć kako da dobijem broj računa u obliku:
2012-0001; 2012-0002 itd, gdje bi na početku bila godina pa onda dalje redni broj.
Pozdrav