Discussion :

[ahcorad]

Voila je suis complètement perdu sur la transmission d'une requête SQL à une zone de texte !!!
si quelqu'un peut m'aider !
merci

[LostIN]

une question bcp plus claire t'apportera des réponses.

[ahcorad]

Je voudrais que ma zone de texte est comme valeur une requete SQL (count) !
ma requete est exacte et enregistrée mais comment la lier à la zone de texte ???

[ahcorad]

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
17
18
19
20
21
22
23
24
25
26
27
Private Sub Modifiable27_Change()
ValeurA.Caption = DCount("*", "R1", "Qualité='A'")
ValeurB1.Caption = DCount("*", "R1", "Qualité='B1'")
ValeurB2.Caption = DCount("*", "R1", "Qualité='B2'")
ValeurC.Caption = DCount("*", "R1", "Qualité='C'")
ValeurD.Caption = DCount("*", "R1", "Qualité='D'")
ValeurT.Caption = DCount("*", "R1")
 
 
If ((ValeurA.Caption / ValeurT.Caption * 100) > 90) And ((ValeurC.Caption / ValeurT.Caption * 100 = 0)) Then
    ValeurQ.Caption = "Qualité A"
Else
    If (((ValeurA.Caption + ValeurB1.Caption) / ValeurT.Caption * 100) > 90) And ((ValeurC.Caption / ValeurT.Caption * 100 = 0)) Then
        ValeurQ.Caption = "Qualité B1"
    Else
        If (((ValeurA.Caption + ValeurB1.Caption + ValeurB2.Caption) / ValeurT.Caption * 100) > 90) And ((ValeurD.Caption / ValeurT.Caption * 100 = 0)) Then
            ValeurQ.Caption = "Qualité B2"
        Else
            If ((ValeurC.Caption / ValeurT.Caption * 100 > 10)) Then
                ValeurQ.Caption = "Qualité C"
            Else
                ValeurQ.Caption = "Qualité D"
            End If
        End If
    End If
End If
End Sub

sur certaines valeurs, une erreur est détectée : dépassement de valeur !!!
je compren pas tro l'erreur