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

If R = vbYes Then
N = N + 1
ReDim Preserve UndoN(N) As Integer
Me.Brisanje = 1
UndoN(N) =[color=#FF0000] ImeTvogPoljaPrimarnogKljuca[/color]
Me.RecordSource = Me.RecordSource
End If