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