petit probleme VBA

1 réponse

novice

30/08/2004 à 16:23

Bonjour
J'ai un formulaire dans lequel j'ai un évènement sur ouverture.
J'y récupère quelques données, dont une longueur de fichier.

extrait du code....

******
Dim MySize As String

Me!Bienvenue = "[" + Environ("username") + "]"

If Len(Me!Bienvenue) < 7 Then
Me!Bienvenue = "[Invalid Username]"
End If

Me!Horloge = " @ " + Left(Time, 5)

Me!ComputerName = "[" + Environ("ComputerName") + "]"

*******
C'est ici que ça coince :
*******
MySize = FileLen("F:\batch\all.cmd")
Me!Size = MySize
*******

J'ai un message d'erreur

"Erreur d'exécution 2448"
Impossible d'attribuer une valeur à cet objet

Qu'ais-je oublié?

PS: A noter qu'un msgbox(mysize) fonctionne
merci a vous

1 réponse

Raymond [mvp]

30/08/2004 à 17:49

Bonjour.

Commence par changer tous les noms interdits car ils sont réservés par
access et ensuite dis-nous ce qui cloche.
ComputerName interdit en nom de champ
Size interdit en nom de champ
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum

"novice" a écrit dans le message de
news:

Bonjour
J'ai un formulaire dans lequel j'ai un évènement sur ouverture.
J'y récupère quelques données, dont une longueur de fichier.

extrait du code....

******
Dim MySize As String

Me!Bienvenue = "[" + Environ("username") + "]"

If Len(Me!Bienvenue) < 7 Then
Me!Bienvenue = "[Invalid Username]"
End If

Me!Horloge = " @ " + Left(Time, 5)

Me!ComputerName = "[" + Environ("ComputerName") + "]"

*******
C'est ici que ça coince :
*******
MySize = FileLen("F:batchall.cmd")
Me!Size = MySize
*******

J'ai un message d'erreur

"Erreur d'exécution 2448"
Impossible d'attribuer une valeur à cet objet

Qu'ais-je oublié?

PS: A noter qu'un msgbox(mysize) fonctionne
merci a vous

petit probleme VBA

1 réponse

Veuillez sélectionner un problème