Doug Steeles reference

http://www.accessmvp.com/djsteele/AccessReferenceErrors.html

http://www.rogersaccesslibrary.com/knowledge.html
MissingReferences.zip 

References MDA Wizard
http://www.mvps.org/access/modules/mdl0022.htm

For detailed info
http://www.trigeminal.com/usenet/usenet026.asp?1033


This may work to re-add references
you could modify code if you know correct reference paths
This may not work in MDE's
Might correct missing DAO 3.6 from 3.51

Public Sub FixUpRefs()
'
   Dim loRef As Access.Reference
   Dim intCount As Integer
   Dim intX As Integer
   Dim blnBroke As Boolean
   Dim strPath As String

   On Error Resume Next

   '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)
    'display reference path
     Debug.Print Access.References(intX).FullPath
     With loRef
       blnBroke = .IsBroken
       If blnBroke = True Or Err <> 0 Then
         strPath = .FullPath
         With Access.References
           .Remove loRef
           .AddFromFile strPath
         End With
       End If
      End With
   Next
End Sub 

--- In [email protected], verly yuli <[EMAIL PROTECTED]> 
wrote:
> hi all..l
> i have trouble to change references on msacess with
> code
> could anyone give a simple code?
> 
> thank you for all..
> 
> regards warmest
> 
> verly yuli





------------------------ Yahoo! Groups Sponsor --------------------~--> 
<font face=arial size=-1><a 
href="http://us.ard.yahoo.com/SIG=12hurps4t/M=362131.6882499.7825260.1510227/D=groups/S=1705115370:TM/Y=YAHOO/EXP=1123966328/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org
">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life 
- brought to you by One Economy</a>.</font>
--------------------------------------------------------------------~-> 

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/AccessVBACentral/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 


Reply via email to