Prikazi cijelu temu 15.09.2010 12:40
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Prenumeriranje u tabeli
Ja postavljam pitanja i ja odgovaram Smiling Evo uspio sam nešto sam:
PreuzmiIzvorni kôd (Text):
  1. Dim db As DAO.Database
  2. Set db = CurrentDb()
  3. Dim DB1 As DAO.Database
  4. Set DB1 = CurrentDb()
  5. Dim DB2 As DAO.Database
  6. Set DB2 = CurrentDb()
  7. Dim DB3 As DAO.Database
  8. Set DB3 = CurrentDb()
  9. Dim DB4 As DAO.Database
  10. Set DB4 = CurrentDb()
  11. Dim rs As DAO.Recordset
  12. Dim rs1 As DAO.Recordset
  13. Dim rs2 As DAO.Recordset
  14. Dim rs3 As DAO.Recordset
  15. Dim rs4 As DAO.Recordset
  16. Dim racun1
  17. Dim racun2
  18.  
  19. Dim strSQL As String
  20. Dim strSQL1 As String
  21. Dim strSQL2 As String
  22. Dim strSQL3 As String
  23. Dim strSQL4 As String
  24. strSQL2 = "SELECT * FROM tblMaticniList  WHERE [SifSluzba]='" & Me.SifSluzba & "'"
  25.       Set rs2 = DB2.OpenRecordset(strSQL2, dbOpenDynaset)
  26.       With rs2
  27.     .MoveFirst
  28.     racun = rs2!MatBroj
  29.     'If (racun = Null) Then
  30.     racun = Right("0001", 4)
  31.     'Else
  32.     'racun = Right("00000" & (racun + 1), 5)
  33.     'End If
  34.     Do While Not .EOF
  35.        
  36.     rs2.Edit
  37.             rs2!MatBroj = racun & "/" & Me.Godina
  38.             rs2.Update
  39.           racun = Format$(CInt(racun + 1), "0000")
  40.        
  41.    rs2.MoveNext
  42.   Loop
  43.   End With
  44.  
  45. rs2.Close
  46. DB2.Close
  47. Set rs2 = Nothing
  48. Set DB2 = Nothing
  49. 'End If
  50. 'Me.List11.Requery
Miro