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.
Le filtre demandé à partir de la liste déroulante sur le formulaire pose problème.
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]));
Lorsque je lance la fonction, j'ai le message d'erreur suivant:
Si jenleve le filtre du =[Formulaires]![Email]![TypeClient] alors ca se passe bien.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Trop peu de paramètres.1 attendu
MErci pour votre aide.
Partager