Discussion :

[falco40²]

Bonjour,

Ma base avance grace aux nombreux et excellents conseils du forum. Bravo à ses animateurs réguliers !

Mon problème du jour :

J'ai un formulaire A, qui possède un sous-fomulaire ss_A, qui possède (entre-autres) un champ txt_A.

En paralèlle j'ouvre un formualaire d'aide (B) qui a un sous formulaire continu (ss_B), avec un champs txt_B.

L'ouverture se fait par un bouton, qui :
1°) enregistre dans la variable glabale (désolé) Memoire_form le nom de A!ss_A (car B peut être appelé par d'autres forms, par exemple C!ss_C)
2°) ouvre B

Je voudrais qu'en double cliquant sur txt_B, la valeur txt_B se retrouve dans txt_A (du form mémorisé dans la variable globale Memoire_form, donc).

Je pense être passé le plus près de la solution en faisant :

Code :

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

1
2
3
4
5
Private Sub txt_B_DblClick(Cancel As Integer)
 
Forms(Memoire_form).controls("txt_A").value = txt_B.value
 
End Sub

avec Memoire_form = "forms!A!ss_A"

mais ça marche pas...

[falco40²]

J'ai trouvé une solution (en grande partie grace au FAQ "Transmettre le nom du formulaire appelant à l'ouverture d'un formulaire.").

La voici :
Sur le bouton qui ouvre le forulaire B:

Code :

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

DoCmd.OpenForm "B", , , , , , Me.Name

Sur l'ouverture de B:

Code :

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

memoire_nom_form = OpenArgs

Sur double clique du controle txt_B :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub txt_B_DblClick(Cancel As Integer)
 
If memoire_nom_form = "A" Then
Forms!A.ss_A!txt_1= txtB.value
ElseIf memoire_nom_form = "C" Then
Forms!C.ss_C!txt_1= txtB.value
etc...
End If
 
End Sub