Status bar et compagnie ...

Signaler
Messages postés
27
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
21 juillet 2004
-
Messages postés
27
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
21 juillet 2004
-
salut ,

J ai trouvé plein de code sur les status bar mais ca marche pas dans ma base access !! (access 97)

Faut il une version precise de vba ou un module ...

Merci

2 réponses

Messages postés
27
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
21 juillet 2004

alors ?
Messages postés
27
Date d'inscription
lundi 7 juin 2004
Statut
Membre
Dernière intervention
21 juillet 2004

Bon en fait jai finalement trouvé comment le faire pour access!!

pour ceux que ca interesse, voici un exemple :


Dim barre as Variant

DoCmd.Hourglass True 

barre = SysCmd(SYSCMD_INITMETER, "Update is running", 100)

'on plce dans le code a different endroit la ligne suivante avec des valeurs differents 
'si on le place dans une boucle avec i que lon incremente on peut ecrire  : 
'barre = SysCmd(SYSCMD_UPDATEMETER, i) 
barre = SysCmd(SYSCMD_UPDATEMETER, 10) 

barre = SysCmd(SYSCMD_REMOVEMETER) 

DoCmd.Hourglass False