OVH Cloud OVH Cloud

requete par vb

6 réponses
Avatar
keke95
Salut,
je cherche comment intégrer une requête de par "Mavar", si c'est posiible dans
DoCmd.SendObject acSendTable, "TransfertXls", acFormatTXT, "Mavar", , , "Suivi Client", , Tru
Je ne sais pas comment on fait avec DLookUp, si c'est avec ça
Dim mavar As Varian
mavar = DLookup("[MAIL_TRANS]", "EmailSeul", "[NOM_TRANS]= gilles"

A partir de la requete "EmailSeul", je souhaiterais récupérer l'adresse email (MAIL_TRANS) de gilles(NOM_TRANS=gilles

En faisant comme ça, rien ne se passe, Access me met un message d'erreur sur la ligne de DLookU
erreur '2001', opération annulé

Si vous savez comment je dois procéder pour pourvoir intégrer l'adresse de gilles....
Je vous remercie par avanc
Aurélien

6 réponses

Avatar
Pat
bonjour
mettre Gilles entre cote
mavar = DLookup("[MAIL_TRANS]", "EmailSeul", "[NOM_TRANS]
= 'gilles'")

-----Message d'origine-----
Salut,
je cherche comment intégrer une requête de par "Mavar",
si c'est posiible dans:

DoCmd.SendObject acSendTable, "TransfertXls",
acFormatTXT, "Mavar", , , "Suivi Client", , True

Je ne sais pas comment on fait avec DLookUp, si c'est
avec ça.

Dim mavar As Variant
mavar = DLookup("[MAIL_TRANS]", "EmailSeul", "[NOM_TRANS]
= gilles")


A partir de la requete "EmailSeul", je souhaiterais
récupérer l'adresse email (MAIL_TRANS) de gilles

(NOM_TRANS=gilles)

En faisant comme ça, rien ne se passe, Access me met un
message d'erreur sur la ligne de DLookUp

erreur '2001', opération annulée

Si vous savez comment je dois procéder pour pourvoir
intégrer l'adresse de gilles.....

Je vous remercie par avance
Aurélien
.



Avatar
keke95
OK, j'ai plus l'erreur. Merc
Par contre, maintenant, dans l'adresse du destinataire, j'ai "mavar" au lieu de l'adresse de gilles

Dim mavar As Varian
mavar = DLookup("[MAIL_TRANS]", "EmailSeul", "[NOM_TRANS]='gilles'"

DoCmd.SendObject acSendTable, "TransfertXls", acFormatTXT, "mavar", , , "Suivi Client", , Tru

Comment faut il nommer "mavar" dans DoCmd.SendObject pour pouvoir appeller la vairable créée

Merc
Aurélie
Avatar
Enlève les "" autour de mavar
bonne journée

DoCmd.SendObject acSendTable, "TransfertXls", acFormatTXT,
mavar, , , "Suivi Client", , True

-----Message d'origine-----
OK, j'ai plus l'erreur. Merci
Par contre, maintenant, dans l'adresse du destinataire,
j'ai "mavar" au lieu de l'adresse de gilles.


Dim mavar As Variant
mavar = DLookup("[MAIL_TRANS]", "EmailSeul", "[NOM_TRANS]
='gilles'")


DoCmd.SendObject acSendTable, "TransfertXls",
acFormatTXT, "mavar", , , "Suivi Client", , True


Comment faut il nommer "mavar" dans DoCmd.SendObject
pour pouvoir appeller la vairable créée?


Merci
Aurélien



.



Avatar
keke95
Ca ne marche toujours pas. Rien ne s'affiche maintenant dans le destinataire

Voici ma procédure

Public Sub EnvoiMail(

Dim mavar As Varian
mavar = DLookup("[MAIL_TRANS]", "EmailSeul", "[NOM_TRANS]='gilles'"

DoCmd.SendObject acSendTable, "TransfertXls", acFormatTXT, mavar, , , "Suivi Client", , Tru

End Su

Je ne sais pas d'où vient l'erreu
Merci de me proposer une solution pour me débloque
Aurélie
Avatar
keke95
c bon, g trouvé le p
Merci kan me
Une erreur de débutan, j'avé juste fé dé opi de requete é javé pa pri la bon
Merc
Bonne journé
+
Avatar
keke95
Par contre un petit truc qui ne marche pas, c'est quand je veux mettre deux destinataires.J'ai essayé comme cela mais ça ne marche pas

Dim mavar As Varian
Dim mavar1 As Varian
mavar = DLookup("[MAIL_TRANS]", "EmailTous", "[NOM_TRANS]='gilles'"
mavar1 = DLookup("[MAIL_TRANS]", "EmailTous", "[NOM_TRANS]='pierre'"

DoCmd.SendObject acSendTable, "TransfertXls", acFormatTXT, mavar;mavar1, , , "Suivi Client", , Tru

J'ai une erreur sur le point-virgule séparant mavar et mavar

Quelqu'un pourrait-il m'aide
Merci d'avanc
Aurélie