Utilisation de DLookup en VBA

bonjour

j'ai trouve sur http://starec.developpez.com/tuto/fo...maines/#LIII-E une aide pour crée

Code:

---

secteurdefaut = DLookup("SECTEUR_3D_DEFAUT", "CHOIXDEFAUTSECTEUR", "PSEUDO_SALARIE=[Forms]![frmdummy]![NOMSALARIE]")

---

avec pour requete source CHOIXDEFAUTSECTEUR :

Code:

---

1 2 3

SELECT APPEL_SALARIE.SECTEUR_3D_DEFAUT, APPEL_SALARIE.PSEUDO_SALARIE FROM APPEL_SALARIE WHERE (((APPEL_SALARIE.PSEUDO_SALARIE)=[Forms]![frmdummy]![NOMSALARIE]));

---

je souhaite savoir comment avoir le même résultat sans l'utilisation de ma requete CHOIXDEFAUTSECTEUR ( et donc pouvoir la supprimer)

qui peux m'aide??

Salut

Il suffit de remplacer le nom de ta requête par le nom de ta table

Code:

---

secteurdefaut = DLookup("SECTEUR_3D_DEFAUT", "APPEL_SALARIE", "PSEUDO_SALARIE=" &[Forms]![frmdummy]![NOMSALARIE])

---

Je ne connais pas la structure de ta table, mais vu le nom du champ sur lequel s'appuie le critère, je suppose qu'il s'agit d'un champ texte, et il faudrait dans ce cas encadrer la valeur avec des apostrophes.

Code:

---

secteurdefaut = DLookup("SECTEUR_3D_DEFAUT", "APPEL_SALARIE", "PSEUDO_SALARIE='" & [Forms]![frmdummy]![NOMSALARIE] & "'")

---

Note que le critère doit reconstituer une chaine valide. Il faut donc la construire par concaténation.

Merci pour ta solution sa marche trés bien pour ma 1ere requete mais pour ma 2eme j'ai un probleme "incompatibilité de type"

Code:

---

secteurdefaut = DLookup("SECTEUR_3D_DEFAUT", "APPEL_SALARIE_AGENCE", "PSEUDO_SALARIE='" & [Forms]![frmdummy]![NOMSALARIE] & "'" And "NUM_SOCIETE_3D=" & [Forms]![Gestion Secteur]![CHOIX])

---

je suis sur que sa proviens de "NUM_SOCIETE_3D" qui est un champ numerique mais je ne sais pas ce qui faut que je rentre pour que sa marche tu peux m'aide??

Bonjour

A priori tu as des soucis avec la concaténation.

J'écrirais comme cela :

Code:

---

secteurdefaut = DLookup("SECTEUR_3D_DEFAUT", "APPEL_SALARIE_AGENCE", "PSEUDO_SALARIE='" & [Forms]![frmdummy]![NOMSALARIE] & "' And NUM_SOCIETE_3D=" & [Forms]![Gestion Secteur]![CHOIX])

---

Philippe

merci bcp le probleme etait bien un probleme de concaténation merci encore