Discussion :

[schwinny]

bonjour a tous.
j'ai un soucis sur lequel je bloque.
je veut en vba ajouter dans une variable la valeur d'un champs d'une table.

le pb est que je ne sais pas comment faire.

j'ai mis ce code

declaration d ela variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dim var as string

lancement de la requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
         Set reqdestinataire = CurrentDb.QueryDefs("mail_commercial")
        'definition de la clé pour le test...'
         reqdestinataire.Parameters("Clé") = parametre1
         reqdestinataire.Execute

la var parametre a bien la bonne valeur

et quand je lance tout ca, il me met le titre de mon topic a savoir: cannot rexecute a select query...

De plus je n'ai pas encore mis que mon champs var1 = var1 & le resultat de la requete ...

qqun peux maider svp?

[pgz]

Bonjour,

Sauf erreur de ma part, le message est clair. Ta requête est de type sélection, alors que la méthode Execute ne concerne que les requêtes de type Action.

TU veux faire quoi?


pgz

[schwinny]

executer la requete... c'est un select from.... et ca renvoie une valeur que je veux ajouter dans une variable.
tu saurai comment faire?

je prefererai la lancer a partir du vba etr la creer sour access, mais si je dois la declarer et lexecuter a partir du vba, tant pis, je vais pas etre plus chiant que ce que je suis ...


merci de ta reponse en tout cas

[pgz]

Bonjour,

Alors il y a bien une erreur. Tu dois plutôt écrire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaVariable = DLookUp("NomDuChamp","NomRequête", "Condition éventuelle")

La condition n'est pas nécessaire si ta requête ne renvoie qu'une valeur.

Bon courage,

pgz

[schwinny]

Pourrais tu etre un peu plus precis stp????

j'ai tester ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
        Set reqdestinataire = CurrentDb.QueryDefs("mail_commercial")
        'definition de la clé pour le test...'
        reqdestinataire.Parameters("Clé") = OAOREF
        Destinataire = DLookup("mail", "mail_commercial")

mais ca me marque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

opération annulé

[pgz]

Re,

Peux-tu
- montrer le SQL de la requête?
- dire ce qu'est AOOREF?

pgz

[pgz]

Sans ta réponse, je te conseillerais un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set reqdestinataire = CurrentDb.QueryDefs("mail_commercial")
        'definition de la clé pour le test...'
        ParametersChange "mail_commercial",reqdestinataire.Parameters("Clé") ,OAOREF
        Destinataire = DLookup("mail", "mail_commercial")

pgz

[schwinny]

Re,

Peux-tu
- montrer le SQL de la requête?
- dire ce qu'est AOOREF?

pgz

pour le sql de mlail_commercial c'est celui ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
SELECT Attachée_commerciale.mail
FROM Attachée_commerciale INNER JOIN Réclamation ON Attachée_commerciale.Code_attaché_com = Réclamation.Attachée_commerciale
WHERE (Attachée_commerciale.Code_attaché_com=[Clé]);

OAOREF est le code (cle primaire) de la personne dans la table réclamation. cette table permet d'avoir les infos du commercial, et la je demande son mail.

le code comm de la table reclamation est relié a code_attaché_comm dans la table attaché_comm
(dans ma table attachée_comm jai les champs code_attaché_comm, mail et nom



sinon ton code me marque sub ou fonction non definie...
il bug sur ParametersChange

jai pas activé une extensions dasn access?

[torNAdE]

je ne sais pas suis permis de dire mais pourkoi tu n'utilise pas quelque chose de type
Dim Db as DAO.Recordset

Sql= " TA REQUETE...."
Set Db= CurrentDb.OpenRecodset(Sql)

[pgz]

Excuse c'est parce que j'avais fait un essai en utilisant une fonction perso.

Au temps pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Destinataire = DLookup("mail", "mail_commercial";"Attachée_commerciale.Code_attaché_com= " & OAOREF & ");"

Si OAOREF est un entier long, et tu enlèves le paramètre de la requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT Attachée_commerciale.mail
FROM Attachée_commerciale INNER JOIN Réclamation ON Attachée_commerciale.Code_attaché_com = Réclamation.Attachée_commerciale;

[schwinny]

je ne sais pas suis permis de dire mais pourkoi tu n'utilise pas quelque chose de type
Dim Db as DAO.Recordset

Sql= " TA REQUETE...."
Set Db= CurrentDb.OpenRecodset(Sql)

merci du coup de main mais ce que je prefererais cest avoir ma requete non pas dans le vba mais dans access direct

mais merci a toi . sois pas gener de proposer des trucs cest ce a quoi sert le forum et cest tres gentil a toi de mavoir accordé 5mn

[schwinny]

pour la valeur c'est bon... le bon code est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Destinataire = DLookup("mail", "mail_commercial", "Attachée_commerciale.Code_attaché_com= " & OAOREF & "")

mais ca me marque toujours...

operation annulé

[pgz]

Sur quelle ligne du code?
Le debugueur se délenche?

pgz

[schwinny]

ben je sais sur quel lgne...

j'ai quand je clique sur le bouton une msgbox qui me dit: opération annulé...
et pas de debuggeur
voila mon code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
 
'passer a la ligne'
    Set rstTemp = Me.recordset
    With rstTemp
        'mise en relation variable/requete'
        Set reqtransfert = CurrentDb.QueryDefs("tranfert en_attente -  Réclamation")
        reqtransfert.Parameters("Clé") = OAORNO
        reqtransfert.Execute
 
 
                 '-----------------------------------------'
                'parametrage des destinataires des mails'
'                 Destinataire = "X@X.com ; X@X.com"
 
                 '-----------------------------------------'
 
 
 
    Destinataire = DLookup("mail", "mail_commercial", "Attachée_commerciale.Code_attaché_com= " & OAOREF & "")
 
 
    End With
 
 
 
              Réponse = MsgBox("Confirmer l'envoi d'un message pour la réclamation " & OAORNO & " à " & Destinataire, vbYesNo + vbQuestion, "CONFIRMATION SVP")
 
                If Réponse = vbYes Then
                       'generation du fichier snp pour piece jointe'
                        stDocName = "Voir la réclamation"
                        DoCmd.OutputTo acOutputReport, "Voir la réclamation", acFormatSNP, PieceJointe, False
                        'generation du fichier snp pour piece jointe'
                        LeMessage = "Voici en piece jointe la réclamation numéro " & OAORNO & " concernant le client " & OAALCU & " (numéro de client: " & OACUNO & ")." & "%0A" & "%0A" & "Bonne reception" & "%0A" & "L'équipe Logistique"
                        LObjet = "Réclamation numéro " & OAORNO & " (Saisie le " & OAOSDT & ", Traitée le "
 
                         EnvoieMail Destinataire, LObjet, LeMessage, PieceJointe
                End If

si je commente la ligne, ca marche...

je comprend pas.

peut etre aije pas activé une reference non?






EDIT: en mettant ca en code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Destinataire = Destinataire & DLookup("mail", "mail_commercial", "Attachée_commerciale.Code_attaché_com" = OAOREF)

, ca ne me met plus la msg box mais ca march epas. ca ne me recupere pas la valeur ...