Discussion :

[sousae]

Bonjour, j'ai créer un module sous access, je souhaite savoir comment executer ce module par l'intermédiare d'un bouton de commande dans un formulaire. Si quelqu'un connait la réponse, je le remercie par avance.

[Jean-Philippe André]

bjr,
plusieurs possibilités selon que le module en question est une fonction ou une procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Procedure

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Procedure 'tout court

devraient faire l'affaire.

edit : les parametres peuvent être passés sans soucis avec les 2 formules.

[Invité]

Bonjour

Bonjour, j'ai créer un module sous access, je souhaite savoir comment executer ce module par l'intermédiare d'un bouton de commande dans un formulaire. Si quelqu'un connait la réponse, je le remercie par avance.

Attention aux définitions des noms que tu emplois.
Sous Access un module est composé de procédures et de fonctions.

Starec

[sousae]

Re, j'explique, je dois faire un mailling vers plusieurs personnes et voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub Mailling()
  Dim ListeEmail As Recordset
  Set ListeEmail = CurrentDb.OpenRecordset("R_EMailOui")
  ListeEmail.MoveFirst
  ListeComplete = ""
  While Not ListeEmail.EOF
    ListeComplete = ListeComplete & ListeEmail("Email") & ";"
    ListeEmail.MoveNext
  Wend
  ListeComplete = Left(ListeComplete, Len(ListeComplete) - 1)
  ListeEmail.Close
  Set ListeEmail = Nothing
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = ListeComplete
  MonMessage.Subject = "Petit essai de mailling"
  Corps = "Voici un test de message pour ma liste de diffusion de différents réseaux"
  MonMessage.Body = Corps
MonMessage.send
Set MonOutlook = Nothing
End Sub

Ca fonctionne, mais maintenant je souhaite à partir d'un formulaire "un bouton de commande" l'exécuter. Comment faire ?

Merci de votre aide et merci de vos réponse.

[Jean-Philippe André]

dans l'évènement clic du bouton souhaité, mettre la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mailing