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):Private Sub Command0_Click()
Dim strSQL2 As String
Dim rs2 As DAO.Recordset
Dim DB2 As DAO.Database
Set DB2 = CurrentDb()
Dim racun
strSQL2 = "SELECT * FROM tblMaticniList WHERE [SifSluzba]='" & Me.SifSluzba & "'"
Set rs2 = DB2.OpenRecordset(strSQL2, dbOpenDynaset)
With rs2
.MoveFirst
racun = rs2!MatBroj
racun = Right("0001", 4)
Do While Not .EOF
rs2.Edit
rs2!MatBroj = racun & "/" & Me.Godina
rs2.Update
racun = Format$(CInt(racun + 1), "0000")
rs2.MoveNext
Loop
End With
rs2.Close
DB2.Close
Set rs2 = Nothing
Set DB2 = Nothing
End Sub
Miro