Forms.NomFormulaire!NomChamps... Ok ss Access, mais pas en VBA

Question

Function Mailtracking() 
 
Dim db As Database 
Dim rs As DAO.Recordset 
Dim Nom As String 
Dim Prenom As String 
Dim Mail As String 
Dim Tracking As String 
Dim X 
 
Set db = CurrentDb 
Set rs = db.OpenRecordset("SELECT Code_Client, Nom_client, Prenom_Client, Mail_Client, Num_Tracking_Cmd FROM CLIENTS, COMMANDES_CLIENTS WHERE (((CLIENTS.Code_Client)=([COMMANDES_CLIENTS].#Code_Client) AND (CLIENTS.Code_Client)=Forms.[COMMANDES_CLIENTS]![Code_Client]));") 
 
Nom = rs.Fields("Nom_Client") 
Prenom = rs.Fields("Prenom_Client") 
Mail = rs.Fields("Mail_Client") 
Tracking = rs.Fields("Num_Tracking") 
 
MsgBox ("Test:" & Nom & Prenom & Mail & Tracking & "Fin") 
  
'X = Shell("msimn.exe " & "/mailurl:mailto:" & Mail, vbNormalFocus)' 
 
End Function

Voila, j'avais d&#233;j&#224; poster cette question dans forms, mais aucune reponse n'avait reussi a m'aider, je post donc dans VBA.
Donc en fait, tt mon code est Ok, ma Requette aussi, SAUF qu'elle fonctionne lorsque je la test ss Access, mais elle ne fonctionne pas en VBA, apparement il  ne comprend pa ma condition avec le Forms... 
Help...

cs_EBArtSoft · Answer

il n'y a pas d'accesseur forms dans vba et puis de quoi parle t'on
marche dans access mais pas dans vba ce qui signifie que tu l'utilise
dans quel prog ?

@+


E.B.

BUZZ2K · Answer

Lol c'est clair que je me suis mal exprim&#233;, en fait toute ma base &#224; &#233;t&#233; faite sous access, et est utilis&#233;e sous access, mais, pour effectuer certain traitement comme par exemple le MassMailing (recuperation des infos client et adresses mail dans la base puis lancement d'outlook avec message pr&#233;programm&#233; et liste des adresses mails a qui envoyer d&#233;ja remplie) ou ici l'envoi de message auto a la modification d'une commande, je doit utiliser VBA pour faire du code un peu plus pousser.
donc pour resumer, j'utilise access mais je fait appel a VBA pour certain traitements.

et comme tu semble le dire, j'ai deja tester les Forms, avec plein de syntaxe differente pour placer le "!" et rien n'y fait, &#224; l'execution il  me sort un truc du genre trop peu de parametre, un requis, ce qui signifie qu'il ne comprend pas le forms...

Est-ce vraiment foutu ? nan qd meme pas j'espere...

Merci pour votre aide !

P.S: Encore une fois je sent que je me suit mal exprim&#233;... :D

BUZZ2K · Answer

Merde j'ai oublier de preciser, Voyant que le probleme venait de ma requette, je l'ais test&#233;e directement dans Access, en SQL, Elle fonctionne, me donne bien les infos que je recherche, mais ne marche plus une fois pass&#233;e en VBA...

cs_CanisLupus · Answer

Hum, il y a un mot qui me g&#232;ne : "MassMailing". C'est en g&#233;n&#233;ral les spammeurs et diffuseurs de virus qui emploient cette technique.
Bien-s&#251;r &#231;a peut &#234;tre employ&#233; par une entreprise pour informer ses clients ou ses employ&#233;s mais, dans ce cas, je doute qu'elle emploie VBA et ACCESS mais plut&#244;t les listes ou groupes de diffusion du style LDAP et cie.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

BUZZ2K · Answer

Mdr !
Salut CaniLupus !
Merci de repondre &#224; mon post bien que tu ne te soit clairement egar&#233;, mon post ou je parle de MassMailing c'est un vieu post ke j'ai ressortie des flots, que j'avai poster en decembre (non personne n'as trouv&#233; la solution depuis), et non d&#233;sol&#233; de te l'apprendre, ce n'est pas dans un but mal intentionn&#233;.
Je m'explique, dans le cadre de mon BTS Info Gestion, je doit effectuer plusieurs Action Pro, la premiere etant pour la societe d'un amis qu'il vient de lancer, au statut de microsoci&#233;t&#233;, il m'as demander de lui creer une Base De donner afin de gerer ses stock, commande Frs et Commandes Client, Journal des Vente, Journal des achats, statistique par client, Catalogue des produits Etc, ET et oui et c la qu'intervient le mass mailing, car il souhaitait envoyer son catalogue par mail a ses clients. L'emploi de MassMailing n'est qu'une invention de ma part en faite, je l'ai nommer ainsi car il touche bocou d epersonne dans sa base de donn&#233;es. Ici dans le probleme que j'expose, ma Fonction s'appelle, regarde bien, MailTracking, car il souhaite envoyer un mail automatique au client des qu'il aura rentr&#233; le numero de tracking du colis dans la Bdd...
Lors du mass mailing, je n'avait pas rencontr&#233; de Pb car ma requette c'effectuait sur une Table. 
Tien voila le code si tu veut...

Option Compare Database
Function MassMailing()


Dim db As Database
Dim rs As DAO.Recordset
Dim ChaineMail As String
Dim X


Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Mail_Client FROM CLIENTS WHERE Envoi_Mail_Client=False AND Mail_Client<>'';")


ChaineMail = ""
Do While Not rs.EOF
    ChaineMail = ChaineMail & rs(0) & "; "
    rs.MoveNext
Loop


X = Shell("C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & ChaineMail, vbNormalFocus)


End Function

Tu notera bien les Mail_Client FROM CLIENTS et non je ne suis pas un spammeur MDr
Voila la mon Pb se situe je le repete encore car je veut effectuer la requette dans une table, mais avec comme critere, l'id d'un client contenu dans un formulaire ouvert...

Voila premier malentendu r&#233;solu, passon au second, je vient de voir ton second post (je C/C le message dans les deux topic...)


Donc oui maintenant je vais avoir besoin de PC Anywhere eh non !, pas dans un but mal intentionn&#233; encore, car en se moment j'effectue mon stage en entreprise dans une societe informatique en Isere.
Cette dernier utilisait jusqu'a present des batch pour effectuer un transfert entre 2Pc, pour un magasin d'outillage, ils zippaient plusieur fichiers en un Zip, et l'envoyait sur le second pc et le dezippait la bas.
Dernierement ils sont pass&#233; a Pc Anywhere, et l'usage de sBatch est devenu impossible et non pratique, ils me demande donc de creer un prog qui g&#233;nererai un Exe (adapt&#233; a un cas precis pas forcement celui du magasin d'outillage, il fau tke le log serve pr d'autre cas...) avec les info qu'il souhaiterai, c'est la raison pour lakel il faut que mon programme g&#233;nere un Exe a partir d'une Page VB (en fait avec mon prog je devrai arriver a generer tt le code n&#233;c&#233;ssaire et a le rentrer dans une variable ou autre pour le colelr dan sune page et generer le EXE...

Voila c'est aussi simple que sa,
J'espere qu etu me croit maintenant, car la il y a vraiment eu un malentendu...
Aller sans rancunes MErci ++ -BUZZ-

cs_CanisLupus · Answer

OK, maintenant, c'est clair. Mais tu avoueras que ce genre de questions, sans &#234;tre parano, peut susciter certaines pens&#233;es.
Bon, pour ce qui est de cr&#233;er un prog qui g&#233;n&#233;rerait un exe en vb ou vba, je ne peux pas t'aider. A la limite, &#224; la place du zip, tu envoies un autoextractible.
Pour l'envoi par mail, si tu en as toujours besoin, je te posterai un exemple ici, juste le temps que je le retrouve, ce soir, je n'ai plus trop le temps.

@++

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

BUZZ2K · Answer

Re Oui, je consoit que tu ait pu mal interpreter mon histoire et me smultipost, car c'etait ambigue c pour sa que j'ai mit sans rancunes ;) par contre pour envoyer les mail, je n'ai aucun soucis, mon pc vien jsute du fait d efaire comprendre a VBA qu'une de mes contraintes est dans le Formulaire actuellement ouvert au moment de l'execution du prog... MErci piur  les reponse ;) 

on vas essayer de res&#233;parer les deux Sujet car la on fait du Dbl Post a chaque fois lol ;-)

Forms.NomFormulaire!NomChamps... Ok ss Access, mais pas en VBA

7 réponses

Discussions similaires