création d'un bouton envoyer par email
Bonjour,
Je suis novice dans access j'arrive pas à trouver ce qu il cloche
j'ai fais 2 bouton ¨
1 pour avoir l'impression d'un document qui s'appel ok
2 pour envoyer un email
3 pour annuler
le 1 et le 3 fonctionne mais le 2 j'y arrive pas
fomule sur bouton 1
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
If Not IsLoaded("Commandes par client") Then
MsgBox "Ouvrez le formulaire Impression de la facture à l'aide du bouton Aperçu du formulaire Commandes par client."
Cancel = True
End If
End Sub
Private Sub OK_Click()
Me.Visible = False
End Sub
Private Sub Annuler_Click()
DoCmd.Close acForm, "Impression de la facture"
End Sub
Private Sub envoyer_par_email_Click()
On Error GoTo Err_envoyer_par_email_Click
Dim stDocName As String
stDocName = "bondelivraison"
DoCmd.SendObject acReport, stDocName
Exit_envoyer_par_email_Click:
Exit Sub
Err_envoyer_par_email_Click:
MsgBox Err.Description
Resume Exit_envoyer_par_email_Click
End Sub |
mais le bouton "email" m'en l'envois pas il me met un message d'erreur "utilisation incorrecte de null"
et si possible que ca me le mette directement en pdf..
merci d'avance de votre aide
