OVH Cloud OVH Cloud

visible ou pas visible

15 réponses
Avatar
Yann
bonjours

j'ais un bout de code qui n'a pas l'air de fonctionner normalement quel
qu'un pourais me dir quoi?
Merci
yann

dbl = FileLen(CurrentDb.Name)
If dbl > (150 * 1024 * 1024) Then
Me!Compactage.Visible = False
ElseIf dbl < (150 * 1024 * 1024) Then
Me!Compactage.Visible = True
End If

5 réponses

1 2
Avatar
Jessy SEMPERE
Ok

Sur le fait d'écrire 150# pour déclarer 150 comme double, ça
je connaissais...
En fait ce que je ne savais pas c'est qu'il fallait convertir en donnée
double les nombres que l'on multiplie si le résultat est lui même une
donnée double.

Le fait qu'Access convertisse 150.00 en 150# me paraît logique
vu que s'il y a une décimale dans la donnée numérique, Access
considère qu'il s'agit d'une donnée double.
Du coup si tu écris :
dbl = 150.12 * 1024 * 1024
ça ne plante pas...

Sur le principe je pense que c'est une prise de tête pas très utile
mais bon une fois qu'on le sait, y a plus de problème.

Merci

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond" a écrit dans le message news:

je l'ai trouvé par hasard en composant par exemple:
150.00 * 1024.00 * 1024.00
et c'est access qui met lui-meme le # car ça devient une constante de
compilation et non plus une variable. je ne sais plus si c'était en 97 ou
en

2000.
la ligne vb devient 150# * 1024# * 1024# automatiquement.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Jessy SEMPERE" a écrit dans le message de
news:bgald6$co5$
Salut
ça provoque un dépassement de capacité .
il faut passer par : dbl = 150# * 1024# * 1024# et tu obtiendra bien
le



résultat de 157 286 400


Ben écoutes Arnaud vient de m'expliquer la même chose et pour le
coup c'est vraiment un truc que je ne savais pas...
Comme je disais à Arnaud, on en apprend tous les jours.

Comment as-tu trouvé cette particularité ?
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------








Avatar
Jessy SEMPERE
Re,
Au moment où tu reçois le message d'erreur run-time error 6 overflow,
j'ai cliqué sur le bouton "Aide" ;-))))


Perso c'est ce que je fais toujours quand ça plante et que je ne sais pas
pourquoi mais là, ça ne dit pas grand chose...

Sinon, j'avais aussi un vague souvenir que ce sujet avait été abordé
il y a quelques mois (moilneu peut-être ??)
Comme je disais à 3stone plus haut :
ma mémoire est sélective.
Je suis sûr qu'on en a parlé
Je ne suis sûr de rien quant à savoir *qui* en a parlé


Le principal c'est de s'en souvenir, peu importe après d'où venait
l'info si ce n'est de rendre à César ce qui est à César... ;-))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------

Avatar
laurent commes
-----Message d'origine-----
bonjours

j'ais un bout de code qui n'a pas l'air de fonctionner
normalement quel

qu'un pourais me dir quoi?
Merci
yann

dbl = FileLen(CurrentDb.Name)
If dbl > (150 * 1024 * 1024) Then
Me!Compactage.Visible = False
ElseIf dbl < (150 * 1024 * 1024) Then
Me!Compactage.Visible = True
End If


.
pour rendre un contrôle invisible s'assurer que le focus
n'est pas dessus !!!


Avatar
3stone
laurent commes
.
pour rendre un contrôle invisible s'assurer que le focus
n'est pas dessus !!!



Mais si, cela n'empêche pas....

C'est le désactiver (enabled) que l'on ne peut pas avec le focus !


;-))


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

Avatar
Jessy SEMPERE
Bonjour,

Tu avais essayer ce qui était ressorti de ton post initial, à savoir :
(avec le fameux #)

dbl = FileLen(CurrentDb.Name)
If dbl > (150# * 1024 * 1024) Then
Me!Compactage.Visible = False
Else
Me!Compactage.Visible = True
End If

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"laurent commes" a écrit dans le message news:
079501c35a99$1afc14d0$

-----Message d'origine-----
bonjours

j'ais un bout de code qui n'a pas l'air de fonctionner
normalement quel

qu'un pourais me dir quoi?
Merci
yann

dbl = FileLen(CurrentDb.Name)
If dbl > (150 * 1024 * 1024) Then
Me!Compactage.Visible = False
ElseIf dbl < (150 * 1024 * 1024) Then
Me!Compactage.Visible = True
End If


.
pour rendre un contrôle invisible s'assurer que le focus
n'est pas dessus !!!


1 2