Private Sub NacinPlacanjaID_AfterUpdate()
Dim I As Integer
Dim criterij As String

criterij = "NacinPlacanjaID=" & Me.Fiskal    ' Number
I = DCount("[OrderID]", "tblProdaja", criterij) + 1
Select Case Me.Fiskal
Case 1      'Gotovina, fiskalni ra
un

If Me.FiskalniBroj = 0 Then
    Me.FiskalniBroj = I
End If

    'Me.FiskalFormat = I & "/" & DLookup("OznakaPP", "Q_Firma") & "/1"
 

Case Else   'Ostali na
ini plaanja
   
End Select
End Sub