Discussion :

[JeremieT]

Bonjour à tous,

J'ai un formulaire assez "complexe" qui contient différents sous-formulaires, zones de texte de calcul se servant des sous-formulaires,...

Le problème que je rencontre est que je souhaiterai récupérer la valeur d'une des zone de texte pour l'ajouter dans une table, et ceci pour chaque enregistrement du formulaire :-)

J'avais donc fait un bout de code qui ressemble à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdAddTest_Click()
Dim i, nb
DoCmd.OpenForm "frmProduit"
nb = DCount("[idPF]", "tblPxRevCorrespondance")
For i = 0 To nb -1
' il s'agit de la requête ajout qui récupère la valeur du formulaire pour l'ajouter à la table
    DoCmd.OpenQuery "qryAddTest"
    If i <> nb - 1 Then DoCmd.GoToRecord , , acNext
Next i
DoCmd.Close acForm, "frmProduit"
End Sub

Je ne suis pas sur que ce code soit très "bon", qu'en pensez-vous ?

Et le principal problème est que chaque valeur ajoutée est "1", qui ne correspond pas au 267, 106, 18,...que j'attends et que j'obtiens lorsque je lance la requête en manuel après avoir ouvert le formulaire et attendu qu'il se charge complètement.

Il aurait donc été intéressant de s'assurer que le formulaire soit bien chargé avant d'exécuter la requête, c'est là que je bloque.

Par avance merci,
@+

P.S. j'ai testé http://access.developpez.com/faq/?page=system#sleep mais cela ne fonctionne pas car la pause se fait avant le chargement du forumlaire et empêche même ce chargement.

[Simplifi]

hello
pourquoi veut tu faire marcher (nb - 1) fois ta requête d'ajout?
que fait elle, cette requête?
et est ce qu'elle tient compte de "i" ?

NB: il est peut être possible de répondre à la question précise que tu pose mais il est surement plus efficace de regarder le pb de plus loin ! !

[JeremieT]

Bonjour simplifi, re à tous

Merci de ta réponse.

L'idée est de parcourir les x enregistrements d'un formulaire donné et à chaque passage sur l'enregistrement de récupérer la valeur d'une zone de texte pour l'ajouter dans une table.
Sachant que cette valeur de zone de texte est le résultat de multiple calcul et que donc l'affiche du résultat est un peu "long".
Avant donc de récupérer la valeur, il faudrait une sorte de tempo pour s'assurer que le formulaire ait bien fini tout les calculs, autrement dit, qu'il soit chargé complètement.
J'espère que je suis assez clair !

Merci
@+

[Simplifi]

hello
si l'attente ne marche pas, il faut trouver une autre asuce pour contourner le pb, c'est pour ça que je suggérais de regarder de plus loin, mais on n'en sait pas assez sur to appli!

[JeremieT]

Salut à tous,

j'ai finalement abandonné l'idée de l'attente, trop complexe et lourd, et je suis passé par x étapes initermédiaires pour arriver au même résultats (qui prend environ 15min pour mettre à jour les données)

Merci qd même à tous et simplifi ;-)

@+