Discussion :

[Daniel MOREAU]

Bonjour à tous,

Je n'arrive pas a afficher dans ma listbox tous les chiffres après la virgule.

Lorsque je consulte le résultat de la requête qui alimente la listbox, j'ai bien 3 chiffres après la virgule, alors que dans ma listbox j'en vois 2.

J'ai changé le format de ma listbox sans succés.

Avez-vous une idée du problème.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Cbo_ChoixArt_AfterUpdate()
Dim db As Database
Dim StrSql As String
Set db = CurrentDb
 
StrSql = "SELECT Tbl_CoefCondSpec.Coef_ArtBCH FROM Tbl_TempInfo_TAchats " & _
    "INNER JOIN Tbl_CoefCondSpec ON Tbl_TempInfo_TAchats.[CODE PRODUIT] = " & _
    "Tbl_CoefCondSpec.CodeArticle WHERE " & _
    "(((Tbl_CoefCondSpec.CodeArticle)='" & Me.Cbo_ChoixArt & "'));"
 
Me.Lst_ChoixCoeff.RowSource = StrSql
Me.Lst_ChoixCoeff.Requery
Me.Form.Refresh
End Sub

Merci pour votre aide.

Daniel

[Tofalu]

Peut être ainsi :

StrSql = "SELECT CCur(Tbl_CoefCondSpec.Coef_ArtBCH) FROM Tbl_TempInfo_TAchats " & _
"INNER JOIN Tbl_CoefCondSpec ON Tbl_TempInfo_TAchats.[CODE PRODUIT] = " & _
"Tbl_CoefCondSpec.CodeArticle WHERE " & _
"Tbl_CoefCondSpec.CodeArticle='" & Me.Cbo_ChoixArt

Mais sans garantie