Discussion :

[Domi17]

Bonjour,

Dans un formulaire, je souhaite paramétrer les valeurs par défaut de plusieurs champ "zone texte" en VBA.
Cependant j'ai une erreur étrange : si la valeur que j'essaie d'afficher contient une virgule j'obtiens une erreur #Nom ? et si le chiffre est un entier il s'affiche.

Le code que j’utilise est le suivant :

Code :

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

1
2
 
Me.[CG Tx horaire].DefaultValue = DLookup("[CgMoContrat]", "[02_Tbl_Contrat]", "[IdContrat] =" & Forms![04 Facturation]![LstContrat])

Pour essayer de débugger la situation, j'ai d'abord fait résoudre la fonction ci-dessus à travers une msgbox et j'ai bien la bonne valeur qui s'affiche.
Ensuite, j'ai fait plusieurs essais :

Code :

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

1
2
3
4
5
6
7
8
 
Me.[CG Tx horaire].DefaultValue = CSng("1,1")
Me.[CG Tx horaire].DefaultValue = "1,1"
Me.[CG Tx horaire].DefaultValue = 1.1
Me.[CG Tx horaire].DefaultValue = CSng(1.1)
Me.[CG Tx horaire].DefaultValue = CStr(1.1)
Me.[CG Tx horaire].DefaultValue = CStr("1,1")
Me.[CG Tx horaire].DefaultValue = 1

Le seul qui fonctionne est le dernier.
J'ai aussi enregistrer une valeur par défaut dans le paramètre du champ dans le mode édition du formulaire. Et là cela fonctionne avec un chiffre à virgule.

Auriez-vous une idée pour résoudre mon problème.
En vous remerciant d'avance.

[marot_r]

Bonjour.

Code :

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

Me.[CG Tx horaire].DefaultValue = "1.1"

Devrait marcher ainsi que :

Code :

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

1
2
dim unNombre as single:unNombre=1.1
Me.[CG Tx horaire].DefaultValue = unnombre

et peut être :

Me.[CG Tx horaire].DefaultValue = 1.1 & ""

Je suis surpris que :

Code :

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

Me.[CG Tx horaire].DefaultValue = 1.1

n'ai pas fonctionné.

Vérifie si tu n'as pas défini un format d'affichage sur ton champ.

A+

[Domi17]

Merci bien pour la réponse

La première méthode fonctionne très bien

Code :

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

1
2
 
'Me.[CG Tx horaire].DefaultValue = "1.1"

Pour la deuxième j'ai du la modifier un peu pour qu'elle fonctionne en remplaçant la virgule qui s'affichait par un point.
Cela donne :

Code :

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

1
2
3
4
 
Dim CGTxH As Single
CGTxH = DLookup("[CgMoContrat]", "[02_Tbl_Contrat]", "[IdContrat] =" & Forms![04 Facturation]![LstContrat])
Me.[CG Tx horaire].DefaultValue = Replace(CGTxH, ",", ".")

Il y a a donc un problème de gestion de format entre le point et la virgule.