Prikazi cijelu temu 23.07.2021 22:48
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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):
  1.  
  2.     Dim db As Database
  3.     Dim rs As Recordset
  4.     Dim bA As Long
  5.    
  6.     Dim bPlus As Integer
  7.         bPlus = 1
  8. subProverka:
  9.        
  10.         bA = Nz(DMax("broj", "tblFaktura"), 0) + bPlus
  11.         bPlus = bPlus + 1
  12. Set db = CurrentDb
  13. Set rs = db.OpenRecordset("SELECT * FROM tblRedni_Broevi WHERE brFaktura=" & bA)
  14.    
  15.     If rs.RecordCount = 0 Then
  16.        DoCmd.SetWarnings False
  17.        DoCmd.RunSQL "INSERT INTO tblRedni_Broevi (brFaktura) VALUES(" & bA & ")"
  18.        DoCmd.SetWarnings True
  19.        DoCmd.GoToRecord , , acNewRec
  20.        Forms!frmfaktura!broj = bA
  21.     Else
  22.       GoTo subProverka
  23.     End If
  24.    


a ovo stavi na dugme kad snimis faktura

PreuzmiIzvorni kôd (Visual Basic):
  1.  DoCmd.SetWarnings False
  2.     DoCmd.RunSQL "DELETE * FROM tblRedni_Broevi WHERE rbFaktura=" & Me.broj
  3.     DoCmd.SetWarnings True

Moras voditi racun da izbrises broj koi si iskoristio iz tabela tblRedni_Broevi