[Déplacé .Net --> VBA] Eviter le "E-01" sous access 2003
gazil
Messages postés3Date d'inscriptiondimanche 12 octobre 2008StatutMembreDernière intervention 7 mai 2010
-
7 mai 2010 à 10:31
gazil
Messages postés3Date d'inscriptiondimanche 12 octobre 2008StatutMembreDernière intervention 7 mai 2010
-
7 mai 2010 à 15:32
Bonjour a tous,
J'ai un petit soucis sous access 2003.
Je dois créer un fichier avec des nombres récupéré dans un formulaire mais le problème est que je récupère des nombre comme ca :
4 4,53623196657993E-02
Je voudrais savoir si c'est possible d'avoir 0.0453... au lieu de 4.53...E-02
Un petit bout du code peut être :
For i = 1 To 15
'Boucle sur tous les composants
If Controls("Modifiable" & 20 + i).Value > 0 Then
'Si le composant est existant
If Controls("Modifiable" & 20 + i).Value < 10 Then
'si il est inferieur à 10
If Controls("Texte" & 111 + i).Value < 10 Then
'si son taux est supérieur à 10
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
'on écrit le numéro du composant et son taux
End If
If Controls("Texte" & 111 + i).Value >= 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
End If
If Controls("Modifiable" & 20 + i).Value >= 10 And Controls("Modifiable" & 20 + i).Value < 100 Then
If Controls("Texte" & 111 + i).Value < 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
If Controls("Texte" & 111 + i).Value >= 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
End If
If Controls("Modifiable" & 20 + i).Value >= 100 Then
If Controls("Texte" & 111 + i).Value < 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
If Controls("Texte" & 111 + i).Value >= 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
End If
End If
Next i
gazil
Messages postés3Date d'inscriptiondimanche 12 octobre 2008StatutMembreDernière intervention 7 mai 2010 7 mai 2010 à 10:37
For i = 1 To 15
'Boucle sur tous les composants
If Controls("Modifiable" & 20 + i).Value > 0 Then
'Si le composant est existant
If Controls("Modifiable" & 20 + i).Value < 10 Then
'si il est inferieur à 10
If Controls("Texte" & 111 + i).Value < 10 Then
'si son taux est supérieur à 10
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
'on écrit le numéro du composant et son taux
End If
If Controls("Texte" & 111 + i).Value >= 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
End If
If Controls("Modifiable" & 20 + i).Value >= 10 And Controls("Modifiable" & 20 + i).Value < 100 Then
If Controls("Texte" & 111 + i).Value < 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
If Controls("Texte" & 111 + i).Value >= 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
End If
If Controls("Modifiable" & 20 + i).Value >= 100 Then
If Controls("Texte" & 111 + i).Value < 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
If Controls("Texte" & 111 + i).Value >= 10 Then
a.writeline (" " & Controls("Modifiable" & 20 + i).Value & " " & Controls("Texte" & 111 + i).Value)
End If
End If
End If
Next i
gazil
Messages postés3Date d'inscriptiondimanche 12 octobre 2008StatutMembreDernière intervention 7 mai 2010 7 mai 2010 à 15:32
Je viens de découvrir d'où viens mon porblème. pourtant je n'ai toujours pas de réponse.
En fait cela vient de mes champs Texte, il fournissent un nombre avec minimum 10 décimales. je cherche a en avoir que 8 (cela me suffirait).
Merci par avance de votre aide.