FOX028:
evo ovako bi to mogao odraditi
Code:
Private Sub Command33_Click()
Dim Poruka As String
On Error GoTo Err_Command33_Click
DoCmd.SetWarnings False 'Iskljucuje upozorenje o brisanju zapisa
'Mozes ubaciti svoju poruku
Poruka = MsgBox("Zelite li da izbrisete trenutni zapis?", _
vbYesNo, "Brisanje zapisa")
'Ako je u poruci kliknuto na Yes onda brise zapis u suprotnom procedura se prekida
If Poruka = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
'Ovde se ponovo ukljucuje poruka o upozorenju
DoCmd.SetWarnings True
Exit_Command33_Click:
Exit Sub
Err_Command33_Click:
MsgBox Err.Description
Resume Exit_Command33_Click
End Sub