Predmet:Re: Prenumeriranje u tabeli
Ja postavljam pitanja i ja odgovaram
Evo uspio sam nešto sam:
PreuzmiIzvorni kôd (Text):Dim db As DAO.Database
Set db = CurrentDb()
Dim DB1 As DAO.Database
Set DB1 = CurrentDb()
Dim DB2 As DAO.Database
Set DB2 = CurrentDb()
Dim DB3 As DAO.Database
Set DB3 = CurrentDb()
Dim DB4 As DAO.Database
Set DB4 = CurrentDb()
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim rs4 As DAO.Recordset
Dim racun1
Dim racun2
Dim strSQL As String
Dim strSQL1 As String
Dim strSQL2 As String
Dim strSQL3 As String
Dim strSQL4 As String
strSQL2 = "SELECT * FROM tblMaticniList WHERE [SifSluzba]='" & Me.SifSluzba & "'"
Set rs2 = DB2.OpenRecordset(strSQL2, dbOpenDynaset)
With rs2
.MoveFirst
racun = rs2!MatBroj
'If (racun = Null) Then
racun = Right("0001", 4)
'Else
'racun = Right("00000" & (racun + 1), 5)
'End If
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 If
'Me.List11.Requery
Miro