Discussion :

[nejisama8]

Bonjour,
je ne connai pas la methode pour recuper l avaleur du champ que j'obient dans le resulta de ma requete.
Je souhaiterai obtenir le champ mail d'un de mes membres:

Code :

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

1
2
Dim mailmembre as string
mailmembre = SELECT Mail  FROM MembreX WHERE MemberX.No_Membre = 1

Voila ce que je souhaiterai obtenir, afin d'envoyer un mail a ce membre.

Je ne sait pas si je me suis exprimer clairement mais je pense que vous comprendrer l'idée

[Mahefasoa]

Bonsoir et bienvenue sur le forum,

Bonjour,
je ne connai pas la methode pour recuper l avaleur du champ que j'obient dans le resulta de ma requete.
Je souhaiterai obtenir le champ mail d'un de mes membres:

Dim mailmembre as string
mailmembre = SELECT Mail FROM MembreX WHERE MemberX.No_Membre = 1

Voila ce que je souhaiterai obtenir, afin d'envoyer un mail a ce membre.

Je ne sait pas si je me suis exprimer clairement mais je pense que vous comprendrer l'idée

Utilises plutôt une fonction de regroupement de domaine telle que DLookUp.

Code :

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

1
2
 
mailmembre = nz(DLookUp("[Mail]", "MembreX", "[No_Membre]=1"),"")

J'ai utilisé la fonction nz pour renvoyer une chaîne vide lorsque la fonction DLookUp ne retrouve aucune valeur à renvoyer.
La syntaxe d'une fonction de regroupement de domaine est:

Code Syntaxe :

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

1
2
 
Fonction("[champ à renvoyer]", "table ou requête"[, "critère WHERE sans le mot clé WHERE"])

Le dernier argument n'est pas obligatoire.

Bon courage et @+

[nejisama8]

Je te remerci je vais essayer ca dès lundi.

[Bulbulle]

Bonjour,
Fonction très pratique mais comment fait-on quand il y a plusieurs conditions?? J'ai essayé en mettant (en prenant l'exemple de nejisama8) une virgule et en mettant une autre autre condition :

Code :

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

mailmembre = nz(DLookUp("[Mail]", "MembreX", "[No_Membre]=1", "[Nom_Membre] ='anciens'"),"")

et personnellement ca m'a indiqué qu'il y avait une erreur de synthase!!
Quelqu'un pourrait-il m'aider, s'il vous plait??

[nejisama8]

Voila j'ai essayer de modifier la solution qui ma été proposé afin de permettre de recuperer le mail de tous les membre qui sont present dans ma base de données: et ensuite envoyer un mail a tous les membre, cependant Access plante dès que j'active la fonction.

Voila ma fonction :

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
Private Sub Envoyer_Click()
Dim Mes As String
Dim Sujet As String
Dim cpt As Integer
Dim mailmembre As String
Dim Mails As String
Mes = Te_Mail
Sujet = Te_Sujet
cpt = 1
 
While cpt <> Me.txt_1
mailmembre = Nz(DLookup("[Mail]", "MembreX", "[No_Membre]=" & cpt), "")
    If mailmembre = "" Then
    Else
        Mails = Mails + mailmembre + ";"
        MsgBox (Mails)
    End If
Wend
MsgBox (Mails)
DoCmd.SendObject acSendNoObject, , , Mails, , , Sujet, Mes, False
End Sub

[Mahefasoa]

Bonsoir,
@Bulbulle
Lorsque plusieurs critères entrent dans la partie Critère WHERE de la fonction, il suffit de les relier par un opérateur logique AND ou OR ou XOR ou autre selon le cas. Dans ton cas, c'est sans doute AND qu'il faut utiliser.

Code :

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

1
2
 
mailmembre = nz(DLookUp("[Mail]", "MembreX", "[No_Membre]=1 AND [Nom_Membre] ='anciens'"),"")

@nejisama8
Ne serait-il pas préférable d'exécuter pas-à-pas ton code pour déterminer où exactement il y a bug? Je veux bien te croire que ton code plante mais il faut déterminer la ligne de code à erreur et la raison de cette erreur. Pour information, tu peux placer un point d'arrêt au niveau de la première ligne de la procédure et lorsque l'événement se produit, le code s'arrête. Pour le continuer pas-à-pas, tu dois utiliser la touche de fonction F8. Tu sauras à coup sûr quelle ligne est responsable du "plantage".

Bon courage et @

[Bulbulle]

Merci beaucoup!! Ca marche!!