Traité l'enregistrement null
Fermé
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
-
Modifié par castours le 21/01/2013 à 12:29
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 21 janv. 2013 à 14:18
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 21 janv. 2013 à 14:18
A voir également:
- Traité l'enregistrement null
- Enregistrement vidéo écran - Guide
- Youtube enregistrement vidéo - Guide
- Null brawl ios - Forum iPhone
- Null brawl - Forum Jeux vidéos smartphones
- Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
2 réponses
castours
Messages postés
2955
Date d'inscription
lundi 18 septembre 2006
Statut
Membre
Dernière intervention
31 août 2019
217
21 janv. 2013 à 12:28
21 janv. 2013 à 12:28
voici le code
Private Sub Commande7_Click()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Message As String
Set bd = CurrentDb
Set rs = bd.OpenRecordset("UtilisateursClique", dbOpenSnapshot)
With rs
.MoveFirst
Do While Not .EOF
Message = Message + !AdresseMail + ";"
.MoveNext
Loop
If MsgBox("Voulez vous confirmer l'envoie du mail de jfcb92 ?", vbInformation + vbYesNo, " ") = vbYes Then
DoCmd.SendObject acSendTable, "UtilisateursClique", acFormatHTML, Message, , , "Ceci est un Mail", "jfcb92 vient de vous envoyer un mail", False
.Close
MsgBox " ", vbInformation, "Votre mail a été envoyé avec succès"
Else
End If
End With
End Sub
Private Sub Commande7_Click()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Message As String
Set bd = CurrentDb
Set rs = bd.OpenRecordset("UtilisateursClique", dbOpenSnapshot)
With rs
.MoveFirst
Do While Not .EOF
Message = Message + !AdresseMail + ";"
.MoveNext
Loop
If MsgBox("Voulez vous confirmer l'envoie du mail de jfcb92 ?", vbInformation + vbYesNo, " ") = vbYes Then
DoCmd.SendObject acSendTable, "UtilisateursClique", acFormatHTML, Message, , , "Ceci est un Mail", "jfcb92 vient de vous envoyer un mail", False
.Close
MsgBox " ", vbInformation, "Votre mail a été envoyé avec succès"
Else
End If
End With
End Sub
Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
21 janv. 2013 à 14:18
21 janv. 2013 à 14:18
Bonjour castours,
Veuillez, s'il vous plaît, mettre ce code en résolu, merci pour le forum,
Heliotte.
Veuillez, s'il vous plaît, mettre ce code en résolu, merci pour le forum,
Heliotte.