Hello
J'ai un soucis avec le passage d'un tableau en paramètre d'une fonction.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Public Sub PopulateFromLDAP (resultSet)
' Get all informations from resulset
Do While Not resultSet.EOF Or resultSet.BOF
FirstName = ExtractData(resultSet.Fields("givenName"))
LastName = ExtractData(resultSet.Fields("sn"))
Email = ExtractData(resultSet.Fields("mail"))
resultSet.MoveNext
Loop
end sub
Private function ExtractData (valeur)
If IsArray(valeur) Then
For i = 0 To UBound(valeur)
ExtractData = valeur(i) 'Erreur à ce niveau
Next
Else
ExtractData = ""
End If
end function |
J'ai un plantage à la ligne ou je récupère la valeur (valeur(i)) avec le message suivant :
Nombre d`arguments ou affectation de propriété incorrects: 'valeur'
est-ce que quelqu'un a une idée ?
merci d'avance
Partager