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 SubMerci d'avance.
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
Partager