Bonjour à tous,
Dans une text box j'écris un calcul genre "3+5" lorsque je sors, After_Update de la text box calcule le résultat.
lorsque je fais une division, je limite le résultat à 5 caractères, virgule comprise, si le résultat à plus de 5 caractères, l'affichage ne sera pas juste.
Donc pour savoir que ce n'est pas juste je voudrais que le résultat affiche le caractère spécial 2248 (Presque égal à) à la place du "=" qui lui m'indique que le résultat est juste.
Ce code, ligne 5 m'affiche un petit carré au lieu du (Presque égal à)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub InputCalcul_AfterUpdate() m_iniValeur = Me!InputCalcul Me!InputCalcul = Eval(Nz(m_iniValeur, 0)) If Len(Me!InputCalcul) > 5 Then Me!InputCalcul = m_iniValeur & " " & ChrW(2248) & " " & Left(Me!InputCalcul, 5) Else Me!InputCalcul = m_iniValeur & " = " & Me!InputCalcul End If m_iniValeur = Me!InputCalcul & " " End Sub
Merci d'avance pour votre aide.
Partager