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

[Parigoo]

J'avais déjà essayé après l’exécution des requêtes et j'ai le même résultat, je te te précise l'endroit ou j'ai placé les codes c'est peut-être ça qui fait tout foirer.

pour le bouton de la requête c'est sur "Click" et pour la liste déroulante c'est sur "après MAJ"

[tee_grandbois]

il me faudrait une copie d'écran du formulaire pour comprendre comment est agencé tout cela ...

[Parigoo]

il me faudrait une copie d'écran du formulaire pour comprendre comment est agencé tout cela ...

Je t'ai fait un beau GIF

[tee_grandbois]

c'est clair: le formulaire n'a pas de RecordSource (l'instruction Forms![form_mvt_auto].RecordSource n'a donc aucun effet), c'est la liste déroulante qu'il faut mettre à jour (je suppose que son nom est Modifiable30):

Code :

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

1
2
3
4
5
Private Sub Commande33_click()
DoCmd.OpenQuery "RAZ_mvt_Auto"
DoCmd.OpenQuery "Rq_mvt_semi"
Me.Modifiable30.RowSource = Me.Modifiable30.RowSource
End Sub

[Parigoo]

Ah désolé je ne savais pas quel le formulaire n'avais pas de Recordsource, mais c'est excellent sa fonctionne à merveille, ce sera mieux que la macro
sa me fera moins de fichier et c'est plus clair comme çà merci beaucoup,

tant qu' faire tu sait pourquoi lors de la sélection de la ligne qui m’intéresse seul le premier champs es retenu en affichage par access ? et une fois sélectionner il ne s'efface pas jusqu’à sélection de la prochaine ligne,

C'est juste ethétique mais j'aimerais que la ligne entièeres soit affiche quand je la selectionne et qu'elle s'efface une fois que j'ai fini avec elle..

Encore une fois c’est juste esthétique rien d'important, merci encore mon amie

[tee_grandbois]

Une liste déroulante n'affiche qu'une seule colonne, pour visualiser les autres colonnes, il faut cliquer sur la ligne.
Pour voir toutes les colonnes, remplace la zone de liste déroulante par une zone de liste (en mode création:clic droit sur le contrôle et choisir: "Remplacer par"), mais dans ce cas il faut agrandir le contrôle pour voir plus d'enregistrements et de colonnes (un peu comme un sous-formulaire)