D
david epsom dot com dot au
Trying to debug a remote installation. We are getting this error:
Method 'IsBroken' of object 'Reference' failed
Any Suggestions?
(david)
from this code:
(The error is not going to the error handler).
'-------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
On Error GoTo err_fcbr
Dim LibObject As Access.Reference
For Each LibObject In Application.References
If LibObject.IsBroken Or _
(LibObject.FullPath & "" = "") Or _
(LibObject.Name & "" = "") Then
bln_Broken = True
If LibObject.Kind = 0 Then
VBA.MsgBox "TypeLib reference failure. Cannot Continue.
Closing Down."
Else
VBA.MsgBox "Library Module not Found"
End If
Application.Quit 'this may not work anyway - it's an
object reference.....
End If
Next
Exit Sub
err_fcbr:
VBA.MsgBox "CTM Error Information..." & VBA.vbCrLf & VBA.vbCrLf _
& "Function: CheckBrokenRef" & VBA.vbCrLf _
& "Description: " & Err.Description & VBA.vbCrLf _
, VBA.vbInformation, "CTM Startup"
Application.Quit
Exit Sub
End Sub
Method 'IsBroken' of object 'Reference' failed
Any Suggestions?
(david)
from this code:
(The error is not going to the error handler).
'-------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
On Error GoTo err_fcbr
Dim LibObject As Access.Reference
For Each LibObject In Application.References
If LibObject.IsBroken Or _
(LibObject.FullPath & "" = "") Or _
(LibObject.Name & "" = "") Then
bln_Broken = True
If LibObject.Kind = 0 Then
VBA.MsgBox "TypeLib reference failure. Cannot Continue.
Closing Down."
Else
VBA.MsgBox "Library Module not Found"
End If
Application.Quit 'this may not work anyway - it's an
object reference.....
End If
Next
Exit Sub
err_fcbr:
VBA.MsgBox "CTM Error Information..." & VBA.vbCrLf & VBA.vbCrLf _
& "Function: CheckBrokenRef" & VBA.vbCrLf _
& "Description: " & Err.Description & VBA.vbCrLf _
, VBA.vbInformation, "CTM Startup"
Application.Quit
Exit Sub
End Sub