ACCESS SQL MAIL
DJ_OAKLEY
-
DJ_OAKLEY -
DJ_OAKLEY -
Slt à tous,
Voila j'ai une table MAIL_LIST avec comme champs:
num_mail numero auto cle primaire
mail texte
jour oui/non
nuit oui/non
divers oui/non
j'aimerai créer une requete SQL me permettant d'avoir un résultat comme ceci:
imaginons que j'ai 10 enregistrements ds ma table MAIL_LIST et je prendrai que les mails de jour qui sont au nb de 3:
toto@toto.fr
tata@tata.fr
titi@titi.fr
le résultat souhaité est le suivant:
toto@toto.fr;tata@tata.fr;titi@titi.fr
Peut on m'aider svp merci.
Cdt.
Voila j'ai une table MAIL_LIST avec comme champs:
num_mail numero auto cle primaire
mail texte
jour oui/non
nuit oui/non
divers oui/non
j'aimerai créer une requete SQL me permettant d'avoir un résultat comme ceci:
imaginons que j'ai 10 enregistrements ds ma table MAIL_LIST et je prendrai que les mails de jour qui sont au nb de 3:
toto@toto.fr
tata@tata.fr
titi@titi.fr
le résultat souhaité est le suivant:
toto@toto.fr;tata@tata.fr;titi@titi.fr
Peut on m'aider svp merci.
Cdt.
A voir également:
- ACCESS SQL MAIL
- Windows live mail - Télécharger - Mail
- Publipostage mail - Accueil - Word
- Live.fr mail - Forum Mail
- Créer une adresse mail hotmail - Guide
- Comment télécharger un mail - Guide
4 réponses
select mail texte from MAIL_LIST where jour = 'oui'
de plus ton champs nuit ne sert a rien si jour = non ca veut dire que c'est la nuit ;-)
evite les espaces avec les noms de tes attributs ca risque de te jouer des tours
de plus ton champs nuit ne sert a rien si jour = non ca veut dire que c'est la nuit ;-)
evite les espaces avec les noms de tes attributs ca risque de te jouer des tours
slt canard007,
cela fonctionne lorsqu'on veut faire une requete basic mais la je veux utiliser visual basic et ça fonctionne pas.
Si tu px m'aider c cool
cdt.
cela fonctionne lorsqu'on veut faire une requete basic mais la je veux utiliser visual basic et ça fonctionne pas.
Si tu px m'aider c cool
cdt.
Voici le topo
Private Sub send_mail_Click()
Dim Txt_obj, sem_num, Date_d, DestMail, Mail_letter, NUMjrs, NUMsem As String
'Afficher le jour de la semaine
NUMjrs = DatePart("w", date)
'Afficher le numéro de la semaine
NUMsem = DatePart("ww", date)
'Dimanche
If NUMjrs = 1 Then
MsgBox ("incorrect")
Exit Sub
Else
'Lundi
If NUMjrs = 2 Then
sem_num = NUMsem
Else
'Mardi
If NUMjrs = 3 Then
MsgBox ("Le délai pour l'envoi du planning a expiré")
Exit Sub
Else
'Mercredi
If NUMjrs = 4 Then
MsgBox ("Le délai pour l'envoi du planning a expiré")
Exit Sub
Else
'Jeudi
If NUMjrs = 5 Then
MsgBox ("Le délai pour l'envoi du planning a expiré")
Exit Sub
Else
'Vendredi
If NUMjrs = 6 Then
sem_num = NUMsem + 1
Else
'Samedi
If NUMjrs = 7 Then
MsgBox ("Jour incorrect")
Exit Sub
End If
End If
End If
End If
End If
End If
End If
'Objet du mail
Txt_obj = "Prévision de planification pour la semaine " & sem_num
'Corps du mail
Mail_letter = "Bonjour à tous," & _
" " & _
" " & _
" " & _
"Veuillez trouver ci-joint la prévision de planification pour la semaine " & sem_num & "." & _
" " & _
" " & _
" " & _
" " & _
" " & _
"Cordialement." & _
" " & _
" " & _
" " & _
"dj oakley"
'Destinataires du mail
DestMail = "toto@toto.com;tata@toto.com;titi@toto.com;tutu@toto.com"
On Error GoTo Mail_prevision_planification_semaine_Err
'Envoi du mail
DoCmd.SendObject acReport, "Etat_Prevision_planification_semaine", "SnapshotFormat(*.snp)", DestMail, "", "", Txt_obj, Mail_letter, False, ""
Mail_prevision_planification_semaine_Exit:
Exit Sub
Mail_prevision_planification_semaine_Err:
MsgBox Error$
Resume Mail_prevision_planification_semaine_Exit
End Sub
J'aimerai que le champs DestMail soit renseigné automatiquement à partir de la requete precedente.
lorsque je mets
select il attend l'instruction case.
Cdt
Private Sub send_mail_Click()
Dim Txt_obj, sem_num, Date_d, DestMail, Mail_letter, NUMjrs, NUMsem As String
'Afficher le jour de la semaine
NUMjrs = DatePart("w", date)
'Afficher le numéro de la semaine
NUMsem = DatePart("ww", date)
'Dimanche
If NUMjrs = 1 Then
MsgBox ("incorrect")
Exit Sub
Else
'Lundi
If NUMjrs = 2 Then
sem_num = NUMsem
Else
'Mardi
If NUMjrs = 3 Then
MsgBox ("Le délai pour l'envoi du planning a expiré")
Exit Sub
Else
'Mercredi
If NUMjrs = 4 Then
MsgBox ("Le délai pour l'envoi du planning a expiré")
Exit Sub
Else
'Jeudi
If NUMjrs = 5 Then
MsgBox ("Le délai pour l'envoi du planning a expiré")
Exit Sub
Else
'Vendredi
If NUMjrs = 6 Then
sem_num = NUMsem + 1
Else
'Samedi
If NUMjrs = 7 Then
MsgBox ("Jour incorrect")
Exit Sub
End If
End If
End If
End If
End If
End If
End If
'Objet du mail
Txt_obj = "Prévision de planification pour la semaine " & sem_num
'Corps du mail
Mail_letter = "Bonjour à tous," & _
" " & _
" " & _
" " & _
"Veuillez trouver ci-joint la prévision de planification pour la semaine " & sem_num & "." & _
" " & _
" " & _
" " & _
" " & _
" " & _
"Cordialement." & _
" " & _
" " & _
" " & _
"dj oakley"
'Destinataires du mail
DestMail = "toto@toto.com;tata@toto.com;titi@toto.com;tutu@toto.com"
On Error GoTo Mail_prevision_planification_semaine_Err
'Envoi du mail
DoCmd.SendObject acReport, "Etat_Prevision_planification_semaine", "SnapshotFormat(*.snp)", DestMail, "", "", Txt_obj, Mail_letter, False, ""
Mail_prevision_planification_semaine_Exit:
Exit Sub
Mail_prevision_planification_semaine_Err:
MsgBox Error$
Resume Mail_prevision_planification_semaine_Exit
End Sub
J'aimerai que le champs DestMail soit renseigné automatiquement à partir de la requete precedente.
lorsque je mets
select il attend l'instruction case.
Cdt
