code défile trop vite

Version imprimable

31/08/2006, 14h35
Kenia

code défile trop vite

Bonjour
J'ai un formulaire 'Totaux banques' pour calculer les sommes débit et crédit ainsi que solde issus d'autres formulaires (banques), exemple:
débit1, crédit1, solde1
débit2, crédit2, solde2
TotalSolde
Celà fonctionne si je laisse défiler le code VB pas à pas détaillé, mais non en enlevant les points d'arrêt dans le code. Est-ce que le code défile trop vite et ainsi le programme n'a pas le temps de calculer les totaux?
Peut-on faire les calculs sans ouvrir et fermer le formulaire en question?
Merci d'avance pour me donner un conseil
31/08/2006, 16h17
micniv

Puisqu'apparemment c'est un pb de code, il faut nous en montrer un peu et notammement le module critique.

A+
31/08/2006, 16h28
random

il faut demander le rafraichissement du formulaire

Voici une partie du code en question.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Form_Current()
 
    Dim curDébit55, curCrédit55, curSolde55 As Currency ‘ banque A
    Dim curDébit56, curCrédit56, curSolde56 As Currency ‘ banque B
    ‘etc pour banques C,D
 
    DoCmd.OpenForm "frm55"
    curDébit55 = Forms!frm55!txtTotalDébit
    curCrédit55 = Forms!frm55!txtTotalCrédit
    curSolde55 = Forms!frm55!txtSolde
    Forms!frmTotaux!Débit55 = curDébit55
    Forms!frmTotaux!Crédit55 = curCrédit55
    Forms!frmTotaux!Solde55 = curSolde55
    DoCmd.Close acForm, "frm55"
 
    DoCmd.OpenForm "frm56"
    curDébit56 = Forms!frm56!txtTotalDébit
    curCrédit56 = Forms!frm56!txtTotalCrédit
    curSolde56 = Forms!frm56!txtSolde
    DoCmd.Close acForm, "frm56"
    Forms!frmTotaux!Débit56 = curDébit56
    Forms!frmTotaux!Crédit56 = curCrédit56
    Forms!frmTotaux!Solde56 = curSolde56
 
‘ etc code pour autres banques    
End Sub

31/08/2006, 16h59
Kenia

code défile trop vite

Bonjour
J'ai ajouté en dernière ligne:
me.refresh
mais les totaux débit et crédit restent en blanc, tandis que les soldes indiquent 0.
31/08/2006, 17h03
random

ajoute un doevents
31/08/2006, 17h16
Kenia

J'ai ajouté le doevents au début du code mais ça fonctionne toujours pas.
Les totaux en blanc et les soldes à 0.

Bonjour,

Je ne comprends pas bien ton code. Pourquoi pas

Code:

1
2
3
4
5
6
7
8
DoCmd.OpenForm "frm55"
DoEvents
Forms!frmTotaux!Débit55 = Forms!frm55!txtTotalDébit
Forms!frmTotaux!Crédit55 = Forms!frm55!txtTotalCrédit
Forms!frmTotaux!Solde55  = Forms!frm55!txtSolde
DoCmd.Close acForm, "frm55"
 
...

Bon courage,

PGZ

31/08/2006, 19h31
Kenia

Merci PGZ (et tous les autres)
J'ai fait le code comme tu me l'as proposé mais le problème reste le même.
Celà ne fonctionne que si j'interromps le code à la 2. ligne (après DoEvents)avec un point d'arrêt.
J'ai bien peur que je dois faire un nouveau formulaire (ou état) d'autre manière, mais j'ai aucune idée comment procéder, quoi faire d'autre façon.
31/08/2006, 20h09
DMboup

Il faut commencer par maitriser l'évenement d'affectation.

1) Apparamment tu ouvres les formulaires frm & UnChiffre (form55) pour affecter le résultat des débits, crédit et solde. Est ce exact?

2) Pourquoi ne pas faire les affectations à la fermeture des formulaires du type frm5..?
31/08/2006, 20h53
pgz

bonsoir,

Citation:

Celà ne fonctionne que si j'interromps le code à la 2. ligne (après DoEvents)avec un point d'arrêt.

Je dis : bizarre...

Tu peux montrer la procédure en entier? Elle est déclenchée par quoi?

PGZ

Merci DMboup pour ta réponse
Les résultats se trouvent dans le pied de formulaire de chaque formulaire banque (frm55, frm56 etc):
txtTotalDébit -> source controle =Somme([Débit])
txtTotalCrédit -> source controle =Somme([Crédit])
txtSolde -> source controle =Somme([Débit])-Somme([Crédit])

Dans le code du formulaire frmTotaux j'ouvre les formulaires de banque pour avoir accès aux objets txtTotalDébit etc du formulaire en question.
Voici le code du formulaire frmTotaux pour avoir accès au formulaire banque en question (proposé par pgz).
Avant je stockais les résultats dans des variables, mais le résultat est le même.
Code:

1 2 3 4 5 6 7 8 Private Sub Form_Current() DoCmd.OpenForm "frm55" DoEvents Forms!frmTotaux!Débit55 = Forms!frm55!txtTotalDébit ' Ici le point d'arrêt Forms!frmTotaux!Crédit55 = Forms!frm55!txtTotalCrédit Forms!frmTotaux!Solde55 = Forms!frm55!txtSolde DoCmd.Close acForm, "frm55" End Sub
Celà fonctionne seulement si je mets un point d'arrêt dans la 3me ligne, sinon Débit55 et Crédir55 restent vides et le solde55 indique 0.

31/08/2006, 21h16
DMboup

Citation:

Envoyé par Kenia

Les résultats se trouvent dans le pied de formulaire de chaque formulaire banque (frm55, frm56 etc):
txtTotalDébit -> source controle =Somme([Débit])
txtTotalCrédit -> source controle =Somme([Crédit])
txtSolde -> source controle =Somme([Débit])-Somme([Crédit])

Oui ici j'avais deviné bien que un formulaire pour chaque banque me fait hurler..

Citation:

Envoyé par Kenia

Dans le code du formulaire frmTotaux j'ouvre les formulaires de banque pour avoir accès aux objets txtTotalDébit etc du formulaire en question.

Private Sub Form_Current()
DoCmd.OpenForm "frm55"
DoEvents
Forms!frmTotaux!Débit55 = Forms!frm55!txtTotalDébit ' Ici le point d'arrêt
Forms!frmTotaux!Crédit55 = Forms!frm55!txtTotalCrédit
Forms!frmTotaux!Solde55 = Forms!frm55!txtSolde
DoCmd.Close acForm, "frm55"
End Sub

Donc dans le formulaire frmTotaux tu as tous les champs

Débit5?, Débit5?, Solde5?
Débit55, Débit55, Solde55
Débit56, Débit56, Solde56
...
...
Débit5?, Débit5?, Solde5?

Pour remplir cette ligne Débit55, Débit55, Solde55, tu ouvres le formulaire frm55

Pour cette ligne Débit56, Débit56, Solde56, tu ouvres le formulaire frm56

Etc..

C'est soit cette construction qui ne vas pas ou c'est je ne comprends toujours pas.

Question
1. Est ce que les formulaires banques (frm5?) sont tous basés sur la même source?
2. Pourquoi à l'ouverture de frmTotaux tu ne peux pas faire un Recordset qui puisse directement dans les tables sources les données pour faire le calcul et remplir tous tes champs Débit5?, Débit5?, Solde5? ?

Voici le code en entier du formulaire frmTotaux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Form_Current()
 
    DoCmd.OpenForm "frm55"
    DoEvents
    Forms!frmTotaux!Débit55 = Forms!frm55!txtTotalDébit
    Forms!frmTotaux!Crédit55 = Forms!frm55!txtTotalCrédit
    Forms!frmTotaux!Solde55 = Forms!frm55!txtSolde
    DoCmd.Close acForm, "frm55"
 
    DoCmd.OpenForm "frm550"
    DoEvents
    Forms!frmTotaux!Débit550 = Forms!frm550!txtTotalDébit
    Forms!frmTotaux!Crédit550 = Forms!frm550!txtTotalCrédit
    Forms!frmTotaux!Solde550 = Forms!frm550!txtSolde
    DoCmd.Close acForm, "frm550"
 
    DoCmd.OpenForm "frm56"
    DoEvents
    Forms!frmTotaux!Débit56 = Forms!frm56!txtTotalDébit
    Forms!frmTotaux!Crédit56 = Forms!frm56!txtTotalCrédit
    Forms!frmTotaux!Solde56 = Forms!frm56!txtSolde
    DoCmd.Close acForm, "frm56"
 
    DoCmd.OpenForm "frm57"
    DoEvents
    Forms!frmTotaux!Débit57 = Forms!frm57!txtTotalDébit
    Forms!frmTotaux!Crédit57 = Forms!frm57!txtTotalCrédit
    Forms!frmTotaux!Solde57 = Forms!frm57!txtSolde
    DoCmd.Close acForm, "frm57"
 
    DoCmd.OpenForm "frm58"
    DoEvents
    Forms!frmTotaux!Débit58 = Forms!frm58!txtTotalDébit
    Forms!frmTotaux!Crédit58 = Forms!frm58!txtTotalCrédit
    Forms!frmTotaux!Solde58 = Forms!frm58!txtSolde
    DoCmd.Close acForm, "frm58"
 
    DoCmd.OpenForm "frm580"
    DoEvents
    Forms!frmTotaux!Débit580 = Forms!frm580!txtTotalDébit
    Forms!frmTotaux!Crédit580 = Forms!frm580!txtTotalCrédit
    Forms!frmTotaux!Solde580 = Forms!frm580!txtSolde
    DoCmd.Close acForm, "frm580"
 
    Me.Refresh
 
End Sub

Chaque formulaire est basé sur sa table spécifique:
frm55 sur tbl55
frm56 sur tbl56
etc.

Je trouves que ca irait mieux comme ca par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Form_Current()
Dim Mbd as Database, DTable As Recordset
Set Mbd=Currentdb()
 
' MAJ tbl55
Set DTable=Mbd.OpenRecordset("Select Sum(txtTotalDébit) As Debit, Sum(txtTotalCrédit) As Credit From tbl55")
 
        Forms!frmTotaux!Débit55 = DTable("Debit")
        Forms!frmTotaux!Crédit55 = DTable("Credit") 
        Forms!frmTotaux!Solde55 = DTable("Debit")-DTable("Credit") 
 
' MAJ tbl56
Set DTable=Mbd.OpenRecordset("Select Sum(txtTotalDébit) As Debit, Sum(txtTotalCrédit) As Credit From tbl56")
 
        Forms!frmTotaux!Débit56 = DTable("Debit")
        Forms!frmTotaux!Crédit56 = DTable("Credit") 
        Forms!frmTotaux!Solde56 = DTable("Debit")-DTable("Credit") 
 
' MAJ tbl550
idem
 
 
End Sub

31/08/2006, 22h58
Kenia

Merci encore une fois DMboup pour ta patience,
mais je n'arrive pas à ouvrir la variable
# Dim Mbd as Database #
Un message d'erreur me dit : erreur de compilation
type défini par l'utilisateur non défini
Est-ce que je dois ouvrir une nouvelle bibliothèque, si oui laquelle, pour accéder à ce type?
Comme tu vois je suis encore bien au début avec mes connaissances de programmation.
31/08/2006, 23h30
DMboup

C'est peut être les références DAO qu'il faut activé.
dans la fenettre de code Menu=>Outil=>Référence.

Bonjour,

Je suis d'accord pour dire que la méthode choisie n'est pas optimale, mais elle devrait marcher. J'ai essayé de reproduire le pb et j'ai compris que la difficulté venait de champs calculés sur l'ensemble des enregistrements du formulaire. Il y a une façon de pallier le problème:
Code:

1 2 3 4 5 6 7 8 Private Sub Form_Current() DoCmd.OpenForm "frm55" Docmd.GoToRecord acDataForm,"frm55",acLast Forms!frmTotaux!Débit55 = Forms!frm55!txtTotalDébit Forms!frmTotaux!Crédit55 = Forms!frm55!txtTotalCrédit Forms!frmTotaux!Solde55 = Forms!frm55!txtSolde DoCmd.Close acForm, "frm55" End Sub
Tu consultes ainsi les formulaires 55, 550, 56, 57, 58, 580. Le code peut aussi être condensé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Form_Current() Dim sfrmname As Variant, varfrm as variant sfrmname = Array("55", "550", "56", "57", "58", "580") For i = 0 To 5 DoCmd.OpenForm "frm" & sfrmname(i) Docmd.GoToRecord acDataForm,"frm" & sfrmname(i),acLast set varfrm = Forms("frm" & sfrmname) Me.Controls("Débit" & sfrmname(i)) = varfrm.txtTotalDébit Me.Controls("Crédit" & sfrmname(i)) = varfrm.txtTotalCrédit Me.Controls("Solde" & sfrmname(i)) = varfrm.txtTotalSolde DoCmd.Close acForm, varfrm.name next i Me.Refresh End Sub
A débuguer, c'est pour l'idée.

Maintenant si ces formulaires ont pour source de simples tables, on devrait pouvoir renseigner les champs de frmTotaux avec des fonctions de recherche dans les tables. Je n'en sais rien, mais on peut imaginer par exemple que la valeur TotalCrédit du frm55 c'est aussi

Code:

DSum("Crédit","tbl55")

Auquel cas la procédure pourrait devenir
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Form_Current() Dim sfrmname As Variant sfrmname = Array("55", "550", "56", "57", "58", "580") For i = 0 To 5 Me.Controls("Débit" & sfrmname(i)) = DSum("Débit","tbl" & sfrmname(i)) Me.Controls("Crédit" & sfrmname(i)) = DSum("Crédit","tbl" & sfrmname(i)) Me.Controls("Solde" & sfrmname(i)) = DSum("Solde","tbl" & sfrmname(i)) next i Me.Refresh End Sub
Toujours à débuguer. Mais c'est devenu très court et plus rationnel.

Enfin, on pourrait se demander si connaissant la somme des crédits et des débits, s'il faut lire aussi les soldes ou les calculer directement à partir des deux premiers...

En espérant que cela t'aide et cordialement,

PGZ

01/09/2006, 15h04
Kenia

1000 fois merci à pgz et tous les autres qui m'ont aidé.
Le dernier code de pgz fonctionne.