[AccessD] Removing a missing reference

A.D.:

Thank you for the routine.  I'm out of town this week but will incorporate
it into the app when I return and give it a test.

Best regards,

Rocky


Original Message:
-----------------
From: A.D.TEJPAL adtp at hotmail.com
Date: Wed, 16 Aug 2006 01:11:46 +0530
To: accessd at databaseadvisors.com, adtp at airtelbroadband.in
Subject: Re: [AccessD] Removing a missing reference


Rocky,

    Revised sample code in command button's click event is given below.

A.D.Tejpal
---------------

=======================================
Private Sub CmdTest_Click()
    Dim ref As Reference
    
    For Each ref In Application.References
        If ref.IsBroken = True Then
            MsgBox "Missing Reference: " & ref.Name & _
                        vbCrLf & "Path: " & ref.FullPath & _
                        vbCrLf & "(This Reference has now been removed)"
            Application.References.Remove ref
        End If
    Next
End Sub
=======================================


----- Original Message ----- 
From: A.D.TEJPAL 
To: Access Developers discussion and problem solving 
Cc: ADT 
Sent: Wednesday, August 16, 2006 00:42
Subject: Re: [AccessD] Removing a missing reference


Rocky,

    If it is a question of merely clearing the check box for each missing
reference, skeleton subroutine as given below, is found to do the job.

    Command button named CmdTest is located on a plain form with no other
code in its module that is in any way dependant upon any of the likely
missing references (This ensures that there is no problem in running the
particular subroutine in question).

Best wishes,
A.D.Tejpal
---------------

Code in test form's module
=======================================
Private Sub CmdTest_Click()
    Dim ref As Reference
    
    For Each ref In Application.References
        If ref.IsBroken = True Then
            MsgBox "Missing Reference: " & ref.Name & _
                        vbCrLf & "Path: " & ref.FullPath & _
                        vbCrLf & "(This Reference has now been removed)"
            References.Remove ref

            ' Statement (A) below gives compile Error
            ' However, the purpose is served 
            ' even if it is kept disabled
            ' RemoveReference = True     (A)
        End If
    Next
End Sub
=======================================

  ----- Original Message ----- 
  From: Charlotte Foust 
  To: Access Developers discussion and problem solving 
  Sent: Monday, August 14, 2006 20:59
  Subject: Re: [AccessD] Removing a missing reference


  Are you saying that it finds a reference and can tell it's broken but
  throws an error when you try to remove it? Have you checked to be sure
refCurr is not nothing?

  Charlotte Foust 

  -----Original Message-----
  From: accessd-bounces at databaseadvisors.com
  [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
  - Beach Access Software
  Sent: Tuesday, August 08, 2006 12:45 PM
  To: Access Developers discussion and problem solving
  Subject: Re: [AccessD] Removing a missing reference

  Marty:

  Access.References.Remove refCurr still generates error: -2147319779 -
  Object library not registered.  

  Rocky
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .