Discussion :

[hugo69]

Bonjour,

Je suis un peu novice en vb.

J'ai une fonction qui se lance sur un clic.
Le but de cette fonction est d'exporter la liste des emails clients dans un email.

Voici la fonction en question:

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
Dim db As Database, rs As Recordset
 
Set db = CurrentDb
Set rs = db.OpenRecordset("Email")
 
Dim list As String
 
Do
list = list & rs![EmailFormatte] & ";"
rs.MoveNext
 
Loop While Not rs.EOF
'Loop While rs.RecordCount < 90
 
testing = list
Nb = rs.RecordCount
 
 
If [testing] <> "" Then
Application.FollowHyperlink "mailto:" & [testing]
End If
testing = Null

La requete Email filtre la categorie de clients selectionnée sur un formulaire.

Je fais un petit tracail sur l'email car celui ci est enregistré avec un mailto: devant.

Code :

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

1
2
3
SELECT Mid([Email],9,Len([Email])-9) AS EmailFormatte, Client.idTypeClient
FROM Client
WHERE (((Mid([Email],9,Len([Email])-9)) Is Not Null) AND ((Client.idTypeClient)=[Formulaires]![Email]![TypeClient]));

Le filtre demandé à partir de la liste déroulante sur le formulaire pose problème.
Lorsque je lance la fonction, j'ai le message d'erreur suivant:

Code :

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

Trop peu de paramètres.1 attendu

Si jenleve le filtre du =[Formulaires]![Email]![TypeClient] alors ca se passe bien.

MErci pour votre aide.

[hugo69]

ou sinon de façon plus simple:

Comment faire fonctionner ceci:

Code :

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

Set rs = db.OpenRecordset("SELECT Mid([Email],9,Len([Email])-9) AS EmailFormatte, Client.idTypeClient FROM Client WHERE (((Mid([Email],9,Len([Email])-9)) Is Not Null) AND ((Client.idTypeClient)=Me![TypeClient] )); ")

la partie =Me![TypeClient] etant la source du problème.

[=JBO=]

Bonjour hugo69,

Partons pour la façon simple...

Code :

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

1
2
3
4
5
6
 
Dim SQL as String, RS as DAO.Recordset
 
SQL="SELECT Mid([Email],9,Len([Email])-9) AS EmailFormatte, Client.idTypeClient FROM Client WHERE Mid([Email],9,Len([Email])-9) Is Not Null  AND Client.idTypeClient= " & Me![TypeClient] & ";"
 
Set RS = db.OpenRecordset(SQL)

... sachant que le ";" final n'est pas obligatoire ici.

[hugo69]

ca marche impeccable.

Je te remercie grandement.

Je fais bcp de php et ca se ressemble, mais certaines normes sont toujours différentes.

bonne soirée à toi, tu m'as bcp aidé.