Discussion :

[Mors_Ubyte]

Bonsoir,
Je ne comprends pas, j'ai des données numériques stockées dans le champs d'une table avec 3 décimales.
Dans mon programme je créé un recordset où je récupère la valeur de ce champs.

Mais je n'ai plus le format avec 3 décimales.

Comment faire pour garder mes 3 décimales.

Voici le code si cela peut vous éclairer:

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
Private Sub Report_Open(Cancel As Integer)
Dim Db As DAO.Database
Dim Rs_Entete As DAO.Recordset
 
'Création de l'entête
Set Db = Application.CurrentDb
Set Rs_Entete = Db.OpenRecordset("R_EditionFicheIsolementCable", dbOpenDynaset)
 
 
Creation_Entête Me.TXT_PK_CENTRE_DATA, Rs_Entete.Fields("pk_centre").Value
 
Rs_Entete.Close
Set Rs_Entete = Nothing
Set Db = Nothing
End Sub

Code :

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

1
2
3
4
5
6
7
Public Function Creation_Entête(Texte_Entete As Object, champs As Variant)
If IsNull(champs) = True Then
Texte_Entete.Caption = ""
Else
Texte_Entete.Caption = champs
End If
End Function

Merci d'avance.

[pgz]

Bonjour,

Tu pourrais essayer

Code :

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

Texte_Entete.Caption = Format(champs, "0.000")

Remarque : le type VARIANT est-il bien nécessaire dans la fonction?

pgz

[Tofalu]

Il vaudrait mieux déclarer du string, et s'assurer du cast ici :

Creation_Entête Me.TXT_PK_CENTRE_DATA, Nz(Rs_Entete.Fields("pk_centre").Value)

[Mors_Ubyte]

Ok merci, çà marche.

Code :

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

Creation_Entête Me.TXT_PK_CENTRE, Format(Rs_Entete.Fields("pk_centre").Value, "0.000")

A bientôt.

[Mors_Ubyte]

Il vaudrait mieux déclarer du string, et s'assurer du cast ici :

C'est quoi la cast?

Pardon pour mon ignorance.

[Tofalu]

Cast = conversion.

Nz permet de convertir un variant qui peut être nul en chaine de caractère valide en remplaçant le NULL par le deuxième paramètres de Nz (par défaut "")

[Mors_Ubyte]

Il vaudrait mieux déclarer du string, et s'assurer du cast ici :

citation:
Creation_Entête Me.TXT_PK_CENTRE_DATA, Nz(Rs_Entete.Fields("pk_centre").Value)

Je ne vois pas en quoi la fonction nz peu m'aider.

Pourrais tu m'éclairer, merci d'avance.

[Mors_Ubyte]

Ok, en fait la fonction nz sert à remplacer la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
 
Public Function Creation_Entête(Texte_Entete As Object, champs As Variant)
If IsNull(champs) = True Then
Texte_Entete.Caption = ""
Else
Texte_Entete.Caption = champs
End If
End Function

[Tofalu]

Ok, en fait la fonction nz sert à remplacer la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
 
Public Function Creation_Entête(Texte_Entete As Object, champs As Variant)
If IsNull(champs) = True Then
Texte_Entete.Caption = ""
Else
Texte_Entete.Caption = champs
End If
End Function

exactement