code défile trop vite

**Kenia** · 31/08/2006, 14h35

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

**micniv** · 31/08/2006, 16h17

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

A+

**random** · 31/08/2006, 16h28

il faut demander le rafraichissement du formulaire

**Kenia** · 31/08/2006, 16h31

Voici une partie du code en question.

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
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