Discussion :

[Alain7751]

Access2007
Bonjour,

J'ai écris une procédure pour calculer une date d'échéance à partir d'une date donnée.
Cette procédure doit être utilisée sur évènement de MàJ de plusieurs contrôles situés sur plusieurs formulaires (non identiques, sauf le nom des contrôles) ==> Fm1 : Cont1 cont2 cont3 / Fm2 : cont1 cont2 cont3 / etc....
Je veux éviter de réécrire à chaque fois (même si c'est du copier/coller) la procédure à chaque évènement de chacun des contrôles de chaque formulaire ...
Problème : comment et où enregistrer la procédure ? comment la lancer à partir des autres contrôles d'un formulaire ? comment la lancer à partir des autres contrôles des autres formulaires ?

Quand on démarre .... !!


Merci pour votre aide et surtout pour le temps que vous allez me faire gagner en utilisant le votre !!

[Jean-Philippe André]

salut,
pour plus de facilité, je te recommande d'écrire tes sub et functions dans un module, sans oublié leur portée en Public, pour qu'elles soient accessibles à tes formulaires

[Alain7751]

Merci pour ta réponse ! mais il y a la place pour un continent entre ta maitrise du sujet et la mienne.
Comment tu enregistres la procédure et où ??
Lorsque je clique sur le controle et évenement, la fenetre VBE s'ouvre et met immédiatement en route une procédure Private Sub DatFact_AfterUpdate() !
LA question : comment sortir de là et l'enregistrer pour qu'elle soit accesssible de partout, pour chaque controle dans chaque formulaire ???
comment l'appeler à partir de chaque controle ?

Merci ... et ne me laisse pas dans le milieu du gué maintenant !!

[Domi2]

Bonjour,

Pas testé.

Tu peux essayer ceci, si tes contrôles ont des noms identiques sur tous les formulaires.

Tu crées ta procédure dans un module standard.

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
Public Sub FaireMaj()
 
    'Tu récupères le nom du formulaire actif
    Dim FormulaireCourant As Form
 
    Set FormulaireCourant = Screen.ActiveForm
 
    'Ensuite tu exécutes ton code. Si tu dois te référer
    'à la valeur de ton champ "DatFact", tu peux la récupérer
    'en utilisant Screen.ActiveControl
 
    'Code
    ....
 
    FormulaireCourant!Cont1.Value = Resultat
 
End Sub

Et pour l'appel, sur la propriété Après Maj de ton contôle "DatFact"

Code :

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

1
2
3
4
5
Private Sub DatFact_AfterUpdate()
 
    FaireMaj
 
End Sub

Domi2

[Domi2]

Re,

Après un petit test, il semble possible de simpifier la procédure, ainsi que l'appel.

Pour la procédure, d'abord en faire une fonction (on ne peut pas exécuter une procédure directement depuis un événement) et il n'est pas nécessaire de récupérer le nom du formulaire actif.

Soit, pour l'appel, directement dans l'événement Après MAJ du formulaire :

Code :

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

=FaireMaj()

Et la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function FaireMaj()
 
    'Tu exécutes ton code. Si tu dois te référer
    'à la valeur de ton champ "DatFact", tu peux la récupérer
    'en utilisant Screen.ActiveControl
 
    'Code
    ....
 
    Screen.ActiveForm!Cont1.Value = Resultat
 
End Function

Domi2

[Alain7751]

Désolé mais ça ne marche pas ... un prob de syntaxe propablement !

Pour lancer la procédure Public Sub FaireMaJ()
j'ai :

Code :

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

1
2
3
Private Sub DatFact_AfterUpDate()
      FaireMaJ()
End Sub

en fait la ligne FaireMaJ() s'inscrit en rouge et une MsgBox triangle jaune arrive avec comme indication

ERREUR de compilation :

Attendu : =

Ca doit être une broutille mais je ne sais pas la trouver

Merci pour ton aide !

[Domi2]

Dans ce cas là, pas de ()

Code :

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

1
2
3
Private Sub DatFact_AfterUpDate()
FaireMaJ
End Sub

As-tu cependant vu mon deuxième post (celui avec la fonction au lieu de la procédure) ?

Domi2