How to Permanently Uncheck a Reference Box

[Rich NG]

I have an application in which I need to remove the "Microsoft ActiveX
Plugin" by unchecking that box under VBA Tools > Reference.

I can uncheck the box, and run the application. However, I cannot save the
setting so that this box is permanently unchecked. (In order words, when I
exit from Access and re-enter, the Reference box is rechecked.)

Please help resolve this.

Thanks,
Rich

 

[Alex Dybenko]

Hi,
perhaps you have this activex control on some form, so first you have to
delete it from all forms/reports and then you can delete reference

--
Best regards,
___________
Alex Dybenko (MVP)
http://alexdyb.blogspot.com
http://www.PointLtd.com

 

[Rich NG]

Alex,

I am using "standard" Access form and report objects: buttons, list boxes,
combo boxes, text boxes, subforms, rectangles, etc. I am not using any of
the additional objects (i.e., those that show by clicking on the "More
Controls" tool).

Are any of those standard objects an Active X control?

Thanks,
Rich

 

[Douglas J Steele]

Are you sure that you didn't try to use an additional control at some point
in time?

 

[Rich NG]

That is very possible ... the original application started under Access95 !

Is there a way I can scan my files to find out what the offending control(s)
are?

 

[Douglas J Steele]

Try something like the following untested air-code:

Public Sub ListCustomControls()

Dim dbCurr As Database
Dim ctlCurr As Control
Dim frmCurr As Form
Dim docCurr As Document

Set dbCurr = CurrentDb()
For Each docCurr In dbCurr.Containers("Forms").Documents
DoCmd.OpenForm docCurr.Name, acDesign
Set frmCurr = Forms(docCurr.Name)
For Each ctlCurr In frmCurr.Controls
If TypeOf ctlCurr Is CustomControl Then
Debug.Print ctlCurr.Name & " on " & frmCurr.Name
End If
Next ctlCurr
DoCmd.Close acForm, Forms(docCurr.Name).Name, acSaveYes
Next docCurr

End Sub