delete from subform again

H

hngo

Hi,

I have create the following code to delete a numbers of records from a
number of subforms. This work alright if the ALL subform has records in it.
If one does not have any records then an message of "no current record"
poping up and it doesn't delete any thing at all. My code is as follows:
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "you are about to IRREVERSIBLY DELETE *ALL*INFORMATION CONCERNING
THIS MAIN EQUIPMENT FROM THE DATABASE!?" ' Define message.
Style = vbOKCancel + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "ARE YOU 100% SURE!!!?" ' Define title.
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then ' User chose Ok.
Me.AllowDeletions = True
Me.FORM_conveyor_data.Form.Recordset.Delete
Me.Form_Brake.Form.Recordset.Delete
Me.Form_Backstop.Form.Recordset.Delete
Me.Form_Coupling.Form.Recordset.Delete
Me.Form_CV_GearBox.Form.Recordset.Delete
Me.FORM_CV_pulley.Form.Recordset.Delete
Me.Form_motor_equipment.Form.Recordset.Delete
Me.Form_Instrumentation.Form.Recordset.Delete
Me.[sub equipment details].Form.Recordset.Delete
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If

anybody has any idea

many thanks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

delete record in a main form and any link records in the subform 5
delete record from bubform again 1
Button to delete record on datasheet subform 5
delete code, subform 1
delete subform record 2
VBA to delete records in subform 3
Delete record error 3
after delete record, new record 1

Top