Private Sub Command2_Click()
If MsgBox("Jeste li sigurni", vbYesNo, "Potvrda brisanja") = vbYes Then
    DoCmd.RunSQL "DELETE * FROM Korisnik WHERE RedniBrojKorisnika = '" & Forms!Brisanje.RedniBrojKorisnika & "';"
    Forms!Brisanje.Requery
    Forms!Brisanje.Refresh
End If
DoCmd.Close acForm, "PotvrdaBrisanja"
End Sub