Prikazi cijelu temu 16.04.2014 21:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?
Razlog preskakanja je to sto ako pogrijesis nacin placanja pa se vratis nazad da promijenis sada ce ponovo upisati broj koji je veci ne za 1 od trenutnog.
Najbolje bi bilo staviti sve na dfault value kao sto je Gjoreski predlozio medjutim kod tebe to nemoze koliko sam mogao zakljuciti jer ti ides redno za svaki nacin placanja zasebno pa se nemoze generisati broj prije odabira nacina placanja.
Preostaje ti da ovo svoje pokrpas:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub NacinPlacanjaID_AfterUpdate()
  2. Dim I As Integer
  3. Dim criterij As String
  4.  
  5. criterij = "NacinPlacanjaID=" & Me.Fiskal    ' Number
  6. I = DCount("[OrderID]", "tblProdaja", criterij) + 1
  7. Select Case Me.Fiskal
  8. Case 1      'Gotovina, fiskalni ra
  9. un
  10.  
  11. If Me.FiskalniBroj = 0 Then
  12.     Me.FiskalniBroj = I
  13. End If
  14.  
  15.     'Me.FiskalFormat = I & "/" & DLookup("OznakaPP", "Q_Firma") & "/1"
  16.  
  17.  
  18. Case Else   'Ostali na
  19. ini plaanja
  20.    
  21. End Select
  22. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.