Traité l'enregistrement null
castours
Messages postés
2955
Date d'inscription
Statut
Membre
Dernière intervention
-
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Trouver ce code sur internet pour envoyer des emails
Apres un selection , j'essaie ce code
Mais access traitement des nulls.
Hors j'ai toujours la ligne pour un nouveau enregistrement qui vide.
Comment le traiter dans ce code
Je vous remercie de votre aide
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
Trouver ce code sur internet pour envoyer des emails
Apres un selection , j'essaie ce code
Mais access traitement des nulls.
Hors j'ai toujours la ligne pour un nouveau enregistrement qui vide.
Comment le traiter dans ce code
Je vous remercie de votre aide
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
A voir également:
- Traité l'enregistrement null
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Logiciel impression traite tunisie gratuit - Télécharger - Comptabilité & Facturation
- Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
- Enregistrement - Guide
- Comment couper un enregistrement audio - Guide
2 réponses
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