Discussion :

[Parigoo]

Salut les gars, le noob es de retour

J'ai un petit soucis cette fois-ci au niveau de l'actualisation d'un formulaire, je m'explique :

J'ai un formulaire sur lequel j'ai un bouton qui agit sur une requête d'ajout qui alimente une table nommée (Table_mvt_auto), bref...

Voici le déroulement :
Je click sur la requête, je scan ma référence, et le résultat es visible sur une zone de liste déroulante du formulaire de la table concerné, et par le suite je sélectionne dans cette liste déroulante l'info souhaité et automatiquement sa s'imprime sur sélection, ça marche nickel,
Le souci es sur le prochain scan de référence, il faudrait que mon formulaire s'actualise pour m'affiche les nouveau résultat de ma requête.

Voici le code vba :

Code :

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

1
2
3
4
5
Private Sub Commande33_click()
DoCmd.OpenQuery "RAZ_mvt_Auto" (effacement de la table)
DoCmd.OpenQuery "Rq_mvt_semi" (exécution de la requete d'ajout)
Forms![form_mvt_auto].Requery (tentative d'actualisation de mon formulaire)
End Sub

Lorsque j’exécute de nouveau la requête j'ai en résultat dans ma liste déroulante "supprimé supprimé" (action de ma requête de suppression),
Hors si je clique sur le bouton actualiser j'ai bien mes nouveau résultat qui s'affiche, il s'agit donc un souci au niveau du rafraîchissement du formulaire.

Je souhaiterais donc simuler un rafraîchissement du formulaire à chaque exécution de requête pour avoir les bons résultats.

Merci de votre aide,

[tee_grandbois]

bonsoir,
essaie en rechargeant le RecordSource du formulaire:

Code :

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

Forms![form_mvt_auto].RecordSource = Forms![form_mvt_auto].RecordSource

idem pour la liste déroulante mais avec RowSource

[Parigoo]

Salut,

Je vais essayer avec ce code,

Merci

[Parigoo]

bonsoir,
essaie en rechargeant le RecordSource du formulaire:

Code :

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

Forms![form_mvt_auto].RecordSource = Forms![form_mvt_auto].RecordSource

idem pour la liste déroulante mais avec RowSource

Malheureusement ça ne fonctionne pas, le formulaire ne se met pas à jours, j'ai toujours "supprimé supprimée" de la requête de suppression.
Je suis obligé de faire actualiser tout manuellement pour que ça fonctionne,

Une autre solution ?

[tee_grandbois]

bonsoir,

Malheureusement ça ne fonctionne pas, le formulaire ne se met pas à jours, j'ai toujours "supprimé supprimée" de la requête de suppression.
Je suis obligé de faire actualiser tout manuellement pour que ça fonctionne,

je viens de tester, cela fonctionne aussi bien avec Requery qu'avec RecordSource, les #supprimé# n'apparaissent que subrepticement.
Donc si le formulaire à mette à jour est bien Forms![form_mvt_auto], cela devrait fonctionner, cela veut dire que le problème est tout autre ...

[Parigoo]

bonsoir,

je viens de tester, cela fonctionne aussi bien avec Requery qu'avec RecordSource, les #supprimé# n'apparaissent que subrepticement.
Donc si le formulaire à mette à jour est bien Forms![form_mvt_auto], cela devrait fonctionner, cela veut dire que le problème est tout autre ...

Ah surement oui, alors j'ai réussi à faire ce que je voulais avec une macro qui rafraîchi le champs de la liste déroulante,

Pourtant je pense pas avoir fait quelque chose de spéciale qui pourrait faire que sa foire,

j'ai un bouton au seins d'un formulaire qui exécute une requete de suppression puis une requête d'ajout, puis la liste déroulante comme source : la table alimenté par la requête d'ajout ,
Puis rebelote requête de suppression quand je clique sur le bouton du formulaire et requête d'ajout comme peut en attester le code ci-dessous.

j'ai mis une procédure sur sélection de mon enregistrement pour que ca s'imprime lors de la sélection puis c'est tout,

Je ne comprend pas pourquoi ça marche pas chez moi l’actualisation du formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande33_click()
DoCmd.OpenQuery "RAZ_mvt_Auto"
DoCmd.OpenQuery "Rq_mvt_semi"
End Sub
 
Private Sub Modifiable30_AfterUpdate()
DoCmd.OpenReport "Rp_mvt_auto"
Forms![form_mvt_auto].RecordSource = Forms![form_mvt_auto].RecordSource
End Sub

merci beaucoup !

[tee_grandbois]

bonsoir,

Je ne comprend pas pourquoi ça marche pas chez moi l’actualisation du formulaire.

c'est après l'exécution des requêtes qu'il faut rafraichir !

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande33_click()
DoCmd.OpenQuery "RAZ_mvt_Auto"
DoCmd.OpenQuery "Rq_mvt_semi"
Forms![form_mvt_auto].RecordSource = Forms![form_mvt_auto].RecordSource
End Sub
 
Private Sub Modifiable30_AfterUpdate()
DoCmd.OpenReport "Rp_mvt_auto"
End Sub