Private Sub Izmena_Click()
If IsNull(Me.staribod) Or Me.staribod = "" Or Me.staribod = 0 Then
MsgBox "Molim vas unesite STARI bod.", vbInformation, "Greška"
Me.staribod.SetFocus
Exit Sub
Else
If IsNull(Me.novibod) Or Me.novibod = "" Or Me.novibod = 0 Then
MsgBox "Molim vas unesite NOVI bod.", vbInformation, "Greška"
Me.novibod.SetFocus
Exit Sub
End If
End If
DoCmd.SetWarnings False
DoCmd.OpenQuery ("izmena")
DoCmd.SetWarnings True
On Error GoTo Err_izmena_Click
MsgBox "Uspešno ste izmenili bazu.", vbInformation, "Uspešno"
Me.staribod = 0
Me.novibod = 0
Exit_izmena_Click:
Exit Sub
Err_izmena_Click:
MsgBox Err.Description
Resume Exit_izmena_Click
End Sub
Zanima me da li može da se pokaze poruka koliko je rekorda izmenjeno kada se izvrši query izmena?