Discussion :

[morobaboumar]

Bonsoir membres du forum,
J'aimerais savoir comment pourrait on cliquer sur un bouton de commande d'un sous-formulaire avec su code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub RetrouverEnregistrementEnCours()
Dim EnregistrementEnCours As Long
'__________________________
Maj_Etiquettes_ZoneDeTextes
'__________________________
 
 EnregistrementEnCours = Forms("ARCHIVE_PARENTS").Controls("PAYEMENTS_SFrmArchive_Parents").Form!numpayement
Forms("ARCHIVE_PARENTS").Controls("PAYEMENTS_SFrmArchive_Parents").Form.cmdReturn.SetFocus
Forms("ARCHIVE_PARENTS").Controls("PAYEMENTS_SFrmArchive_Parents").Form.numpayement.SetFocus
Recordset.FindFirst "numpayement=" & EnregistrementEnCours                                         'cmdReturn
End Sub

Cordialement.

[Zekraoui_Jakani]

Si votre bouton a une procédure du style:

Code :

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

1
2
3
Private sub numpayement_Click()
   … liste d'actions ….
End Sub

Alors, l'instruction:

Code :

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

Call numpayement_Click   '(ou tout simplement numpayement_Click)

n'importe où dans le code (du formulaire) suffit à déclencher l'action voulue

[Jeannot45]

Je ne vois pas trop le problème
Tu mets un bouton dans ton sous-formulaire de la même façon qu'un bouton dans un formulaire principal avec une procédure "Sur Clic"

Dans quel but, ce bouton ?

[morobaboumar]

Je ne vois pas trop le problème
Tu mets un bouton dans ton sous-formulaire de la même façon qu'un bouton dans un formulaire principal avec une procédure "Sur Clic"
Dans quel but, ce bouton ?

Bonjour membres du forum,
Voici pourquoi:
-J'ai une boite de dialogue "PAYEMENTS_SFrmArchive_ParentsBDialogue" me permettant d'entrer les enregistrements
dans un sous-formulaire "PAYEMENTS_SFrmArchive_Parents" de la table "PAYEMENTS".

Le code suivant me permet d'actualiser le sous formulaire tout en ramenant le focus sur l'enregistrement en cours
grâce au click sur la commande "cmdReturn_Click()" .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub RetrouverEnregistrementEnCours()
Dim EnregistrementEnCours As Long
'__________________________
Maj_Etiquettes_ZoneDeTextes
'__________________________
 
EnregistrementEnCours = Forms("ARCHIVE_PARENTS").Controls("PAYEMENTS_SFrmArchive_Parents").Form!numpayement
Forms("ARCHIVE_PARENTS").Controls("PAYEMENTS_SFrmArchive_Parents").Form.cmdReturn_Click
Forms("ARCHIVE_PARENTS").Controls("PAYEMENTS_SFrmArchive_Parents").Form!numpayement.SetFocus
Recordset.FindFirst "numpayement=" & EnregistrementEnCours                          'cmdReturn
                                                                                                                                'Call cmdReturn_Click   '(ou tout simplement numpayement_Click)
End Sub

Ensuite j'ai rendu la commande de Private en Public

Code :

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

Public Sub cmdReturn_Click()

afin que le code puisse l'appeler.
Cette discussion a un rapport avec celle ci https://www.developpez.net/forums/d2...o-current-row/

que pensez vous de mon code ?

Je vous remercie Jeannot45 et Zekraoui_Jakani,
Merci infiniment.
Grâce à vos interventions j'ai pu trouver gain de cause à ma recherche.
Cordialement.