Discussion :

[eddy37fr]

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

[Jean-Philippe André]

salut,
quand tu dis que le code n'est pas exécuté, tu as une erreur ?
que se passe-t-il en mode pas à pas ?

[eddy37fr]

salut,
quand tu dis que le code n'est pas exécuté, tu as une erreur ?
que se passe-t-il en mode pas à pas ?

salut merci d'avoir repondu si vite

en fait il ne se passe rien et il m'affiche meme 0 comme valeur. Ceci dit entre temps j'ai reverifier mon code et j'avais

Code :

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

qui trainait dans la premiere partie car je voulais rafraichir le formulaire parent pour m'afficher les sommes. Je les ai enleves et ca a l'air de fonctionner.

Petite question: Peut-on enchainer autant de If....End if que l'on veut?

[Jean-Philippe André]

bien sûr, sous réserve de toute erreur

[eddy37fr]

OK merci

bonne journee