Prikazi cijelu temu 18.01.2015 11:13
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Pomoć oko pisanja koda.
Probaj ovako
U neki modul napiÅ¡i slijedeći kod:
PreuzmiIzvorni kôd (vbnet):
  1. Function Brojevi()
  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(RedBr) FROM tblPopis"
  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. Brojevi = I
  15. Rs.Close
  16. Set DB = Nothing
  17. Kraj:
  18. End Function

Na formi na text box RedBr pod Default Value upišeš

=Brojevi()

Prilozi:
PrimjerRB_MP.rar
Preuzimanja:290
Velicina datoteke:19.90 KB

Pozdrav