Missing references in VBA code

[S. van Beek]

Dear reader,

I still have a problem with my reference libraries.

In my frond end application a check procedure for missing references is
available.

The problem I confronted with is that in case there is a missing reference
each VBA code in the frond end runs into an error, also the reference check
procedure.

After unable the tick box in the VBA reference form for the missing
reference library the check procedure runs perfect.

How can I unable the tick box (remove tick in tick box) in the VBA reference
form for the missing (broken) reference before VBA code runs into an error.

Thanks for any help.

Kind regards,

Simon van Beek

[Douglas J. Steele]

I gave you an answer for this a few hours ago. Did you need complete code?

Untested air-code:

Dim intLoop As Integer
Dim refCurr As Reference

For intLoop = References.Count To 1 Step -1
Set refCurr = References(intLoop)
If refCurr.IsBroken Then
References.Remove refCurr
End If
Next intLoop

(Note that you need to loop backwards through the collection, since if you
delete, say, reference 2, what used to be reference 3 becomes reference 2
and you'll end up skipping it)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"S. van Beek" <S.******@HCCnet.nl> wrote in message
news:43*********************@reader2.nntp.hccnet.n l...

Dear reader,

I still have a problem with my reference libraries.

In my frond end application a check procedure for missing references is
available.

The problem I confronted with is that in case there is a missing reference
each VBA code in the frond end runs into an error, also the reference
check
procedure.

After unable the tick box in the VBA reference form for the missing
reference library the check procedure runs perfect.

How can I unable the tick box (remove tick in tick box) in the VBA
reference
form for the missing (broken) reference before VBA code runs into an
error.

Thanks for any help.

Kind regards,

Simon van Beek

[S. van Beek]

Douglas,

Tanks for your help, but the question how to remove the broken reference
remains.

The code
If refCurr.IsBroken then
Shows the broken reference, so far so goot, but the next stap
Reference.Remove refCurr
Gives an error
Error no.: 17
Error description: Can't perform requested operation"

The question remains how to remove the tick from the tick box in the VBA
code.

Tanks for any suggestion.

Kind regards,
Simon van Beek
"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> schreef in bericht
news:F7********************@rogers.com...

I gave you an answer for this a few hours ago. Did you need complete code?

Untested air-code:

Dim intLoop As Integer
Dim refCurr As Reference

For intLoop = References.Count To 1 Step -1
Set refCurr = References(intLoop)
If refCurr.IsBroken Then
References.Remove refCurr
End If
Next intLoop

(Note that you need to loop backwards through the collection, since if you
delete, say, reference 2, what used to be reference 3 becomes reference 2
and you'll end up skipping it)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"S. van Beek" <S.******@HCCnet.nl> wrote in message
news:43*********************@reader2.nntp.hccnet.n l...

Dear reader,

I still have a problem with my reference libraries.

In my frond end application a check procedure for missing references is
available.

The problem I confronted with is that in case there is a missing reference each VBA code in the frond end runs into an error, also the reference
check
procedure.

After unable the tick box in the VBA reference form for the missing
reference library the check procedure runs perfect.

How can I unable the tick box (remove tick in tick box) in the VBA
reference
form for the missing (broken) reference before VBA code runs into an
error.

Thanks for any help.

Kind regards,

Simon van Beek

[Douglas J. Steele]

I'm sure I've had it work in the past, but I'm afraid I don't have the time
to try and create a situation where I have a broken reference to test right
now.

As I believe I said before, it's generally a poor idea to write your
application to remove broken references. Far better is to ensure that your
references don't break. You do this by having a minimal set of references,
and using Late Binding wherever possible.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"S. van Beek" <S.******@HCCnet.nl> wrote in message
news:43*********************@reader20.nntp.hccnet. nl...

Douglas,

Tanks for your help, but the question how to remove the broken reference
remains.

The code
If refCurr.IsBroken then
Shows the broken reference, so far so goot, but the next stap
Reference.Remove refCurr
Gives an error
Error no.: 17
Error description: Can't perform requested operation"

The question remains how to remove the tick from the tick box in the VBA
code.

Tanks for any suggestion.

Kind regards,
Simon van Beek
"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> schreef in bericht
news:F7********************@rogers.com...

I gave you an answer for this a few hours ago. Did you need complete
code?

Untested air-code:

Dim intLoop As Integer
Dim refCurr As Reference

For intLoop = References.Count To 1 Step -1
Set refCurr = References(intLoop)
If refCurr.IsBroken Then
References.Remove refCurr
End If
Next intLoop

(Note that you need to loop backwards through the collection, since if
you
delete, say, reference 2, what used to be reference 3 becomes reference 2
and you'll end up skipping it)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"S. van Beek" <S.******@HCCnet.nl> wrote in message
news:43*********************@reader2.nntp.hccnet.n l...

> Dear reader,
>
>
>
> I still have a problem with my reference libraries.
>
> In my frond end application a check procedure for missing references is
> available.
>
> The problem I confronted with is that in case there is a missing reference > each VBA code in the frond end runs into an error, also the reference
> check
> procedure.
>
> After unable the tick box in the VBA reference form for the missing
> reference library the check procedure runs perfect.
>
>
>
> How can I unable the tick box (remove tick in tick box) in the VBA
> reference
> form for the missing (broken) reference before VBA code runs into an
> error.
>
>
>
> Thanks for any help.
>
>
>
> Kind regards,
>
> Simon van Beek
>
>