commande "SysCmd"

Version imprimable

19/05/2006, 16h22
Mariboo

commande "SysCmd"

Bonjour,

Avant tout je tiens à remercier les concepteurs du site car celui ci m'a permis d'effectuer mon stage de l'année dernière sur access sans problèmes (ou presque!) !! Et cette année rebelotte ! Encore une application à faire sous Access (ça me déplai pas trop j'aime bien ... le seul probleme c'est qu'on étudie pas le VB dans mon IUT !! )

D'habitude je trouve les réponses que je veux dans la FAQ mais là j'ai beau chercher je trouve pas la résolution de mon erreur :

Voilà, je veux juste faire progresser la barre de progression dans la barre d'état du bas de mon form, j'ai donc le code suivant :

'-------------------------------------------
' OUVERTURE du .doc
'-------------------------------------------
SysCmd acSysCmdInitMeter, "Traitement", 100
SysCmd acSysCmdUpdateMeter, "Traitement", 10
OuvertureReussie = False
Probleme = False
'Vide la table temporaire
Effacement_table_fiche_temporaire ..................

Mais Quand j'exécute mon form, Access me dit :
"Erreur 2439 : L'expression entree comporte une fonction dont le nombre d'arguments n'est pas correct"
et le debogeur me montre la ligne :
SysCmd acSysCmdUpdateMeter, "Traitement", 10

Pourtant j'ai vérifier dans la FAQ et dans l'aide VB, les arguments me semblent correct .....

Quelqu'un aurait il la réponse à ce problème ??
19/05/2006, 16h31
Arkham46
slt,

je n'ai toujours vu qu'un paramètre pour acSysCmdUpdateMeter
Code:

1 2 SysCmd acSysCmdUpdateMeter, 10
Peut-être que ça dépend des versions d'Access...

PS : les balises de code c'est plus lisible que l'italique
19/05/2006, 16h37
Mariboo

Oui j'ai essayé ça aussi mais la commande je l'exécute à plusieurs moments et à certains endroits ou elle est écrite j'ai un nouveau bug :

"Appel de fonction illégal"
19/05/2006, 19h17
Arkham46

tu n'as pas mis un nombre négatif par hasard?
(avec un calcul ça peut arriver)
22/05/2006, 10h31
Mariboo

Non, y à pas de nombre négatifs

Mais c pas grave je vais me débrouiller autrement ... MERCI
17/12/2006, 13h41
nononono76

Citation:

Envoyé par Mariboo

D'habitude je trouve les réponses que je veux dans la FAQ mais là j'ai beau chercher je trouve pas la résolution de mon erreur :

Voilà, je veux juste faire progresser la barre de progression dans la barre d'état du bas de mon form, j'ai donc le code suivant :

'[I]-------------------------------------------
' OUVERTURE du .doc
'-------------------------------------------
SysCmd acSysCmdInitMeter, "Traitement", 100
SysCmd acSysCmdUpdateMeter, "Traitement", 10

Quelqu'un aurait il la réponse à ce problème ??

Bonjour,
Il ne faut pas reprendre ' "traitement", ' dans la deuxième ligne (en rouge ci-dessus)

Cette synthaxe fonctionne parfaitement
La barre progresse toutes les secondes jusqu'à 10s

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Commande4_Click()
 Dim r As Long, i As Long, n As Long
 
 r = SysCmd(acSysCmdInitMeter, "Traitement", 10)
 
 For i = 1 To 10
  r = SysCmd(acSysCmdUpdateMeter, i)
  n = Timer + 1
  Do Until Timer > n: DoEvents: Loop   'tempo d'une seconde
 Next i
 
 r = SysCmd(acSysCmdRemoveMeter)  
End Sub