ACCESS SQL MAIL

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

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

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.

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