Comment exécuter un module Access

Version imprimable

23/10/2007, 13h59
sousae

Comment exécuter un module Access

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.
23/10/2007, 14h12
Jean-Philippe André

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

Code:

Call Procedure

ou

Code:

Procedure 'tout court

devraient faire l'affaire.

edit : les parametres peuvent être passés sans soucis avec les 2 formules.
23/10/2007, 14h15
Invité

Bonjour

Citation:

Envoyé par 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.

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

Starec

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

Code:

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.

23/10/2007, 14h52
Jean-Philippe André

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

Code:

Mailing