Prikazi cijelu temu 16.09.2010 08:56
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Prenumeriranje u tabeli
Tako je prije prenoĊĦenja podataka ja sam već snimio bazu pod staru godinu i sad ovo radim na postojećoj bazi.Znači prvo apendujem podatke iz "tblMaticniList" u tabelu "tblInventura". Onda u toj tabeli tblInventura radim prenumeriranje po odjelima "SifOdjel",znači za svaki odjel recimo "001" odjel on treba da dodjeli brojeve 0001/11 , 0002/11 itd.. s tim da je ovo "/11" ako je 2011 godina.Onda tako za sljedeći odjel recimo "002" odjel isto 0001/11 , 0002/11 itd... i normalno koliko redova nađe u tabeli za svaki odjel toliko dodijeli brojeva.S ovom funkcijom sam uspio:Evo skratiću malo pa da vidite.
PreuzmiIzvorni kôd (Text):
  1. Private Sub Command0_Click()
  2. Dim strSQL2 As String
  3. Dim rs2 As DAO.Recordset
  4. Dim DB2 As DAO.Database
  5. Set DB2 = CurrentDb()
  6. Dim racun
  7. strSQL2 = "SELECT * FROM tblMaticniList  WHERE [SifSluzba]='" & Me.SifSluzba & "'"
  8.       Set rs2 = DB2.OpenRecordset(strSQL2, dbOpenDynaset)
  9.       With rs2
  10.     .MoveFirst
  11.     racun = rs2!MatBroj
  12.  
  13.     racun = Right("0001", 4)
  14.    
  15.     Do While Not .EOF
  16.      
  17.     rs2.Edit
  18.             rs2!MatBroj = racun & "/" & Me.Godina
  19.             rs2.Update
  20.  
  21.        racun = Format$(CInt(racun + 1), "0000")
  22.  
  23.    rs2.MoveNext
  24.  
  25.   Loop
  26.  
  27.   End With
  28.  
  29. rs2.Close
  30. DB2.Close
  31. Set rs2 = Nothing
  32. Set DB2 = Nothing
  33. End Sub
Miro