Status bar et compagnie ...

cs_lhomme Messages postés 27 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 21 juillet 2004 - 17 juin 2004 à 11:20
cs_lhomme Messages postés 27 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 21 juillet 2004 - 18 juin 2004 à 12:13
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

cs_lhomme Messages postés 27 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 21 juillet 2004
18 juin 2004 à 11:40
alors ?
0
cs_lhomme Messages postés 27 Date d'inscription lundi 7 juin 2004 Statut Membre Dernière intervention 21 juillet 2004
18 juin 2004 à 12:13
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 

0