Private Sub BrojFakt_AfterUpdate()

On Error GoTo Err_Command52_Click

Dim rst As Recordset
Dim strSQL As String
       
strSQL = "SELECT * FROM tblKIF WHERE tblKIF.BrojFakt ='" & Me.BrojFakt & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
         
MsgBox rst!BrojFakt    ------->>>>> OVAJ MSGBOX AKO IZBACIM ONDA MI NE RADI
         
If rst.RecordCount < 0 Then
              
              
Else
MsgBox "Faktura sa tim brojem postoji u bazi!", vbInformation

End If
          
Exit_Command52_Click:
    Exit Sub

Err_Command52_Click:
    Rem MsgBox "Ne postoji"
    Resume Exit_Command52_Click
End Sub