Discussion :

[carterjr]

bonjour tt le monde

comment se fait il que vb6 me fait une concaténation au lieu d'afficher les chiffres correctement ? la valeur qui doit être 360.000
a la place, il m'affiche 360205 (205 qui est la valeur de x que j'entre dans l'inputbox)

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
 
Option Explicit
 
Sub main()
Dim x As Long
x = InputBox("valeur x")
Dim db As Database
Dim record As Recordset
Dim list As ListItem
Dim Montant As Long
Dim s As String
s = "SELECT  [COMMANDER].[QTE],[ARTICLE].[PU],[BON_DE_COMMANDE].[NUM_BC] FROM ARTICLE,COMMANDER,[BON_DE_COMMANDE] WHERE [ARTICLE].[REF_ART] = [COMMANDER].[REF_ART] AND [BON_DE_COMMANDE].[NUM_BC] = [COMMANDER].[NUM_BC] AND [BON_DE_COMMANDE].[NUM_BC] like " & x & ""
Set db = OpenDatabase(App.Path & "\Base de données\Base.mdb")
Set record = db.OpenRecordset(s, dbOpenDynaset)
record.MoveFirst
While record.EOF = False
    Montant = (record.Fields(0) * record.Fields(1)) + ((record.Fields(0) * record.Fields(1)) * (20 / 100))
    x = x + Montant
    record.MoveNext
Wend
    MsgBox x
record.Close
db.Close
End Sub

merci d'avance

[l_autodidacte]

Les champs QTE et PU sont-il déclarés Numérique dans la base de données ?

Essaie avec

Code :

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

s = "SELECT  [COMMANDER].[QTE],[ARTICLE].[PU],[BON_DE_COMMANDE].[NUM_BC] FROM ARTICLE,COMMANDER,[BON_DE_COMMANDE] WHERE [ARTICLE].[REF_ART] = [COMMANDER].[REF_ART] AND [BON_DE_COMMANDE].[NUM_BC] = [COMMANDER].[NUM_BC] AND [BON_DE_COMMANDE].[NUM_BC] like '%" & x & "%'"

en ajoutant '% avant x et %' après

[carterjr]

oui PU et QTE sont bien de type numérique

il m'affiche maintenant "aucun enregistrement en cours"

[carterjr]

j'ai trouvé

j'ai essayer ceci et ça marche nickel

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
Option Explicit
Public Function NetaPayer(x As Variant)
Dim db As Database
Dim record As Recordset
Dim List As ListItem
Dim Montant As Long
Dim s As String
s = "SELECT [COMMANDER].[QTE],[ARTICLE].[PU],[BON_DE_COMMANDE].[NUM_BC] FROM ARTICLE,COMMANDER,[BON_DE_COMMANDE] WHERE [ARTICLE].[REF_ART] = [COMMANDER].[REF_ART] AND [BON_DE_COMMANDE].[NUM_BC] = [COMMANDER].[NUM_BC] AND [BON_DE_COMMANDE].[NUM_BC] like '" & x & "'"
Set db = OpenDatabase(App.Path & "\base.mdb")
Set record = db.OpenRecordset(s, dbOpenDynaset)
 If record.RecordCount = 0 Then
    x = 0
 Else
    x = 0
    record.MoveFirst
    While record.EOF = False
        Montant = ((record.Fields(0) * record.Fields(1)) + ((record.Fields(0) * record.Fields(1)) * (20 / 100)))
        x = x + Montant
        record.MoveNext
    Wend
End If
NetaPayer = x
record.Close
db.Close
End Function

encore merci