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?