additionner plusieur champs

additionner plusieur champs - VB/VBA/VBS - Programmation

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
 
http://i85.servimg.com/u/f85/11/75/27/96/th/diapos15.jpg
 
j'ai réussi a faire s'est  calcul avec une expression mais ma table ne se met pas a jour?

Reply

Marsh Posté le 02-08-2009 à 20:09:14   

Reply

Marsh Posté le 03-08-2009 à 08:17:36    

Fais voir ton code car comme ça je vois pas trop le problème.

Reply

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

Reply

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...

Reply

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed