Solved

Trouble with AddFromGuid

Posted on 2010-11-08
5
720 Views
Last Modified: 2012-05-10
Good morning Geniuses!

I'm having a problem with a PDFCreator reference in Access 2003.  

When this application was originally rolled out to the users, PDFCreator was one of the references that was checked (included).  But when the users tried to run the app for the first time, they would wind up with a broken reference.  The only way to correct it was to uncheck the reference on the user's pc, then recheck it and all would be fine.

We tried to correct this by trying to trap for (and correct) broken references.  This was not successful.  We still had to make house calls to uncheck and recheck the reference.

This time around, I unchecked the reference before rolling the app out.  The code I added is supposed to check for the reference and if not found (not checked), it was supposed to add it from the GUID (see code below).  But it also doesn't work.  The reference remains unchecked even though it is not found.  

Since I grabbed the GUID from my own PC during testing, do you think it is not working because the GUID on my user's pc is different?  Or its location is different?  Or version?

I guess I really don't understand how the GUID works...

Thanks in advance for the help!

 
Dim ref As Reference

Dim PDFfound As Boolean



PDFfound = False



For Each ref In References

   If ref.name = "PDFCreator" Then

      PDFfound = True

   End If

Next ref



If Not PDFfound Then

   ReferenceFromGUID ("PDFCreator")

End If



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



Function ReferenceFromGUID(strFilename As String) As Boolean 



If strFilename = "PDFCreator" Then

   References.AddFromGuid "{1CE9DC08-9FBC-45C6-8A7C-4FE1E208A613}", 0, 0

   ReferenceFromGUID = True

End If



Exit_ReferenceFromGUID:

   Exit Function



Error_ReferenceFromGUID:

   MsgBox Err & ": " & Err.description

   ReferenceFromGUID = False

   Resume Exit_ReferenceFromGUID

   

End Function

Open in new window

0
Comment
Question by:RBianca
  • 3
  • 2
5 Comments
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 34085150
try this revision






Function ReferenceFromGUID(strFilename As String) As Boolean 

on error resume next

If strFilename = "PDFCreator" Then

do

   References.AddFromGuid "{1CE9DC08-9FBC-45C6-8A7C-4FE1E208A613}", 0, 0

   ReferenceFromGUID = True

   if err=0 then 

        ReferenceFromGUID=true

        exit do

   end if

loop while false

End If





end function

Open in new window

0
 

Author Comment

by:RBianca
ID: 34085268
Hi, Capricorn1.
I will try this and let you know how it goes.  Just so I understand, are you thinking that it is a timing issue?
rb.
0
 
LVL 119

Accepted Solution

by:
Rey Obrero earned 250 total points
ID: 34085339
btw, i forgot to comment this line

'  ReferenceFromGUID = True

Function ReferenceFromGUID(strFilename As String) As Boolean 

on error resume next

If strFilename = "PDFCreator" Then

do

   References.AddFromGuid "{1CE9DC08-9FBC-45C6-8A7C-4FE1E208A613}", 0, 0

   '  ReferenceFromGUID = True

   if err=0 then 

        ReferenceFromGUID=true

        exit do

   end if

loop while false

End If





end function

Open in new window

0
 

Author Closing Comment

by:RBianca
ID: 34087674
Thank you!  It did the trick!  Now if you could just explain why...?
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 34087782
you were right at the timing issue, so you need to make the codes persistent until you get an error=0 which means that there is no error.
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
I see at least one EE question a week that pertains to using temporary tables in MS Access.  But surprisingly, I was unable to find a single article devoted solely to this topic. I don’t intend to describe all of the uses of temporary tables in t…
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.

706 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

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now