Discussion :

[JLDunkerque]

Bonjour,

Je souhaiterais lancer une procédure événementielle pour tous les champs d'une table (cette procédure est par exemple celle indiqué plus bas).
Cependant si je sélectionne tous les champs ou bien quelques uns je n'ai pas accès à la rédaction d'une procédure commune.
J'ai donc pensé à utiliser une macro qui déclencherait la procédure événementtielle pour tous les champs.
Comment dois-je procéder ?

Merci

Exemple de procédure (ici pour un e seul champ NuAPP)

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
Private Sub NuAPP_Click()
    Dim SQL3 As String
    Dim IdN As Integer
 
    Set BD = CurrentDb
    Set APPLICATIONS = BD.OpenRecordset("APPLICATIONS")
 
    With APPLICATIONS
    IdN = !IdN
    SQL3 = "UPDATE [APPLICATIONS] SET [OrdiClic] = '" & Environ("COMPUTERNAME") & "' , [UserClic] = '" & Environ("USERNAME") & "', [DtClic]= Now() where [IdN] = Forms![APPLICATIONS].[IdN] "
 
    DoCmd.SetWarnings (False)
    DoCmd.RunSQL SQL3
    DoCmd.SetWarnings (True)
 
    End With
End Sub

[jimbolion]

JLDunkerque bonjour,

Afin qu'une fonction ou procédure puisse être exécutée de n'importe où, celles ci doivent être enregistrées dans un module VBA indépendant.
De plus la déclaration doit être de type public.

jimbolion

[JLDunkerque]

Merci pour la réponse apportée.

JLD