bonjour a tous,

J'ai un formulaire (projets) avec 2 sous-formulaires (couts et depenses)

Pour le 1er subform j'ai une textbox (placer dans le pied du subform) qui cacule la somme des couts pour un projet.
Sur le formulaire parent j'ai une textbox qui compte le nombre d'enregistrements dans le 1er subform (couts). J'ai un bouton de commande qui sur click renseigne le champ TotalCouts de la table parent (Projets) en fonction du nombre d'enregistrements du subform. Si aucun enregistrement, TotalCouts = 0 et si nbre d'enregistrements > 0 alors TotalCouts = Subform1.SommeCouts ce qui donne le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CmdUpdateBudget_Click()
 
If Me!NumRec1= 0 Then
Me.TkBudget = 0
Else
Me.TkBudget = Me!fsubTkCost_List.Form!txtTotalStaffCost
End If
 
End Sub
bon c'est simple et ca marche

Le deuxieme sous-formulaire fonction exactement sur le meme principe et le code associe est

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If Me!NumRec2 = 0 Then
Me.TkSpent = 0
Else
Me.TkSpent = Me!fsubTkSpent_List.Form!txtTotalSpent
End If
lui aussi ca marche

le probleme c'est lorsque je colle les deux ensembles la deuxieme partie du code n'est pas execute

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
Private Sub CmdUpdateBudget_Click()
 
If Me!NumRec1 = 0 Then
Me.TkBudget = 0
Else
Me.TkBudget = Me!fsubTkCost_List.Form!txtTotalStaffCost
End If
 
' la partie du code qui suit n'est pas executee
 
If Me!NumRec2 = 0 Then
Me.TkSpent = 0
Else
Me.TkSpent = Me!fsubTkSpent_List.Form!txtTotalSpent
End If
End Sub
Si quelqu'un peut m'expliquer pourquoi la deuxieme partie du code n'est pas executee ca me sauverait la journee !

Merci