Discussion :

[Nabouille]

Bonjour,

après plusieurs recherches sur le forum et les tuto, je n'arrive pas à trouver une solution qui correspond à ma situation.

J'ai un formulaire avec un sous-formulaire.

Lorsque je met à jour le sous-formulaire, je souhaite recalculer mon formulaire car j'ai un champ dépendant des données du sous-formulaire mises à jour (une somme).

J'ai donc mis dans Après MAJ du sous-formulaire le code :

Code :

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

1
2
3
4
5
Private Sub Form_AfterUpdate()
 
Me.Parent.Requery 
 
End Sub

Le problème est que je reviens au premier enregistrement de mon formulaire alors que je souhaiterais rester sur l'enregistrement en cours.

J'ai donc essayer de collecter un signet avant le requery, faire le requery et réaffecter le signet, comme cela est conseillé dans un autre poste.

Voici mon code :

Code :

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

1
2
3
4
Dim mapositionencours As Variant 'la variable qui va recevoir le signet en cours
mapositionencours=Me.Parent.Bookmark 'Collecter le signet
Me.Parent.Requery 'Faire le requery après quoi on se retrouve au premier enregistrement
Me.Parent.Bookmark=mapositionencours 'Repositionner à l'enregistrement souhaité

L'erreur pointe la dernière ligne... Je ne trouve pas pourquoi.

Nabouille

[Domi2]

bonjour,

Pas testé, mais :

Code :

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

1
2
3
4
5
Private Sub Form_AfterUpdate()
 
Me.Parent.Refresh 
 
End Sub

ne rafraîchirait pas le formulaire, tout en restant sur l'enregistrement en cours ?

Domi2

[Nabouille]

non, j'ai déjà essayé.
Ce code ne fait pas la mise à jour.
Il s'agit d'un champ basé sur une requête qui fait une somme.

[Renardo]

Bonjour a tu essayé

Code :

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

me.recordset.Requery

[vodiem]

ton code n'est pas en cause: je n'ai pas de prb chez moi.
form+sfm avec code sur ev 'après maj' du sfm.
avec liaison des données entre forms.
>pas de pb.

[Nabouille]

Merci pour vos essais,

Mais... chez moi, ça ne fonctionne pas:

il a l'air de faire la mise à jour puis il affiche
"erreur 3159 Signet non valide" sur la dernière ligne de mon code,

comme si je ne pouvais pas réattribuer ma variable à Me.Parent.Bookmark !

si c'est pas le code... je ne vois pas ce que ça pourrait être d'autre?

[vodiem]

si c'est pas le code... je ne vois pas ce que ça pourrait être d'autre?

pas celui là en tout cas. mais c'est surement le traitement qu'occasionne le requery.

comme si je ne pouvais pas réattribuer ma variable à Me.Parent.Bookmark !

dis toi bien que c'est pas comme si: il ne peut pas réatribuer la valeur au bookmark. pour preuve:

erreur 3159 Signet non valide

debug, debug, debug.
si cela persiste poste une archive concis de ton pb

[Nabouille]

Le seul autre code est sur la liste déroulante du formulaire principal, pour sélectinner l'enregistrement. Le voici :

Code :

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

1
2
3
4
5
6
7
8
Private Sub C_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID_CONTRATS] = " & Str(Nz(Me![C], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Y aurait-il une "interférence" entre les 2 codes qui m'empêcherait de réatribuer ma variable via Me.Parent.Bookmark ? comment faire dès lors pour que cela fonctionne?

Voici un lien pour télécharger le formulaire qui pose problème https://easyshare3.oodrive.com/easys...3D&iid=4759848 (1,6M)
Il s'agit du formulaire "Cconsult&modif" Lorsque je modifie le Montant du 2ème sous-formulaire (Taches sous-formulaire), j'aimerais que le total (case juste en dessous) soit mis à jour, en restant sur le même enregistrement de mon formulaire principal...
Merci de votre aide...
Nabouille

[Jack78960]

Un signet est un clé système dépendant du recordet en cours==> faire requery produira forcément d'autres bookmark dès qu'une modification du recordset aura été faite .

La seule solution est de mémoriser la clé d'index primaire contenu dans ta table ou ta requête pour effectuer une instruction seek ou bien de repérer les champs discriminant de ton recordset pour te re-positionner après requery par le méthode movefind me semble t-il.

Bon courage

[vodiem]

Y aurait-il une "interférence" entre les 2 codes qui m'empêcherait de réatribuer ma variable via Me.Parent.Bookmark ? comment faire dès lors pour que cela fonctionne?

dans la source du form 'C_consult&modifs':

Code :

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

SELECT [BUDGET].[ID_BUD], [BUDGET].[ID_CONTRATS], [BUDGET].[Budget/Avenant], [BUDGET].[Date_accord], [BUDGET].[Montant], [BUDGET].[Remarques], [BUDGET].[Terminé], [_C_CONTRATS].[TITRE_FR], [TOTAUX].[Total_budget], [TOTAUX].[Total_facture], [TOTAUX].[Total_taches] FROM (BUDGET INNER JOIN _C_CONTRATS ON [BUDGET].[ID_CONTRATS]=[_C_CONTRATS].[ID_CONTRATS]) INNER JOIN TOTAUX ON [_C_CONTRATS].[ID_CONTRATS]=[TOTAUX].[ID_CONTRATS] WHERE [BUDGET].[ID_CONTRATS]=Nz(forms![C_consult&modifs]!C,0);

dans l'événement du combo:

Code :

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

1
2
3
4
Private Sub C_AfterUpdate()
Form.FilterOn = True    'de  preférence dans le load du form
Form.Requery
End Sub

là y a plus d'erreur.
mais vérifie l'utilité de 'mapositionencours' et du reste...

[Nabouille]

Excellent,

cela fonctionne super bien

et effectivement, juste le requery suffit dans le "Après MAJ" du sous-formulaire.

Merci beaucoup Vodiem

Nabouille

[Hadrum]

Bonjour,


J'ai deux tables (table1) et (Table2) qui sont liés par un lien 1 à plusieurs (Table1)1 à (table2) Plusieurs.
La clé primaire de la table 1 est un champs appelé Code et la clé primaire dans la table 2 est UnicKey et j'ai aussi une clé étrangère dans la table 2 appelé Code qui fait le lien avec la clé primaire (Code) de la table1.
La table 2 a plusieurs champs principalement des nombres. J'ai aussi une requête (Req1) qui fait la somme des champs de la table 2 par Code.
J'ai également un formulaire (Form2) qui a comme source la table 2 et un autre formulaire (Form1) qui lui a comme source Req 1.
Ensuite j'ai inséré le Form2 Dans le Form1.
Mon but est de mettre à jour les sommes du Form1 chaque fois que je change une valeur des champs du Form 2.
Alors j'ai insérer la fonction requery aprés la mise à jour du Form2. Mais chaque fois que je change une valeur il me retourne au premier enregistrement et il me sort la boite de débogage avec ce message.

erreur 3159 Signet non valide

Je voudrais qu'il reste à l'enregistrement d'où j'ai effectuer le changement et faire la mise à jour.

Pouvez vous m'indiquer clairement comment vous avez résolu le problème .

Merci