Dim R
R = MsgBox("Brišeš ovaj red pšodataka?  ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2, "NAPOMENA")

If R = vbYes Then
Me.Brisanje = 1
Me.RecordSource = Me.RecordSource
End If