Predmet:Re:Vise Korisnika Na Istoj Formi
Napravi edna tabela tblRedni_Broevi I u njoj stavi ID = AutoNumber i brFaktura = Number
Ovaj kod stavi na dugme za nova faktura
PreuzmiIzvorni kôd (Visual Basic):
Dim db As Database
Dim rs As Recordset
Dim bA As Long
Dim bPlus As Integer
bPlus = 1
subProverka:
bA = Nz(DMax("broj", "tblFaktura"), 0) + bPlus
bPlus = bPlus + 1
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM tblRedni_Broevi WHERE brFaktura=" & bA)
If rs.RecordCount = 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tblRedni_Broevi (brFaktura) VALUES(" & bA & ")"
DoCmd.SetWarnings True
DoCmd.GoToRecord , , acNewRec
Forms!frmfaktura!broj = bA
Else
GoTo subProverka
End If
a ovo stavi na dugme kad snimis faktura
PreuzmiIzvorni kôd (Visual Basic): DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tblRedni_Broevi WHERE rbFaktura=" & Me.broj
DoCmd.SetWarnings True
Moras voditi racun da izbrises broj koi si iskoristio iz tabela tblRedni_Broevi