Liaison tardive

Le
DIP
Bonjour,
J'ai ce code et j'obtiens toujours un message d'erreur concernant la liaison
tardive voir code position LT. Comment faire pour résoudre ce problème. Merci
d'avance
Dim Connection As PDMWConnection
Dim cxt As Integer, cnt As Integer
Dim adoc As PDMWDocument
Dim alldocs As PDMWDocuments
Dim proj As PDMWProject
Dim projs As PDMWProjects
Dim count As Integer
Dim i As Object
Connection = New PDMWConnection
Connection.Login("test", "test", "XX")
cxt = Connection.Projects.Count
cnt = Connection.Users.Count
projs = Connection.Projects

For Each proj In projs
Dim zz As String
zz = (proj.Name.ToString)
alldocs = Connection.Documents(zz)

For Each adoc In alldocs
count = adoc.Properties.Count
For i = 0 To count - 1

Debug.Print(adoc.Properties.Item(i).Name.ToString())
'-->LT
If adoc.Properties.Item(i).Name.ToString() = "Author"
Then '-->LT
Debug.Print(adoc.Properties.Item(i).value.ToString())
End If
Next i
Next
Next

Salutations
DIP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Patrick Philippot
Le #12250111
Bonjour,

j'obtiens toujours un message d'erreur
concernant la liaison tardive



1. Alors pourquoi ne pas nous le faire voir? Il est toujours plus facile de
répondre quand on a un message d'erreur explicite à lire :-) . Quand je vais
chez mon garagiste, je lui décris la panne, je ne lui dis pas: "ça ne marche
pas" :-)). Plus vos questions seront précises, plus les réponses le seront.
2. Tout le monde ne connaît pas le modèle objet de PDMWorks, ni même son
existence. Quelques infos aideraient sûrement.
3. Je constate que vous ne testez pas Count avant d'entrer dans la boucle.
Quid si Count = 0? Rien de bon, me semble-t-il :-) .

Cordialement.

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Patrice
Le #12250101
Probablement parce que la variable i est déclarée en tant qu'objet. De
préférence toujours poster le message d'erreur exact.

--
Patrice

"DIP"
Bonjour,
J'ai ce code et j'obtiens toujours un message d'erreur concernant la
liaison
tardive voir code position LT. Comment faire pour résoudre ce problème.
Merci
d'avance
Dim Connection As PDMWConnection
Dim cxt As Integer, cnt As Integer
Dim adoc As PDMWDocument
Dim alldocs As PDMWDocuments
Dim proj As PDMWProject
Dim projs As PDMWProjects
Dim count As Integer
Dim i As Object
Connection = New PDMWConnection
Connection.Login("test", "test", "XX")
cxt = Connection.Projects.Count
cnt = Connection.Users.Count
projs = Connection.Projects

For Each proj In projs
Dim zz As String
zz = (proj.Name.ToString)
alldocs = Connection.Documents(zz)

For Each adoc In alldocs
count = adoc.Properties.Count
For i = 0 To count - 1

Debug.Print(adoc.Properties.Item(i).Name.ToString())
'-->LT
If adoc.Properties.Item(i).Name.ToString() = "Author"
Then '-->LT

Debug.Print(adoc.Properties.Item(i).value.ToString())
End If
Next i
Next
Next

Salutations
DIP


Patrick Philippot
Le #12250091
Patrice wrote:
Probablement parce que la variable i est déclarée en tant qu'objet. De
préférence toujours poster le message d'erreur exact.



Ah, je ne l'avais pas remarqué celui-là. Ma vue baisse :-) .

--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Publicité
Poster une réponse
Anonyme