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
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
Patrick Philippot
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
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
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
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" a écrit dans le message de news:
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
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" <DIP@discussions.microsoft.com> a écrit dans le message de news:
D8513801-0256-4CF2-920E-44A0C81D0363@microsoft.com...
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
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" a écrit dans le message de news:
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
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
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