Je ne connais pas la cause qui fait que le choix 'Références' soit grisé
(Droit Administrateur ? code protégé ?), mais la routine qui suit
devrait te permettre de trouver le GUID de la référence manquante
(.IsBroken = True) :
Private Sub TestRefs()
Dim Ref As Reference
On Error Resume Next
For Each Ref In References
If Ref.IsBroken Then
MsgBox Ref.Guid & " " & Ref.IsBroken
Else
MsgBox Ref.Name & vbCrLf & Ref.Guid & " " & Ref.IsBroken
End If
Next
End Sub
cela vaut de l'or...
Mais quel est cet objet Reference ?
Etan au chili (espgnol) avec soft en anglais...
Pourriez-vous m'indiquer le nom en Anglais ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Ivan Pequeño, Ivan Pequeño a écrit :
Vous avez écrit:
Je ne connais pas la cause qui fait que le choix 'Références' soit grisé (Droit Administrateur ? code protégé ?), mais la routine qui suit devrait te permettre de trouver le GUID de la référence manquante (.IsBroken = True) :
Private Sub TestRefs() Dim Ref As Reference
On Error Resume Next For Each Ref In References If Ref.IsBroken Then MsgBox Ref.Guid & " " & Ref.IsBroken Else MsgBox Ref.Name & vbCrLf & Ref.Guid & " " & Ref.IsBroken End If Next End Sub
cela vaut de l'or... Mais quel est cet objet Reference ? Etan au chili (espgnol) avec soft en anglais... Pourriez-vous m'indiquer le nom en Anglais ?
D'avance... Merci beaucoup
L'objet Reference et la collection References sont bien en anglais, mais disponible, à ma connaissance, uniquement sous VBA ACCESS. Il n'est pas disponible sous VB6. C'est peut être là le problème ?
-- Cordialement,
Jacques.
Bonjour Ivan Pequeño,
Ivan Pequeño a écrit :
Vous avez écrit:
Je ne connais pas la cause qui fait que le choix 'Références' soit grisé
(Droit Administrateur ? code protégé ?), mais la routine qui suit
devrait te permettre de trouver le GUID de la référence manquante
(.IsBroken = True) :
Private Sub TestRefs()
Dim Ref As Reference
On Error Resume Next
For Each Ref In References
If Ref.IsBroken Then
MsgBox Ref.Guid & " " & Ref.IsBroken
Else
MsgBox Ref.Name & vbCrLf & Ref.Guid & " " & Ref.IsBroken
End If
Next
End Sub
cela vaut de l'or...
Mais quel est cet objet Reference ?
Etan au chili (espgnol) avec soft en anglais...
Pourriez-vous m'indiquer le nom en Anglais ?
D'avance... Merci beaucoup
L'objet Reference et la collection References sont bien en anglais, mais
disponible, à ma connaissance, uniquement sous VBA ACCESS. Il n'est pas
disponible sous VB6. C'est peut être là le problème ?
Je ne connais pas la cause qui fait que le choix 'Références' soit grisé (Droit Administrateur ? code protégé ?), mais la routine qui suit devrait te permettre de trouver le GUID de la référence manquante (.IsBroken = True) :
Private Sub TestRefs() Dim Ref As Reference
On Error Resume Next For Each Ref In References If Ref.IsBroken Then MsgBox Ref.Guid & " " & Ref.IsBroken Else MsgBox Ref.Name & vbCrLf & Ref.Guid & " " & Ref.IsBroken End If Next End Sub
cela vaut de l'or... Mais quel est cet objet Reference ? Etan au chili (espgnol) avec soft en anglais... Pourriez-vous m'indiquer le nom en Anglais ?
D'avance... Merci beaucoup
L'objet Reference et la collection References sont bien en anglais, mais disponible, à ma connaissance, uniquement sous VBA ACCESS. Il n'est pas disponible sous VB6. C'est peut être là le problème ?
