Discussion :

[Superpat9999]

Bonjour,
Dans un contrôle d'onglets, j'ai un formulaire Opération :
Dans le formulaire Opération, il y a une liste déroulante (Ici indiquée "Assurance") correspondant à Compte 7.
Si je la modifie à "Courant" --> Compte 6 et que je clique sur Banque :


J'ouvre un formulaire Detenteur.


J'arrive dans le formulaire Détenteur.
Je souhaite que le sf_Detenteur se mette sur le compte 6.
l_CompteFK est une variable Public correspondant au CompteFK
ID_CompteFK correspond à l'indice 6 ou 7 dans le sous-formulaire
txt_ChoixCompteFK est le champ correspondant au sf_Detenteur (en orange)
Mon code :

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
18
19
20
21
22
23
24
 
 Dim rs As DAO.Recordset
 
    Me.Détenteur.Visible = True
    Me.Banque.Visible = True
    Me.Contact.Visible = True
    Me.Compte.Visible = True
    Me.Détenteur.SetFocus
    Me.btn_Banque.Visible = False
    Me.Btn_Operations.Visible = True
    Me.Catégorie.Visible = False
    Me.Sous_Catégorie.Visible = False
    Me.Payement.Visible = False
    Me.Opération.Visible = False
    Me.btn_Equilibrer.Visible = False
 
 If [Formulaire Detenteur].Form!txt_ChoixCompteFK <> l_CompteFK Then                                                            '7<>6
         Set rs = [Formulaire Detenteur]![Compte Detenteur sous-formulaire].[Form].RecordsetClone
         Debug.Print "l_CompteFK origine : " & l_CompteFK                                                                        'Ici on obtient bien le compte désiré, 6 en l'occurence
         Debug.Print "ID_CompteFK 1 : " & [Formulaire Detenteur]![Compte Detenteur sous-formulaire].[Form]![ID_CompteFK]         'Ici on obtient bien le compte actuel, 7 en l'occurence
         rs.FindFirst [Formulaire Detenteur]![Compte Detenteur sous-formulaire]![ID_CompteFK] & "=" & l_CompteFK
         Debug.Print "ID_CompteFK 2 : " & [Formulaire Detenteur]![Compte Detenteur sous-formulaire].[Form]![ID_CompteFK]         'Cela ne fonctionne pas, on est toujours à 7
         If rs.NoMatch Then
               MsgBox "pas trouvé"

[tee_grandbois]

bonjour,
la syntaxe est incorrecte car elle compare une valeur du sous-formulaire à une autre valeur :

Code :

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

rs.FindFirst [Formulaire Detenteur]![Compte Detenteur sous-formulaire]![ID_CompteFK] & "=" & l_CompteFK

ce qui ne doit rien donner, le code correct est :

Code :

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

rs.FindFirst "[ID_CompteFK] = " & l_CompteFK

qui compare un champ de la source de données à une valeur et si [ID_CompteFK] est bien un champ de la source de données du sous-formulaire (et pas le nom du contrôle), sinon mettre le bon nom

[Superpat9999]

Bonjour tee_grandbois,
Je ne comprends pas bien.
Le bouton se trouve sur le formulaire navigation, il fait appel (pour moi) au Détenteur qui se trouve dans le contrôle d'onglets ensuite au sous-formulaire de celui-ci.
Pour moi, le code ne peut-être un simple appel, il ne trouvera pas le champ avec :

Code :

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

rs.FindFirst "[ID_CompteFK] = " & l_CompteFK

D'autant que le formulaire affiché est celui d'Opération.

[hyperion13]

Salut
Peut-être manque-t-il tout bêtement un évènement sur votre combobox Assurance/Courant pour rafraichir le recordset du form/sform lorsque vous changez de valeur.

[Superpat9999]

Je suis navré malgré une cinquantaine d'essai, je n'y arrive pas.
Mon problème est toujours le bouton Banque qui ne m'amène pas sur le bon enregistrement. Avec le bouton Opération, aucun problème.
Je joins le fichier, pour vous se sera certainement plus facile.
Merci d'avance

[hyperion13]

Salut
Solution simple, vraiment pas le temps de décortiquer tout votre VBA
Je suppose que vous cherchez à filter le sform sf_detenteur selon le compte sélectionné dans lst_LibelleCompte.
En image :

Code :

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

1
2
txtbox indépendante verte : txtTest
source : =[Formulaire Operation].[Formulaire]![txt_CompteFK]

.

Code :

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

1
2
txtbox indépendante rouge: txtDetCpte
source : =[Formulaires]![_f_Navigation]![txtTest]

.
sf_Detenteur

Code :

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

1
2
Champ Père : txtDetCpte
Champ Fils : ID_CompteFK

.

[Superpat9999]

Merci hyperion13 pour ta réponse, mais je ne souhaite pas filtrer, juste me positionner sur le compte appelé.

[tee_grandbois]

bonjour,

Salut
Solution simple, vraiment pas le temps de décortiquer tout votre VBA

complètement d'accord avec toi hyperion13 (cela sent presque l'usine à gaz et je suis poli), d'autant plus qu'il n'y a même pas moyen de retrouver le code posté en #1

[hyperion13]

Ok, je veux bien
Mais une fois positionné dans le sform, vous avez l'intention de créer une proc? Ou c'est simplement pour le "fun" le positionnement?

Merci hyperion13 pour ta réponse, mais je ne souhaite pas filtrer, juste me positionner sur le compte appelé.

[hyperion13]

C'est l'usine AZF mais en pire

bonjour,
complètement d'accord avec toi hyperion13 (cela sent presque l'usine à gaz et je suis poli), d'autant plus qu'il n'y a même pas moyen de retrouver le code posté en #1

[Superpat9999]

Ok, je veux bien
Mais une fois positionné dans le sform, vous avez l'intention de créer une proc? Ou c'est simplement pour le "fun" le positionnement?

C'est vrai, c'est l'usine à gaz !
Et c'était juste pour le fun !
Je ne comprenais pas que ça marche dans un sens mais pas dans l'autre.
Navré pour le dérangement.

[tee_grandbois]

C'est vrai, c'est l'usine à gaz !

ah! tu vois
je n'ai pas pu tester dans de bonnes conditions mais essaie cette instruction:

Code :

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

Me.Formulaire_Detenteur.Form.Controls("Compte Detenteur sous-formulaire").Form.Recordset.FindFirst "[ID_CompteFK] = " & l_CompteFK

juste après

Code :

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

Me.Formulaire_Detenteur.Controls("Compte Detenteur sous-formulaire").SetFocus

car il est inutile de créer autant de code pour se positionner sur un enregistrement dans un sous sous-formulaire, il faut juste connaitre le nom des objets concernés (c'est ce qu'il me manquait au début)

[hyperion13]

Mince, tu m'as devancé

ah! tu vois

[Superpat9999]

Merci à tous les 2 pour vos réponses qui m'ont faites avancer dans la connaissance de la manœuvre de VBA.
tee_grandbois, c'est exactement cela :

Code :

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

1
2
Me.Formulaire_Detenteur.Controls("Compte Detenteur sous-formulaire").SetFocus
Me.Formulaire_Detenteur.Form.Controls("Compte Detenteur sous-formulaire").Form.Recordset.FindFirst "[ID_CompteFK] = " & l_CompteFK

J'avais trouvé le SetFocus :

Code :

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

[Formulaire Detenteur]![Compte Detenteur sous-formulaire].SetFocus

Pour le dernier code, je me mélangeais les pinceaux entre les crochets, les guillemets et le point d'exclamation et surtout où positionner Findfirst. La syntaxe n'est pas toujours évidente.
Maintenant j'ai un exemple que je vais pouvoir reproduire.