J'ai vraiment besoin d'un coup de main, je suis bloqué, alors s'il vous plait : AIDEZ-MOI!!!!!!!

J'ai "créé" avec access un petit programme qui me permet d'envoyer des mails à toutes les personnes qui sont séléctionnés dans une requete.
j'envoi un mail a une adresse qui se charge de changer le mail en texto. J'ai donc créé un pg qui sert a envoyer des textos avec access (wouah!)

(en réalité j'ai plutot pompé le programme d'un gars sur le site :le grenier access)

A la base le programme fonctionne.... mais quand je crée sur mon formulaire une etiquette de recherche, ça ne fonctionne plus !snif....
(ca par contre c'est de moi)

L'étiquette permet de faire une selection au sein de ma requete, pour ça j'ai ajouté dans ma requete ( dans les critères du champs qualification ): Comme "*" & [forms]![Envoi d'un sms avec message unique]![Recherche] & "*"


Voila le pg en vba

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Compare Database
Public Sub SendMail(ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean)
On Error Resume Next
DoCmd.SendObject acSendNoObject, , , strEmail, , , strObj, strMsg, blnEdit
End Sub
Private Sub Commande12_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
  Dim rst As DAO.Recordset
  Dim strSQL As String
  Dim strMessageType As String
  Dim strTitre As String
  Dim strMsg As String
  Dim titreMsg As String
  ' Titre du message
 strTitre = "{Tel}"
 
  ' Message type à expédier
  ' Les signes {...} seront remplacés plus loin par
  ' les infos Client
 
  strMessageType = Nz([Message unique], " ")
 
  ' Ouverture de la requête
  ' (seuls les clients ayant un email sont concernés ici)
  strSQL = "SELECT * FROM [Envoi d'un sms avec message unique]" _
    & " WHERE [Email] IS NOT NULL"
  Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
 
  ' Parcourir la liste des clients
  While Not rst.EOF
    ' Construire un message personnalisé
    ' (on remplace chaque {...} du message par les champs
    ' équivalents de la requête
    titreMsg = Replace(strTitre, "{Tel}", rst("Tel"))
    strMsg = Replace(strMessageType, "{Tel}", rst("Tel"))
 
 
 
    ' Expédier le mail
    SendMail rst("Email"), titreMsg, strMsg, False
 
    ' Client suivant
    rst.MoveNext
  Wend
 
  ' On libère les ressources
  rst.Close
  Set rst = Nothing
 
  ' Un petit message de confirmation
  MsgBox "Les messages ont bien été envoyé", vbInformation, "Envoi de SMS"
End Sub
Alors s'il vous plait les mecs : Vous pouvez me faire UN PETIT MIRACLE ?
Je voudrais vraiment faire une recherche sur mon formulaire et envoyer les mails en appuyant sur un bouton envoyer.