OVH Cloud OVH Cloud

activation d'un module

2 réponses
Avatar
Guy
Bonjour =E0 tous,

J'ai un module (FeuillePr=E9senceCG92)

Extraction d'=E9l=E9ments d'une requ=EAte vers une table avec=20
mise enforme + D=E9claration de date par l'utilisateur)

En interne cela fonctionne tr=E8s bien (je peux renseigner=20
mes Dates et l'extraction se passe bien)

Je Compile :

Option Compare Database
Option Explicit
Function Pr=E9sence15JCG92()

' D=E9claration des Dates D=E9but et Fin De la P=E9riode
Dim FirstDate As Date
Dim LastDate As Date

FirstDate =3D InputBox("Entrez date de D=E9but de Quizaine")
LastDate =3D InputBox("Entrez date de Fin de Quizaine")
=20
Apres avoir obtenu mon RUNTIME (le module qui est=20
rattach=E9 =E0 un bouton afin que l'utilisateur puisse=20
l'activer)

Et la pas de r=E9action pourquoi ?

1) peut -on rattacher un module directement a un=20
bouton si oui comment (pour le moment ce module est=20
rattach=E9 =E0 une macro)
2) Faut -il modifier les variables ?
3) Le module est d=E9clar=E9 en FUNCTION ?
4)=09

2 réponses

Avatar
Raymond
Bonjour.

D'une manière générale, tu peux affecter une fonction ou une sub sur un
événement d'un bouton. La fonction doit être Déclarée public et se trouver
dans un module standard.
Supposons la fonction Présence15JCG92 qui est public (valeur par défaut) qui
est dans un module (module1 par exemple).

Public Function Présence15JCG92()
MsgBox "je suis là"
End Function

1ere solution:
sur la ligne Sur clic du bouton indiquer =Présence15JCG92()

2e solution
sur l'événement sur clic indiquer [Procédure événementielle] et entrer la
procédure suivante:
Private Sub Commande0_Click()
Présence15JCG92
End Sub

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Guy" a écrit dans le message de
news:0f7001c38985$3ae66820$
Bonjour à tous,

J'ai un module (FeuillePrésenceCG92)

Extraction d'éléments d'une requête vers une table avec
mise enforme + Déclaration de date par l'utilisateur)

En interne cela fonctionne très bien (je peux renseigner
mes Dates et l'extraction se passe bien)

Je Compile :

Option Compare Database
Option Explicit
Function Présence15JCG92()

' Déclaration des Dates Début et Fin De la Période
Dim FirstDate As Date
Dim LastDate As Date

FirstDate = InputBox("Entrez date de Début de Quizaine")
LastDate = InputBox("Entrez date de Fin de Quizaine")

Apres avoir obtenu mon RUNTIME (le module qui est
rattaché à un bouton afin que l'utilisateur puisse
l'activer)

Et la pas de réaction pourquoi ?

1) peut -on rattacher un module directement a un
bouton si oui comment (pour le moment ce module est
rattaché à une macro)
2) Faut -il modifier les variables ?
3) Le module est déclaré en FUNCTION ?
4)
Avatar
Guy
Merci de votre concour

on s'intruit toujours mais l'erreur venais de moi
une confusion avec ouvrir et excecuter code (temp perdu 3
heures)
je suis réellement pas bon

merci


-----Message d'origine-----
Bonjour.

D'une manière générale, tu peux affecter une fonction ou
une sub sur un

événement d'un bouton. La fonction doit être Déclarée
public et se trouver

dans un module standard.
Supposons la fonction Présence15JCG92 qui est public
(valeur par défaut) qui

est dans un module (module1 par exemple).

Public Function Présence15JCG92()
MsgBox "je suis là"
End Function

1ere solution:
sur la ligne Sur clic du bouton indiquer
=Présence15JCG92()


2e solution
sur l'événement sur clic indiquer [Procédure
événementielle] et entrer la

procédure suivante:
Private Sub Commande0_Click()
Présence15JCG92
End Sub

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Guy" a écrit dans le message de
news:0f7001c38985$3ae66820$
Bonjour à tous,

J'ai un module (FeuillePrésenceCG92)

Extraction d'éléments d'une requête vers une table avec
mise enforme + Déclaration de date par l'utilisateur)

En interne cela fonctionne très bien (je peux renseigner
mes Dates et l'extraction se passe bien)

Je Compile :

Option Compare Database
Option Explicit
Function Présence15JCG92()

' Déclaration des Dates Début et Fin De la Période
Dim FirstDate As Date
Dim LastDate As Date

FirstDate = InputBox("Entrez date de Début de Quizaine")
LastDate = InputBox("Entrez date de Fin de Quizaine")

Apres avoir obtenu mon RUNTIME (le module qui est
rattaché à un bouton afin que l'utilisateur puisse
l'activer)

Et la pas de réaction pourquoi ?

1) peut -on rattacher un module directement a un
bouton si oui comment (pour le moment ce module est
rattaché à une macro)
2) Faut -il modifier les variables ?
3) Le module est déclaré en FUNCTION ?
4)

.