KB186720 - ACC97: How to Force the IsBroken Property to Return True

MORE INFORMATION

To create an example so that IsBroken returns True, you must first create a broken reference. If you create a reference to an ActiveX control or any other library that has its own registry entry and the referenced library is deleted, you will see a standard error message when trying to use the IsBroken property. IsBroken is not able to return True to the Visual Basic for Applications procedure until the standard messages are masked with error trapping. If you do not trap for errors before using IsBroken in the second example, you will receive the following message:

Runtime Error 48: Error in Loading DLL

To create a broken reference for an ActiveX Control, follow these steps:

Start Microsoft Access and create a new blank database named DB1.mdb.
Create a new report based on any table or query.
On the Insert menu, click ActiveX Control.
Click "Snapshot Viewer Control, version 8.0," and then click OK.
Close the report. Do not save the changes.
Close the database.
Quit Microsoft Access.
Locate the Snapshot Viewer Control file, Snapview.ocx, in the \Windows\System folder (or in the \Winnt\System32 folder if you are using Microsoft Windows NT) and delete the file. Then, empty the Microsoft Windows Recycle Bin.
Restart Microsoft Access and open DB1.mdb, which you created in step 1.
Create a new module.

Type the following code in the new module:

        Public Function IsBrokenProperty()

        Dim ref As Reference

          ' Enumerate through References collection.
          For Each ref In References
          ' Check IsBroken property.
          On Error GoTo errorhandler:
             If ref.IsBroken = True Then
             ' Print the name of the reference and the fact that it is
             ' broken.
                 Debug.Print ref.Name & " is broken"
             End If
          Next ref

        Exit Function

        errorhandler:

        ' If the error received is 48 it's an error from the broken
        ' reference. Print the reference the fact it's broken and path to
        ' the Debug window.
        If Err.Number = 48 Then
           Debug.Print "Reference broken for: " & ref.FullPath
        End If

      End Function

On the Debug menu, click Compile Loaded Modules.
Save the Module as CheckIsBroken.
Press CTRL+G to open the Debug window.

Type the following in the Debug window, and then press ENTER:

?IsBrokenProperty ()

Note that in the Debug Window you receive one of the following messages, depending on your operating system:

       Reference broken for: C:\WINDOWS\SYSTEM\SNAPVIEW.OCX

        -or-

       Reference broken for: C:\WINNT\System32\SNAPVIEW.OCX

NOTE: If you have a reference to another Microsoft Access database and then delete the referred database, you can use a simple IF statement with the IsBroken property and the property will return True.

ACC97: How to Force the IsBroken Property to Return True

SYMPTOMS

RESOLUTION

MORE INFORMATION