Discussion :

[nemog]

Bonjour à tous,

Un petit souci que je n'arrive pas à résoudre :

Un bouton nommé HiAdr doit lancer la même action que l' évènement DblClick d'un textbox nommé adresse2f
Donc tout naturellement, hum, j'ai écrit :

Code :

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

1
2
3
4
5
Private Sub HiAdr_Click()
 
adresse2f_DblClick
 
End Sub

Mais ça ne marche pas, j'ai le message "Erreur de compilation, argument non facultatif"
Je mets ici l' évènement en question, qui pour moi, ne nécessite pas d'argument :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub adresse2f_DblClick(Cancel As Integer)
 
DoCmd.RunCommand acCmdSaveRecord
Me.Affectation2F.SetFocus
 
If CurrentProject.AllForms("FormGen").IsLoaded Then
   DoCmd.Close acForm, "FormGen"
End If
 
DoCmd.OpenForm "FormGenHIST", , , "Adresse like '*" & [Forms]![formconsultGEN]![adresse2f] & "*' OR Notes like '*" & [Forms]![formconsultGEN]![adresse2f] & "*'"
DoCmd.GoToRecord , , acLast
 
End Sub

si je mets ce code directement dans l'évènement HiAdr_Click, ça marche (c'est donc facilement contournable)
L' évènement n'est pas à mettre en cause, ça marche si je le mets en _AfterUpdate
Mais j'aimerais bien comprendre ce qui m' échappe !

Merci si vous pouviez m'aider

Cordialement,

[Jean-Philippe André]

Salut,

comme la déclaration de ta procédure est la suivante :

Code :

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

Private Sub adresse2f_DblClick(Cancel As Integer)

le paramètre Cancel n'est pas optionel, aussi lorsque tu souhaites appeler la procédure, il faut lui passer ce paramètre.

Code :

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

1
2
3
4
5
Private Sub HiAdr_Click()
    Dim iCancel As Integer
    iCancel=0
    adresse2f_DblClick iCancel
End Sub

[nemog]

Merci Jean-Philippe,

Je me doutais que ce n'était pas grand chose
L' évènement DblClick impose le Cancel as Integer, contrairement à d' autres comme Click ou AfterUpdate
( j'ai essayé de l' enlever, ça provoque d'autres erreurs ! )

Encore merci

[deedolith]

Salut,

En général, il n'est pas recommandé d'appeler les gestionnaires d'évènements.
Il vaut mieux encapsuler ton code dans une fonction séparée, et appeler cette dernière.