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.
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 -
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. -
fait voir ton code vb ainsi que le messge d'erreur renvoyé
-
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
