Une partie du code n'est pas exécutée
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:
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:
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:
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 :cry: !
Merci
