[ steve87 @ 03.02.2013. 21:10 ] @
Imam kod Code: 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? |