additionner plusieur champs - VB/VBA/VBS - Programmation
Marsh Posté le 03-08-2009 à 08:17:36
Fais voir ton code car comme ça je vois pas trop le problème.
Marsh Posté le 03-08-2009 à 17:45:09
bonjour
dans ma requête j'ai inscrire l'expression suivant mais la table ne se met pas a jour
1°Serie: [Tir01]+[Tir02]+[Tir03]+[Tir04]+[Tir05]+[Tir06]+[Tir07]+[Tir08]+[Tir09]+[Tir10]
par contre sur le bouton compte j'ai mie : Option Compare Database
Private Sub Commande160_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Left(ctrl.Name, 3) = "Tir" Then
Select Case ctrl
Case 0 To 6
t6 = t6 + 1
Case 7
t7 = t7 + 1
Case 8
t8 = t8 + 1
Case 9
t9 = t9 + 1
Case 10
t10 = t10 + 1
End Select
End If
End If
Next
Me.Nombre_de_07 = t7
Me.Nombre_de_08 = t8
Me.Nombre_de_09 = t9
Me.Nombre_de_10 = t10
Me.Nombre_de_blanc = t6
End Sub
cela me donne le nombre de 10 . 9 . 8 . 7 etc
Marsh Posté le 03-08-2009 à 18:02:31
Ton select t'es sur qu'il marche ? Car comparer un Control à un nombre entier je suis pas sur moi...
Marsh Posté le 05-08-2009 à 11:24:25
Salut
Je ne peux pas voir l'image (mon entreprise bloque le site -_-)
du coup j'ai pas trop saisi ton problème.
Pour faire une addition de champ pourquoi ne pas le faire dans une requete sql?
avec sql "sum" et tu "group by" ce qu'il faut?
c'est bien plus rapide que de le faire à la main, il me semble.
Marsh Posté le 02-08-2009 à 20:09:14
bonjour
j'ai une base access et je voudrais additionner plusieur champs
le champs (TIR01 tir02 tir03 etc etc , le résultat doit se trouver dans 1°serie) et toute les séries doive être additionne et le résultat doit être dans total
j'ai réussi a faire s'est calcul avec une expression mais ma table ne se met pas a jour?