Discussion :

[tlombahe]

Bonjour à tous ,

Je me permet de vous soliciter afin de repondre a une petite question .

Voila j'ai 2 tables

table :T1
champs C1

C1
-----
A
B
C



Table T2
Champs

A B C D
2 5 10 20


Je souhaite faire la somme des champs de T2 en fonction du champ T1
la table T1 est rempli par un formulaire et donc variable ..

Merci par avance je ne sait pas si cela est réalisable ...


Bonne journée a tous

[Moha25fr]

même si c'est pas facile de deviner ce que tu veux faire

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
27
28
29
Function testo()
'On Error GoTo suite_err
Dim Dbs As Database, Rst As Recordset, At
Set Dbs = CurrentDb
Dim Montotal As Double
Montotal = 0
Set Rst = Dbs.OpenRecordset("T1")
Rst.MoveFirst
Do While Not Rst.EOF
 
Montotal = Montotal + Nz(DLookup(Rst.Fields(0), "T2"), 0)
 
 
Rst.MoveNext
Loop
 
 
MsgBox Montotal
 
Rst.Close
Set Dbs = Nothing
 
suite_exit:
   Exit Function
suite_err:
MsgBox Err.Description & "  >>>  N° Err=" & Err.Number
Resume suite_exit
 
End Function

A+

[tlombahe]

Merci pour cette aide ;et excuse moi pour le question mais ou je doit mettre le code ??

Merci de ton aide

[Sethouille]

Bah dans ton module de formulaire, enfin si tu as un formulaire :p
Sinon tu peux créer un module, mais va faloir l'appeler ...

[Moha25fr]

soit dans un formulaire ou une table ou une requête

sur un formulaire tu vas créer une zone de texte exemple texte0
sur ouverture du formulaire

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
   Me.Texte0 = testo
End Sub

sur un bouton

Code :

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

1
2
3
4
5
 
Private Sub mon_bouton_Click()
Me.Texte0 = testo
 
End Sub