bogdan 12.09.2019 20:05
Predmet:ACCESS - rad vise korisnika sa istom formom

Access 2003 rad u visekorisnickom sistemu. Baza sa podacima je na serveru firme, a unos vrse dva korisnika svako sa svojim lap topom preko VPN-a. U isto vreme unose nove podatke odnosno putne
naloge, dakle preko iste forme. Forma ima 8 podformi. Primarni kljuc u formi je ID - autonumber,
U formi postoje jos 2 polja (nalog i broj vrste dokumenta koji ne mogu biti dupli), tipa su number,
a povecavaju se za 1 preko funkcije DMAX. Kad oba korisnika krenu da unose podatke, baza
obezvedi razlicite ID ali oba dobiju iste brojeve naloga i vrste dokumenta te jedan ne moze da
zapise u bazu. Molim za pomoc?

Gjoreski 14.09.2019 10:12
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

Postavi primer pa cemo resiti ovako nismo vidoviti pa nemozemo raditi.
Stavi primer od baza koja koristis i forma koja ti pravi problem.
Podatci u bazi nisu nam bitni.

bogdan 14.09.2019 13:18
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

Kad dva korisnika u isto vreme unose novi putni nalog formira se isti broj naloga i broj vrste dokumenta
i ne moze se zapisati jer je dupli broj (nalog i broj vrste dokumenta su definisani kao jedinstveni)
Forma frmZagPutniNalog dogadjaj on Current. Ulaz sa bogdan bogdan ili shift-enter
Prilozi:
PN19VEGA_BE.rar (Velicina datoteke:848.35 KB)
Access-rad vise korisnika sa istom bazom - objasnjenje.txt (Velicina datoteke:82 Bajt)

Getsbi 14.09.2019 17:55
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

Uzgred, postoji problem sa skidanjem fajlova tipa .rar na ovom forumu. Probaj da ga zipuješ sa 7zip.

https://www.7-zip.org/download.html

PoÅ¡to ne mogu da otvorim mogu samo da dam predlog. Novo otvoreni zapis na serveru bi trebalo da se zaključa i da ne može da se ažurira tabela dok se unos tog zapisa ne zavrÅ¡i.

Drugi način je da broj naloga bude složen, a ne samo prost brojač. Znači trebalo bi da izgleda bar ovako:
mesto nastanka + brojac = BrojNaloga
022 + 00001 = 02200001
011 + 00001 = 01100001

bogdan 14.09.2019 19:49
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

Ako se tabela zakljuca kako drugi korisnik da radi sa istom formom. Mozete li mi dati primer
kako se vrsi zakljucavanje, a po mogucnostu u frmZagPutniNalog, dogadjaju on current.
Prilozi:
Access-rad vise korisnika sa istom bazom - objasnjenje.txt (Velicina datoteke:134 Bajt)

Gjoreski 14.09.2019 20:25
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

Danas ne mogu,sutra cu pogledati

Gjoreski 15.09.2019 22:40
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

Ne ide attach preveliko je evo samo cod
Prvo u baza napravis tabela tblBrojeve
Polja su:
1. ID_Broj - AutoNumber - Primarni kljuc
2. bZPN_NALOG - Number
3. bZPN_BROJ - Number

PreuzmiIzvorni kôd (Visual Basic):
  1. ' Ova ide na taster NOVI na forma frmZagPutniNalogSve
  2. Private Sub cmdNovi_Click()
  3. On Error GoTo err_cmdNovi_Click
  4.     Dim db As Database
  5.     Dim rs As Recordset
  6.     Dim bA As Long
  7.     Dim bB As Long
  8.     Dim bPlus As Integer
  9.         bPlus = 1
  10. subProverka:
  11.        
  12.         bA = Nz(DMax("[ZPN_NALOG]", "tblZagPutniNalog"), 0) + bPlus
  13.         bB = Nz(DMax("[ZPN_BROJ]", "tblZagPutniNalog"), 0) + bPlus
  14.         bPlus = bPlus + 1
  15. Set db = CurrentDb
  16. Set rs = db.OpenRecordset("SELECT * FROM tblBrojeve WHERE bZPN_NALOG=" & bA & " AND bZPN_BROJ=" & bB)
  17.    
  18.     If rs.RecordCount = 0 Then
  19.        DoCmd.SetWarnings False
  20.        DoCmd.RunSQL "INSERT INTO tblBrojeve (bZPN_NALOG,bZPN_BROJ) VALUES(" & bA & "," & bB & ")"
  21.        DoCmd.SetWarnings True
  22.        DoCmd.OpenForm "frmZagPutniNalog", , , , acFormAdd
  23.        Forms!frmZagPutniNalog!ZPN_NALOG = bA
  24.        Forms!frmZagPutniNalog!ZPN_BROJ = bB
  25.     Else
  26.       GoTo subProverka
  27.     End If
  28.    
  29. exit_cmdNovi_Click:
  30.     Exit Sub
  31.    
  32. err_cmdNovi_Click:
  33.     MsgBox Err.Description
  34.     Resume exit_cmdNovi_Click
  35.    
  36. End Sub
  37.  
  38. ' Ovo dole zamenis u frmZagPutniNalog
  39.  
  40. Private Sub Form_Current()
  41.     If Me.NewRecord Then
  42.        
  43.         Me.Caption = "PUTNI NALOG - NOVI UNOS"
  44.         Me.AllowAdditions = True
  45.         Me.ZPN_NALOG.Enabled = True
  46.         Me.ZPN_RA.SetFocus
  47.         'Me.LOCK_USER = M_Oper.OperID
  48.        'Me.LOCK_TIME = Now()
  49.        'Me.lblVD.Caption = ""
  50.        Me.lblRA.Caption = ""
  51.         Me.lblOS.Caption = ""
  52.         Me.lblRE.Caption = ""
  53.        
  54.     Else
  55.         If Not IsNull(Me.ZPN_VD) Then
  56.             Me.lblVD.Caption = Me.ZPN_VD.Column(1)
  57.         Else
  58.              Me.lblVD.Caption = ""
  59.         End If
  60.         If Not IsNull(Me.ZPN_RA) Then
  61.             Me.lblRA.Caption = Me.ZPN_RA.Column(1) & " " & Me.ZPN_RA.Column(2)
  62.         Else
  63.              Me.lblRA.Caption = ""
  64.         End If
  65.         If Not IsNull(Me.ZPN_OS) Then
  66.             Me.lblOS.Caption = Me.ZPN_OS.Column(1)
  67.         Else
  68.              Me.lblOS.Caption = ""
  69.         End If
  70.         If Not IsNull(Me.ZPN_RE) Then
  71.             Me.lblRE.Caption = Me.ZPN_RE.Column(1)
  72.         Else
  73.              Me.lblRE.Caption = ""
  74.         End If
  75.            
  76.         If Me.ZPN_KNJIZEN = -1 Then
  77.             Me.Caption = "PUTNI NALOG - KNJIZEN - PREGLED"
  78.             Me.AllowAdditions = False
  79.             Me.AllowEdits = False
  80.             Me.AllowDeletions = False
  81.             'Me.Stav.Enabled = False
  82.            Me.cmdKNJIZENJE.Enabled = False
  83.             Me.cmdBrisanje.Enabled = False
  84.             Me.cmdZatvori.Enabled = True
  85.             Me.cmdSnimi.Enabled = False
  86.             Me.cmdPonisti.Enabled = False
  87.             Me.Command39.Enabled = False
  88.             'Me.Command47.Enabled = False
  89.            Me.Stav.Form.AllowAdditions = False
  90.             Me.Stav1.Form.AllowAdditions = False
  91.             Me.Stav2.Form.AllowAdditions = False
  92.             Me.Stav.Form.AllowEdits = False
  93.             Me.Stav1.Form.AllowEdits = False
  94.             Me.Stav2.Form.AllowEdits = False
  95.             Me.Stav.Form.AllowDeletions = False
  96.             Me.Stav1.Form.AllowDeletions = False
  97.             Me.Stav2.Form.AllowDeletions = False
  98.             Me.Stav4.Form.AllowAdditions = False
  99.             Me.Stav5.Form.AllowAdditions = False
  100.             Me.Stav6.Form.AllowAdditions = False
  101.             Me.Stav4.Form.AllowEdits = False
  102.             Me.Stav5.Form.AllowEdits = False
  103.             Me.Stav6.Form.AllowEdits = False
  104.             Me.Stav4.Form.AllowDeletions = False
  105.             Me.Stav5.Form.AllowDeletions = False
  106.             Me.Stav6.Form.AllowDeletions = False
  107.             Me.Stav7.Form.AllowAdditions = False
  108.             Me.Stav7.Form.AllowEdits = False
  109.             Me.Stav7.Form.AllowDeletions = False
  110.              Me.Stav3.Form.AllowAdditions = False
  111.             Me.Stav3.Form.AllowEdits = False
  112.             Me.Stav3.Form.AllowDeletions = False
  113.         Else
  114.             Me.Caption = "PUTNI NALOG - IZMENE/BRISANJE " & Me.ZPN_NALOG
  115.             Me.AllowAdditions = True
  116.             Me.AllowDeletions = True
  117.             Me.AllowEdits = True
  118.             Me.Stav.Enabled = True
  119.             Me.ZPN_NALOG.Enabled = True
  120.             Me.cmdKNJIZENJE.Enabled = True
  121.             Me.cmdBrisanje.Enabled = True
  122.             Me.cmdZatvori.Enabled = True
  123.             Me.cmdSnimi.Enabled = True
  124.             Me.cmdPonisti.Enabled = True
  125.             Me.Command39.Enabled = True
  126.             'Me.Command47.Enabled = True
  127.            Me.Stav.Form.AllowAdditions = True
  128.             Me.Stav1.Form.AllowAdditions = True
  129.             Me.Stav2.Form.AllowAdditions = True
  130.             Me.Stav.Form.AllowEdits = True
  131.             Me.Stav1.Form.AllowEdits = True
  132.             Me.Stav2.Form.AllowEdits = True
  133.             Me.Stav.Form.AllowDeletions = True
  134.             Me.Stav1.Form.AllowDeletions = True
  135.             Me.Stav2.Form.AllowDeletions = True
  136.              Me.Stav4.Form.AllowAdditions = True
  137.             Me.Stav5.Form.AllowAdditions = True
  138.             Me.Stav6.Form.AllowAdditions = True
  139.             Me.Stav4.Form.AllowEdits = True
  140.             Me.Stav5.Form.AllowEdits = True
  141.             Me.Stav6.Form.AllowEdits = True
  142.             Me.Stav4.Form.AllowDeletions = True
  143.             Me.Stav5.Form.AllowDeletions = True
  144.             Me.Stav6.Form.AllowDeletions = True
  145.             Me.Stav7.Form.AllowAdditions = True
  146.             Me.Stav7.Form.AllowEdits = True
  147.             Me.Stav7.Form.AllowDeletions = True
  148.              Me.Stav3.Form.AllowAdditions = True
  149.             Me.Stav3.Form.AllowEdits = True
  150.             Me.Stav3.Form.AllowDeletions = True
  151.         End If
  152.     End If
  153. End Sub
  154.  
  155. Private Sub Form_Unload(Cancel As Integer)
  156.       DoCmd.SetWarnings False
  157.       DoCmd.RunSQL "DELETE * FROM tblBrojeve WHERE bZPN_NALOG=" & ZPN_NALOG & " AND bZPN_BROJ=" & ZPN_BROJ
  158.       DoCmd.SetWarnings True
  159. End Sub


Istestiraj pa javi sta je bilo

Gjoreski 17.09.2019 22:13
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

@Bogdan sta je bilo sa ovaj tvoj problem

bogdan 23.09.2019 20:08
Predmet:Re: ACCESS - rad vise korisnika sa istom formom

Postovani Gjoreski, tek veceras smo bili u mogucnosti da testiramo Vam predlog,
ugradili smo ga u program i test je pokazao da kad dvoje unose putne naloge u isto
vreme program FUNKCIONISE bez problema, jedinstevnost brojeva naloga i broja vrste dokumenta
obezbedjuje kao jedinstvene vrednosti pomocu pomocne tabele tblBrojeve.

Veliko hvala na pomoci i jos jednom izvinjenje sto je test dosao ovako kasno.