Hello all,
I have made a form with a button to delete the current record.
When clicking the button, I get a errmsg "Reserved error" I don't know what
this means. And even though I have put "Me!Combo39.Req uery" instruction,
after deleting - the combobox still shows the name of the deleted person.
Furthermore, when closing the form and reopening again, it shows that the
record was not deleted ...
Can anybody help me with this? The coed is below ...
Very much appreciated ...
Private Sub Command54_Click ()
On Error GoTo Err_Command54_C lick
If MsgBox("Wil u werkelijk dit contact wissen?", _
vbQuestion + vbYesNo, "Please confirm...") = vbYes Then
DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuIte m acFormBar, acEditMenu, 6, , acMenuVer70
Me!Combo39.Requ ery
Me!Combo41.Requ ery
Form.Requery
End If
Exit_Command54_ Click:
Exit Sub
Err_Command54_C lick:
MsgBox Err.Description
Resume Exit_Command54_ Click
End Sub
I have made a form with a button to delete the current record.
When clicking the button, I get a errmsg "Reserved error" I don't know what
this means. And even though I have put "Me!Combo39.Req uery" instruction,
after deleting - the combobox still shows the name of the deleted person.
Furthermore, when closing the form and reopening again, it shows that the
record was not deleted ...
Can anybody help me with this? The coed is below ...
Very much appreciated ...
Private Sub Command54_Click ()
On Error GoTo Err_Command54_C lick
If MsgBox("Wil u werkelijk dit contact wissen?", _
vbQuestion + vbYesNo, "Please confirm...") = vbYes Then
DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuIte m acFormBar, acEditMenu, 6, , acMenuVer70
Me!Combo39.Requ ery
Me!Combo41.Requ ery
Form.Requery
End If
Exit_Command54_ Click:
Exit Sub
Err_Command54_C lick:
MsgBox Err.Description
Resume Exit_Command54_ Click
End Sub
Comment