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