Pocetnik sam u Access-u i VBA, pa bih molio za malu pomoć. Ovo je kod brisanja recorda:
Private Sub Del_Click()
On Error GoTo Err_Del_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Del_Click:
Exit Sub
Err_Del_Click:
MsgBox Err.Description
Resume Exit_Del_Click
End Sub
E, sad ja sam hteo da napravim svoj kod, da se ne pojavljuje standardne poruke nego one koje ja napisem:
Private Sub cmdDel_Click()
Dim Odgovor As Integer
Odgovor = MsgBox("Sigurni ste da zelite da obrisete podatke?", vbYesNo, "Paznja!")
If Odgovor = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
Cancel = True
End If
End Sub
Vidite već koji me deo muči, kako to uraditi?