Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Requery

Requery

13 réponses
Avatar
Richard
Bonsoir,

J'ai écrit un certain code en ADO pour passer des transaction comtable dans
un formulaire qui contient des champs de saisie (non lié à aucune table).
une fois qu'on appui sur le bouton sauvegarde, le code rajoute un nouvel
enregistrement dans la table transaction. Le hic est que dans mon formulaire
j'ai aussi une liste de donnée (lstTransaction) qui est liée à la table
transaction via une requete sur la table transaction. Le problème est que le
nouvel enregistrement ne s'affiche pas tout de suite malgrè que je fais un
requery sur la liste et sur le formulaire j'ai tout essayé, refresh,
requery, repaint mais ça n'a servi à rien. Quelqu'un a une idée sur comment
corriger ça ?

Merci d'avance

Richard

Voici le code en question:

Private Sub cmdSaveTrans_Click()

Dim cnn1 As ADODB.Connection
Dim rstTrans As ADODB.Recordset
Dim strCnn As String


Me.Refresh


Set cnn1 = New ADODB.Connection
strCnn = "Intranet"
cnn1.Open strCnn

Set rstTrans = New ADODB.Recordset
rstTrans.CursorType = adOpenKeyset
rstTrans.LockType = adLockOptimistic
rstTrans.Open "transactions", cnn1, , , adCmdTable

With rstTrans
.AddNew
!DATETRANS = Me!DATETRANS
!DESCTRANS = Me!DESCTRANS
!REFTRANS = Me!REFTRANS
!ACCOUNTDEBITTRANS = Me!cmbDebit
!ACCOUNTCREDITTRANS = Me!cmbCredit
!AMOUNTTRANS = Me!AMOUNTTRANS
.Update
.Close
End With
Me!DATETRANS = date
Me!DESCTRANS = ""
Me!REFTRANS = ""
Me!cmbDebito = ""
Me!cmbCredito = ""
Me!AMOUNTTRANS = ""

cnn1.Close

Stop
lstTransaction.Requery

Me.Requery

Me.Refresh
Me.Repaint

End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
3stone
Salut,

[...]
Le problème est que le
nouvel enregistrement ne s'affiche pas tout de suite malgrè que je fais un
requery sur la liste et sur le formulaire j'ai tout essayé, refresh,
requery, repaint mais ça n'a servi à rien. Quelqu'un a une idée sur comment
corriger ça ?
[...]

Set rstTrans = New ADODB.Recordset
rstTrans.CursorType = adOpenKeyset
rstTrans.LockType = adLockOptimistic
rstTrans.Open "transactions", cnn1, , , adCmdTable

cnn1.Close

Stop <<<< J'espère que ce stop n'existe pas dans ta version ?
lstTransaction.Requery



Me!lstTransaction.Requery

... DOIT suffire pour autant que tu n'ais pas d'erreur de nom sur la liste.


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
Richard
En effet Pierre, le stop était là juste pour un test. Moi aussi je pensais
que le Me!lstTransaction.Requery suffirait, mais non et il n'y pas d'erreur
de nom !


3stone a écrit dans le message :
3fb7df36$0$10313$
Salut,

[...]
Le problème est que le
nouvel enregistrement ne s'affiche pas tout de suite malgrè que je fais
un


requery sur la liste et sur le formulaire j'ai tout essayé, refresh,
requery, repaint mais ça n'a servi à rien. Quelqu'un a une idée sur
comment


corriger ça ?
[...]

Set rstTrans = New ADODB.Recordset
rstTrans.CursorType = adOpenKeyset
rstTrans.LockType = adLockOptimistic
rstTrans.Open "transactions", cnn1, , , adCmdTable

cnn1.Close

Stop <<<< J'espère que ce stop n'existe pas dans ta version ?
lstTransaction.Requery



Me!lstTransaction.Requery

... DOIT suffire pour autant que tu n'ais pas d'erreur de nom sur la
liste.



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
Richard
J'ai même fait un bouton seulement pour cette commande et il faut appuyer 2
ou 3 fois pour actualiser les données. J'ai comme l'inpression que la
machine n'est pas assez rapide, pourtant je crois qu'un celeron 333 Mhz avec
160 Mb de Ram, Win98 et Access 2000 devrait suffir non ?
Y-a-til une commande qui fait attendre le code avant de l'excuter ou faut-il
passer par l'evenment Sur minuterie (OnTimer) ?


Richard a écrit dans le message :

En effet Pierre, le stop était là juste pour un test. Moi aussi je pensais
que le Me!lstTransaction.Requery suffirait, mais non et il n'y pas
d'erreur

de nom !


3stone a écrit dans le message :
3fb7df36$0$10313$
Salut,

[...]
Le problème est que le
nouvel enregistrement ne s'affiche pas tout de suite malgrè que je
fais



un
requery sur la liste et sur le formulaire j'ai tout essayé, refresh,
requery, repaint mais ça n'a servi à rien. Quelqu'un a une idée sur
comment


corriger ça ?
[...]

Set rstTrans = New ADODB.Recordset
rstTrans.CursorType = adOpenKeyset
rstTrans.LockType = adLockOptimistic
rstTrans.Open "transactions", cnn1, , , adCmdTable

cnn1.Close

Stop <<<< J'espère que ce stop n'existe pas dans ta version ?
lstTransaction.Requery



Me!lstTransaction.Requery

... DOIT suffire pour autant que tu n'ais pas d'erreur de nom sur la
liste.



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------











Avatar
3stone
Salut,

J'ai même fait un bouton seulement pour cette commande et il faut appuyer 2
ou 3 fois pour actualiser les données. J'ai comme l'inpression que la
machine n'est pas assez rapide, pourtant je crois qu'un celeron 333 Mhz avec
160 Mb de Ram, Win98 et Access 2000 devrait suffir non ?


Bien sûr... et ta base se trouve en local, j'imagine ?

Y-a-til une commande qui fait attendre le code avant de l'excuter ou faut-il
passer par l'evenment Sur minuterie (OnTimer) ?


Ne pas utiliser le timer pour cela...
Un requery sur le formulaire ne sert à rien, celui-ci est indépendant selon tes dires.
Un repaint ne fait qu'un rafraîchissement graphique.

C'est bien un requery sur la liste qu'il faut faire...
et n'oublie pas de bien "fermer" ta connection avant de faire le requery


Si après la sauvegarde des infos (sans requery), que tu ferme
et réouvre le formulaire, ta liste est à jour ?

A tout hasard... il n'y a pas de critères sur ta liste qui contrarient ?


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
Richard
3stone a écrit dans le message :
3fb8069b$0$10323$
Salut,

J'ai même fait un bouton seulement pour cette commande et il faut
appuyer 2


ou 3 fois pour actualiser les données. J'ai comme l'inpression que la
machine n'est pas assez rapide, pourtant je crois qu'un celeron 333 Mhz
avec


160 Mb de Ram, Win98 et Access 2000 devrait suffir non ?


Bien sûr... et ta base se trouve en local, j'imagine ?


Oui en effet ma base est en local




Y-a-til une commande qui fait attendre le code avant de l'excuter ou
faut-il


passer par l'evenment Sur minuterie (OnTimer) ?


Ne pas utiliser le timer pour cela...
Un requery sur le formulaire ne sert à rien, celui-ci est indépendant
selon tes dires.

Un repaint ne fait qu'un rafraîchissement graphique.

C'est bien un requery sur la liste qu'il faut faire...
et n'oublie pas de bien "fermer" ta connection avant de faire le requery


Si après la sauvegarde des infos (sans requery), que tu ferme
et réouvre le formulaire, ta liste est à jour ?


Oui elle est à jour



A tout hasard... il n'y a pas de critères sur ta liste qui contrarient ?


Je n'ai aucun critère sur ma liste

Merci



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
Rv
Salut,

Est-ce que vous avez essayé un :
me.lstTransaction.RowSource = me.lstTransaction.RowSource
voir :
dim strSourceListe as string
strSourceListe = me.lstTransaction.RowSource
me.lstTransaction.RowSource = ""
me.lstTransaction.RowSource = strSourceListe

Je dis cela car j'ai eu le mêm pb sur un formulaire dont je mettais à
jour les données via ADO et pour le voir raffraîchi je n'ai rien trouvé de
mieux que :
me.RecordSource = me.RecordSource

Le requery ne fonctionnait qu'après plusieurs tentatives successives!
Alors qu'en DAO il n'y avait pas de soucis!

A+

Rv

"Richard" a écrit dans le message de
news:%
Bonsoir,

J'ai écrit un certain code en ADO pour passer des transaction comtable
dans

un formulaire qui contient des champs de saisie (non lié à aucune table).
une fois qu'on appui sur le bouton sauvegarde, le code rajoute un nouvel
enregistrement dans la table transaction. Le hic est que dans mon
formulaire

j'ai aussi une liste de donnée (lstTransaction) qui est liée à la table
transaction via une requete sur la table transaction. Le problème est que
le

nouvel enregistrement ne s'affiche pas tout de suite malgrè que je fais un
requery sur la liste et sur le formulaire j'ai tout essayé, refresh,
requery, repaint mais ça n'a servi à rien. Quelqu'un a une idée sur
comment

corriger ça ?

Merci d'avance

Richard

Voici le code en question:

Private Sub cmdSaveTrans_Click()

Dim cnn1 As ADODB.Connection
Dim rstTrans As ADODB.Recordset
Dim strCnn As String


Me.Refresh


Set cnn1 = New ADODB.Connection
strCnn = "Intranet"
cnn1.Open strCnn

Set rstTrans = New ADODB.Recordset
rstTrans.CursorType = adOpenKeyset
rstTrans.LockType = adLockOptimistic
rstTrans.Open "transactions", cnn1, , , adCmdTable

With rstTrans
.AddNew
!DATETRANS = Me!DATETRANS
!DESCTRANS = Me!DESCTRANS
!REFTRANS = Me!REFTRANS
!ACCOUNTDEBITTRANS = Me!cmbDebit
!ACCOUNTCREDITTRANS = Me!cmbCredit
!AMOUNTTRANS = Me!AMOUNTTRANS
.Update
.Close
End With
Me!DATETRANS = date
Me!DESCTRANS = ""
Me!REFTRANS = ""
Me!cmbDebito = ""
Me!cmbCredito = ""
Me!AMOUNTTRANS = ""

cnn1.Close

Stop
lstTransaction.Requery

Me.Requery

Me.Refresh
Me.Repaint

End Sub





Avatar
3stone
Salut,

Est-ce que vous avez essayé un :
me.lstTransaction.RowSource = me.lstTransaction.RowSource



Hmmm, a tenter...

Mais, le requery sur la liste n'est pas lié à l'ajout des données par ADO.
Il devrait, me semble t-il, s'assurer que les données soit éffectivement présentent
dans la table au moment qu'il lance ce fameux requery...


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
Rv
Bonjour 3Stone,

"Mais, le requery sur la liste n'est pas lié à l'ajout des données par ADO"
Je ne comprends pas la remarque. Désolé!
Le code dit :
. Ajout via ADO d'un enregistrement dans la table transactions
. Mise à jour de la liste basé sur la table transactions
Pour moi, c'est lié dans le sens ou on met à jour la liste après avoir
ajouté l'enregistrement.
Je n'ai pas testé cette proposition, mais ça me rappelle tellement mon
soucis que ...
Et l'enregistrement que je voulais voir apparaître était bien dans la table.
Ce qui est, je suis bien d'accord, à vérifier avant tout pour ce cas de
figure.

De toute façon Richard va tester, et bien sûr il nous dira si ça marche!
Même si ça marche! Non?

A+

Rv
Avatar
Rv
Re,

Je viens de tester et ce n'est pas la solution.

Autre possibilité :
Si la table "transactions" est dans la même base que la liste
"lstTransaction", on peut utiliser la connection ADO courante de la base
pour éviter ce genre de soucis :

rstTrans.Open "transactions", currentproject.connection, , , adCmdTable
et on oublie cnn1.

A+

Rv

"Rv" a écrit dans le message de
news:
Salut,

Est-ce que vous avez essayé un :
me.lstTransaction.RowSource = me.lstTransaction.RowSource
voir :
dim strSourceListe as string
strSourceListe = me.lstTransaction.RowSource
me.lstTransaction.RowSource = ""
me.lstTransaction.RowSource = strSourceListe

Je dis cela car j'ai eu le mêm pb sur un formulaire dont je mettais à
jour les données via ADO et pour le voir raffraîchi je n'ai rien trouvé de
mieux que :
me.RecordSource = me.RecordSource

Le requery ne fonctionnait qu'après plusieurs tentatives successives!
Alors qu'en DAO il n'y avait pas de soucis!

A+

Rv




Avatar
3stone
Salut,

"Rv"
"Mais, le requery sur la liste n'est pas lié à l'ajout des données par ADO"
Je ne comprends pas la remarque. Désolé!



Je voulais juste dire par là... que l'ajout soit fait par ADO ou DAO,
le requery devait dans les deux cas rafraichir la liste...

Il me semble qu'un requery sur une liste "fonctionne" toujours de la même facon,
quel que soit la méthode utiliser pour la modification de la table.

Moi, je chercherais plutôt du coté de la méthode utilisée pour l'ajout des données.


Mais, Richard va revenir, bien sûr ;-)


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

1 2