Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Reference remover code not working

Posted on 2004-09-13
6
Medium Priority
?
294 Views
Last Modified: 2012-06-27
I have this code that runs at startup to check references and it has been working fine. If for example they are missing the email files the code removes the reference. But today one of the systems had a reference to "shappmgrp 1.0 Type Library". The reference was missing when the system started and I got "Runtime Error 48 Error Loading DLL". As soon as I removed the reference (by opening the reference on tools) then the system ran fine. Why has the code been removing missing references but fails to remove this one?

Public Function Referencelist()
Dim ref As Reference
For Each ref In References
    If ref.IsBroken = True Then
        References.Remove ref
    End If
Next ref
End Function
0
Comment
Question by:kbutler
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 
LVL 2

Expert Comment

by:PendragonZero
ID: 12051655
did you try running your function before manually deleting the reference?
maybe there was gap where the reference slipped in

also, if you have a set list references that you use;
you could just remove references that are not in your set..
0
 
LVL 7

Accepted Solution

by:
Robert Sherman earned 2000 total points
ID: 12051865
Are you able to duplicate the problem by setting a reference to the one that caused the error and then closing and reopening the file?  

Given the error message ("..Error Loading DLL") and the fact that the Access Help File states for the Reference.isBroken property "The IsBroken property returns a Boolean value indicating whether a Reference object points to a valid reference in the Windows Registry."   I'm thinking that perhaps the issue is not an Access or VBA issue, but instead an issue with the Registry's reference and/or the offending DLL itself.

What OS version / Access version ?
0
 
LVL 27

Expert Comment

by:jjafferr
ID: 12052355
Hi kbutler,

Try this code:

Public Sub CheckMissingReferences()
   
    Dim loRef As Access.Reference
    Dim intCount As Integer
    Dim intX As Integer
    Dim blnBroke As Boolean
    Dim strPath As String
    Dim bBroke As Boolean
   
    On Error Resume Next
   
   
    Err.Clear

    'Count the number of references in the database
    intCount = Access.References.Count
   
    'Loop through each reference in the database and determine if the reference is broken.
    'If it is broken, remove the Reference and add it back.
    For intX = intCount To 1 Step -1
       
        Set loRef = Access.References(intX)
        Debug.Print loRef.Name, loRef.FullPath
       
        'Dont do Access
        With loRef
           
            If .IsBroken = True Then
                MsgBox loRef.Name & " is broken" & vbCrLf & loRef.FullPath, vbInformation, "Check"
            End If
           
        End With
    Next
   
    Set loRef = Nothing
   
    Exit Sub
   
rrError:
    MsgBox "Error " & Err.Number & " trapped." & vbCrLf & Err.Description, vbCritical, "Check"
End Sub


Hope this helps

Jaffer
0
Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

 

Author Comment

by:kbutler
ID: 12056446
PendragonZero
Yes I did run the function. Actually the function that is in production is much larger than what i showed here, but when  the user reported the probem I went in and removed everything execpt for what is listed above and put in debug mode to try and see what is happening. I  still got the error.

nyckidd
Yes I get the message evertime on the user machine. I can not recreate the error on any of my development machines. When I remove MSOutl.olb (which is the reference) Windows in nice enough to just creates another one.  I even tried removing everything that was MSoutl.* and somehow it still rebuilds it.
I think you might be right on the registry issue, I found it strange that all of my other user machines work fine with the reference removal code.
In fact I don't need the reference at all for my application. I just don't like surprises, and I thought the code would take care of all missing references.

jaffer
It looks to me like  the meat of your code is the same as mine, that is the reference object.  I get the error on ref.isbroken. I use autoexec to call the reference function and I have the function in a module with no other code. I did that to stop reference errors before the code could remove them. Why do you think your code will work when mine faild.  I am happy to try it but it is a fair amount of effort to get to the user machine and do a test.

0
 
LVL 7

Expert Comment

by:Robert Sherman
ID: 12058501
kbutler-

In your original question, you mentioned that the problem reference was the Shappmgrp Type Library.   Have you more recently discovered that it's not that particular reference that's causing the problem?    MSOutl.olb is the Outlook Type Library from what I can recall (don't have outlook installed on present machine so I can't confirm).   Is outlook used on the problem machine, and if so, is Outlook working without any noticeable problem?  

I'm wondering if the MSOutl.olb file needs to be re-registered (using RegSvr32 (path to)\msoutl.olb ).    The fact that your getting the error ON the ref.isbroken statement seems to further support the idea that something might be hosed on that machine, and if Windows File Protection is restoring those files after you delete them, then the copies it has in it's cache of protected files might also be corrupt.   (this is all off the top of my head, so I could be completely off base..)

Doesn't Office Setup have some facility for doing a repair on an installation?  Maybe running that would fix it.  
I'll give this some more thought and research if I have the time and post back if I come up with anything else.
 
0
 

Author Comment

by:kbutler
ID: 12059138
My mistake, i was also using MSOutl.olb for testing. The problem is with shappmgrp which is appwiz.cpl.
0

Featured Post

What Is Blockchain Technology?

Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…

715 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question