Discussion :

[Mariboo]

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 ??

[Arkham46]

slt,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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"

[Arkham46]

tu n'as pas mis un nombre négatif par hasard?
(avec un calcul ça peut arriver)

[Mariboo]

Non, y à pas de nombre négatifs

Mais c pas grave je vais me débrouiller autrement ... MERCI

[nononono76]

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)

[helas]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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