Discussion :

[Daniel MOREAU]

bonsoir à tous,

Je souhaite créér une fonction qui calcul la somme de certains champs de mon formulaire.

voici le code :

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
Dim db As Database
Dim Frm As Form
Dim Ctrl As Control
Dim i As Integer
 
 
On Error GoTo fin
 
Set db = CurrentDb
Set Frm = Forms![Salaire]
 
For Each Ctrl In Frm.Controls
    If (Ctrl.Name) Like "Cbo_*" Then
    MsgBox Ctrl.Name
    MsgBox Ctrl.OldValue
    End If
Next
 
DoCmd.SetWarnings (False)
fin:

A partire de ce bout de code, je voudrais obtenir la valeur totale des champs dans le nom du champ commence par cbo.

Pouvez vous m'aider.

Daniel

[mout1234]

Bonsoir,

En supposant que tes valeurs sont de type entier (à adapter)

Code vba :

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
Dim db As Database
Dim Frm As Form
Dim Ctrl As Control
Dim i As Integer
Dim lngTotal as Long 'type à adapter suivant ton besoin
 
On Error GoTo fin
 
Set db = CurrentDb
Set Frm = Forms![Salaire]
 
For Each Ctrl In Frm.Controls
    If (Ctrl.Name) Like "Cbo_*" Then
             lngTotal = lngTotal + Nz(Ctrl.Value,0)
    End If
Next
 
Debug.print lngTotal

[Daniel MOREAU]

Re,

Merci pour ta réponse, c'est effectivement cela.
Je vais l'adapter.

Merci encore

Daniel