ACCESS SQL MAILFermé

Question

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.

Canard007 · Answer

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

DJ_OAKLEY · Answer

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.

Canard007 · Answer

fait voir ton code vb ainsi que le messge d'erreur renvoyé

DJ_OAKLEY · Answer

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

ACCESS SQL MAIL

4 réponses

Discussions similaires

Newsletters