Discussion :

[greg360]

Bonjour a tous,

Je souhaite raffraichir mon formulaire principal sans avoir a cliquer sur le bouton "Actualiser tout" edans l'onglet accueil de Access 2007.
En effet, c'est le seul moyen d'afficher le contenu des champs du formulaire, la requete sql s'executant avant le code visual basic qui rempli la table qui sert a remplir les champs du formulaire..
Comment, en code visual basic, je peux faire la meme chose que ce boutton actualiser ?

Merci de vos reponses

[Psychopathe]

Tu veux que les données se rafraichissent toutes seules ou tu veux cliquer quand même sur un bouton pour que relancer la requête?

[greg360]

Bonjour, merci d'avoir repondu.
Je souhaite que les donnees de la requete soient raffraichies automatiquement, sans que j'aie a cliquer sur ce bouton "raffraichir".

[Invité]

Bonjour

Regardes dans l'aide du coté de Requery

Philippe

[greg360]

Merci de ta reponse, mais des que je fais un Forms("Nom du formulaire").Requery , je me retrouve avec une page blanche, le formulaire ne s'affiche meme plus ...

[MisterS]

Bonjour ,

Pourrais-tu être plus clair sur l'utilisation ?

Ce qui rejoind Philippe JOCHMANS :

Pour rafraichir un formulaire Classic sur l'action d'un bouton tu met :

Code :

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

Forms![F_Principal].Requery

Cordialement ,

[greg360]

J'ai un formulaire principal, j'ai genere un code en visual basic au moment de l'ouverture de ce formulaire. Ce code vide puis remplis une table. Le formulaire contient 2 champs qui sont remplis par un select sur cette table. Losrsque je ne fais pas re requery, les champs concernes sont remplis par "#supprime", et lorsque j'appuye sur le bouton "actualiser tout" dans la barre d'accueil de access 2007, les champs se remplissent correctement.
Quand je fais un Me.Requery dans le code genere au moment de l'ouverture du formulaire, je me retrouve avec un formulaire vide, sans cases blanches ni de messages d'erreur, je peux remplir ce formulaire en cliquant sur le bouton "actualiser tout" dans la barre d'accueil de access 2007.
Je souhaite que ce raffraichissement se fasse tout seul, sans que j'aie a cliquer sur ce fichu bouton !

[Psychopathe]

Essaie Me.Repaint ou Me.recalc ou...

[MisterS]

Je pense que tu as dit la solution la ...

qui sont remplis par un select sur cette table.

Tu as donc une function public qui fait ton select , c'est bien ça ?

Du coup il te reste plus que a créer un bouton avec évenement sur click du style :

Code :

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

1
2
3
4
Private Sub Coucou_Click()
'Appel de la procédure
LancementDesSelect
End Sub

Qui appelera la public function "LancementDesSelect".

Dans cette fonction tu aurais tes select , tes order by ... etc en VBA-SQL.


Enfin moi je vois ça comme cela , d'après ce que j'en est compris.

Cordialement ,

[NguyenRD]

Quand on fait me.Requery c'est le formulaire qui set mis à jour. Pour actualiser il faut faire un saverecord. Essaie ce code où tu veux que le reresh se fasse:

Code :

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Bon courage

[greg360]

Me.repaint, me.recalc, me.refresh, me.requery ne fonctionnent pas,

Code :

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

ne fonctionne pas non plus

J'ai a moitie resolu le probleme en creeant un bouton actualiser dans le formulaire, avec la maccro "Actualiser" mais il faut que j'appuye au moins 2 fois sur ce bouton pour que le formulaire s'affiche correctement. J'ai essaye de lancer une maccro actualiser au chargement du formulaire, mais je pars en boucle infinie ...

[Psychopathe]

Essaie Docmd.Requery sinon... Je pense que si tu met le code dans la procédure à l'ouverture, ton problème serait certainement résolu...

[jojo5650]

essaye ceci
à la fin de ton module de modifiaction fait ceci
sendkey{^F9},true
Ce qui correspond à l'action du menu

[LedZeppII]

Bonjour,

Voici une alternative au Requery.
Déconnecter le formulaire de sa source de données pendant qu'on manipule celles-ci,
puis reconnecter le formulaire à sa source.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Dim db As DAO.Database
Dim strFmRecSce As String
 
Set db = CurrentDb
strFmRecSce = Me.RecordSource
Me.RecordSource = ""
 
db.Execute "DELETE FROM LaTable"
db.Execute "INSERT INTO LaTable(.. , .. , ...) SELECT .. , .. , ... FROM ..."
 
Me.RecordSource = strFmRecSce
 
End Sub

A+

[greg360]

Merci pour votre aide.
En tant que parfait debutant et etourdi que je suis, je ne vous ait pas dit que je souhaitais faire le requery sur un sous formulaire, j'ai donc essaye la methode du backup de recordsource puis de reasignation en utilisant ce code :

Code :

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

1
2
3
4
5
Dim strFmRecSce As String
 
strFmRecSce = Me.[Form Detail1].RecordSource
Me.[Form Detail1].RecordSource = ""
Me.[Form Detail1].RecordSource = strFmRecSce

mon sous-formulaire s'appelant "Form Detail1"

Mais je tombe sur une erreur d'execution 2465, mydsn ne trouve pas le champ '|' auquel il est fait reference.
Cela voudrait donc dire que le nom de mon sous-formulaire n'est pas "Form Detai1" mais comment puis-je m'en assurer svp ?

[LedZeppII]

Bonsoir,

On peut faire un Requery sur le sous-formulaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim db As DAO.Database
 
Set db = CurrentDb
 
' Manipulations données sources du sous-formulaire
db.Execute "DELETE FROM LaTable"
db.Execute "INSERT INTO LaTable(.. , .. , ...) SELECT .. , .. , ... FROM ..."
 
' Requery sous-formulaire
Me.[Nom du controle sous-formualire].Requery
 
End Sub

ou bien la méthode alternative

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
Private Sub Form_Load()
Dim db As DAO.Database
Dim strFmRecSce As String
 
Set db = CurrentDb
strFmRecSce = Me.[Nom du controle sous-formualire].Form.RecordSource
Me.[Nom du controle sous-formualire].Form.RecordSource = ""
 
' Manipulations données sources du sous-formulaire
db.Execute "DELETE FROM LaTable"
db.Execute "INSERT INTO LaTable(.. , .. , ...) SELECT .. , .. , ... FROM ..."
 
Me.[Nom du controle sous-formualire].Form.RecordSource = strFmRecSce
 
End Sub

Tu noteras que j'ai .Form entre le nom du contrôle sous-formulaire et la propriété RecordSource.

Code :

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

Me.[Nom du controle sous-formualire].UnMembre

UnMembre est une propriété ou une méthode du contrôle sous-fourmulaire.

Code :

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

Me.[Nom du controle sous-formualire].Form.UnMembre

UnMembre est une propriété ou une méthode du formulaire inclut dans le contrôle sous-formulaire.

A+

[treuss]

Bonjour, il faudra essayer la solution suivante car j'étais confronté à ce même problème et cette solution a marché:

Code VB :

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

Me.Refresh

[Invité]

Bonjour, il faudra essayer la solution suivante car j'étais confronté à ce même problème et cette solution a marché:
Me.Refresh

bonjour,
Et oui quand on veut rafraichir un formulaire c'est sur ce formulaire qu'il faut agir!

[jonathan.chaf]

Juste un grand merci à treuss

J'avais un sous formulaire qui reagissait bien sauf pour une listbox individuelle j'ai essayer plein de truc et le me.refresh marche a perfection si je l'inclu dans la macro de la liste box de mon 1er formulaire.

Encore merci.