RÉCUPÉRATION DE DONNÉE DE L'ACTIVE DIRECTORY SOUS ACCESS
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
-
11 sept. 2008 à 11:18
AlainGarcia Messages postés 1 Date d'inscription mardi 16 novembre 2010 Statut Membre Dernière intervention 28 février 2011 - 28 févr. 2011 à 11:11
AlainGarcia Messages postés 1 Date d'inscription mardi 16 novembre 2010 Statut Membre Dernière intervention 28 février 2011 - 28 févr. 2011 à 11:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/47904-recuperation-de-donnee-de-l-active-directory-sous-access
https://codes-sources.commentcamarche.net/source/47904-recuperation-de-donnee-de-l-active-directory-sous-access
28 févr. 2011 à 11:11
En Access 2003, j'obteins le message d'erreur suivant à l'exécution de la ligne 46 :
Erreur automation
Le domaine spécifié n'existe pas ou n'a pas pu être contacté
Cela proviendrait-il d'un problème de droit accès au LDAP ?
Merci pour vos réponses.
18 sept. 2008 à 19:24
'dans la déclaration des variables
Dim ucap as String, phone as string
'dans les propriétés recherchées des utilisateurs
phone = (objuser.telephoneNumber)
ucap = mid(nom,1,1)
'dans la requête sql, je remplace par exemple prenom par phone
sql = "Insert Into lognames2 Values('" & login & "','" & nom & "','" & phone & "','" & org & "'," & validite & ",'" & expi & "')"
Ces simples modifications ne génèrent PAS d'erreur mais la table créée est... vide.
Peux-tu tester chez toi et le cas échéant modifier ton fichier access avec 3 colonnes supplémentaires "phone, mobile, cap" dans la table en adaptant la requête en conséquence? SVP
Merci d'avance
18 sept. 2008 à 18:55
ensuite si tu as des messages d'erreur envoye moi un message ça sera plus simple^^
18 sept. 2008 à 13:33
Par exemple, j'aimerais rajouter 3 colonnes dans la table lognames2: je crée donc mes 2 colonnes, je les configure et je paramètre dans la macro les champs correspondants (telephoneNumber et Mobile de l'AD). Résultat: plus aucune donnée ne s'ajoute mais aucun message d'erreur.
Peux-tu m'expliquer comment faire???
p.s.: seul petit bémol à mon sens: arrêter d'utiliser une nomenclature française (nom last et prenom first... ;o)) lol
11 sept. 2008 à 12:22
11 sept. 2008 à 11:18
Tu dois déclarer chacune de tes variables explicitement.
Lorsque tu écris ceci
Dim objconn, objRS, objuser As Object
seul objuser est considéré comme Object. Les autres sont Variant.
Il faut donc écrire comme ceci
Dim objconn As Object, objRS As Object, objuser As Object
C'est la même chose pour les String et autres