Discussion :

[Lincoln911]

Bonjour à tous,
J'essaie de mettre en place le comportement suivant: agir depuis un sous-formulaire A situé en page 01, sur un autre sous-formulaire B situé en page 02.
Les pages 01 et 02 sont des onglets. Les 2 sous-formulaires A et B sont liés tous deux au formulaire principal (dépendants) et affichent les données d'une même table: Le sous-form A en mode feuille de données, le sous-form B en mode affichage unique.
L'idée étant de cliquer sur un champ de A pour basculer vers B, sur ce même enregistrement.

J'ai mis ce code VBA dans l'action du click sur un des champs de A:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ChampFormA_Click()
    Dim strSQL As String
 
    strSQL = "SELECT tblTache.* FROM tblTache WHERE (tblTache.ID=" & Me.ID.Value & ") ORDER BY tblTache.DateTache DESC;"
 
    Forms![frm00_FormPricipal]![SubFrmB].Form.RecordSource = strSQL
 
    Forms![frm00_FormPricipal].Controls("Page02").SetFocus
 
End Sub

Le basculement se passe bien, mais le sous-formulaire B s'ouvre en mode création et perd la liaison avec le Form principal.
Pouvez-vous m'aider?

[faroug]

Bonjour Lincoln911,

Essayes d'utiliser la méthode findNext au lieu de la propriété RecordSource :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ChampFormA_Click()
 
    Dim rs As Recordset
    Set rs = Forms![frm00_FormPricipal]![SubFrmB].Form.Recordset.Clone
    rs.FindFirst "ID=" & Me.ID.Value
    Forms![frm00_FormPricipal]![SubFrmB].Form.Bookmark = rs.Bookmark
    Forms![frm00_FormPricipal].Controls("Page02").SetFocus
 
End Sub

Remarque: La source des données du formulaire B doit être la table "tblTache" sans mettre un condition where.

[Lincoln911]

Merci faroug

ta proposition marche nickel !