J'ai parcouru les nombreuses pages parlant de ce sujet, mais je n'ai rien vu
sur mon problème.
On parle toujours du nbre d'enregistrements connus, mais quand on ne connaît
à l'avance ce nombre comment peut-on faire défiler cette barre de
progression, je vous livre ici mune partie de code:
Sub LPListeDirectory(pPath As String, pNomCD As String)
Dim MyPath As String
Dim MyName As String
Dim iNiveau As Integer, Uncompteur As Integer
Dim chMsg As String, NbreFonc As Integer, ValeurRetournée As Variant
chMsg = "Chargement des fichiers"
NbreFonc = 100
ValeurRetournée = SysCmd(acSysCmdInitMeter, chMsg, 100)
Uncompteur = 0
iNiveau = 0
MyPath = IIf(Right(pPath, 1) <> "\", pPath & "\", pPath)
MyName = LPSynchronise(MyPath, 0) ' Extrait la première entrée.
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory
Then
LPEnregistrePath MyPath & MyName, pNomCD
LPListeDirectory MyPath & MyName, pNomCD
Else
LPEnregistreFile MyPath, MyName
End If
End If
iNiveau = iNiveau + 1
MyName = LPSynchronise(MyPath, iNiveau) ' Extrait l'entrée
suivante.
Uncompteur = Uncompteur + 1
ValeurRetournée = SysCmd(acSysCmdUpdateMeter, Uncompteur)
Loop
'ValeurRetournée = SysCmd(acSysCmdUpdateMeter, UnCompteur) ' ici,
j'ai une erreur:appek de fonction illégale?
Set maBD = Nothing
Set rstRep = Nothing
ValeurRetournée = SysCmd(acSysCmdRemoveMeter)
End Sub
J'ai bien une barre qui s'affiche avec chargement de fichiers, mais elle
reste figée.
Comment pourrait-on bien faire?
D'avance merci à tous.
Je viens de tester la réponse de Microsoft et ça ne fonctionne pas: On a une erreur: 2439 - l'expression entrée comporte une fonction dont le nombre d'arguments n'est pas correct. J'avias au préalable déclaré R comme dit dans l'exemple. J'ai remis on error resume next et ça re-fonctionne :) Une autre petite question, avec un ActiveX, valeur minimale et maximale, ça fonctionne comment si on ne les connaît pas, comme dans ma fonction. Juste pour savoir si c'est possible. @+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:%
Salut Anor et ...3Stone (:))
J'avais reçu ton message (le premier), les autres pas, finalement, j'avais mis On Error Resume Next et ça fonctionnait au poil, bien sûr, à chaque répertoire, il recommençait à afficher une nouvelle barre, pas grave ! Ceci dit, je vais regarder la solution de Microsoft, parce la machin en allemand, faut se le farcir. Où as-tu été péché ça :) Chapeau, il fallait le faire. @+ et encore merci
Guy FALESSE
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:
Bonjour,
Guy FALESSE wrote: | Salut Anor, | | Voilà, j'ai testé et j'ai une erreur 7952 appel de fonction illégal. | Bien sûr, il y a d'autres fonctions qui entrent en ligne de compte. | Si tu veux, je peux t'envoyer une base allégée pour voir le processus | complet. | D'avance merci | | Guy FALESSE |
ok tu la zippe, tu cliques sur ce lien http://memoaccess.free.fr/anor/email.htm et tu me l'envoies.
j'espère trouver 5 minutes pour regarder ce WE, mais c'est un WE chargé qui se présente !
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Salut Anor,
Je viens de tester la réponse de Microsoft et ça ne fonctionne pas:
On a une erreur: 2439 - l'expression entrée comporte une fonction dont le
nombre d'arguments n'est pas correct.
J'avias au préalable déclaré R comme dit dans l'exemple.
J'ai remis on error resume next et ça re-fonctionne :)
Une autre petite question, avec un ActiveX, valeur minimale et maximale, ça
fonctionne comment si on ne les connaît pas, comme dans ma fonction.
Juste pour savoir si c'est possible.
@+
Guy FALESSE
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de
news:%23J4QeXkOEHA.620@TK2MSFTNGP10.phx.gbl...
Salut Anor et ...3Stone (:))
J'avais reçu ton message (le premier), les autres pas, finalement, j'avais
mis On Error Resume Next et ça fonctionnait au poil, bien sûr, à chaque
répertoire, il recommençait à afficher une nouvelle barre, pas grave !
Ceci dit, je vais regarder la solution de Microsoft, parce la machin en
allemand, faut se le farcir.
Où as-tu été péché ça :) Chapeau, il fallait le faire.
@+ et encore merci
Guy FALESSE
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
de
news:e1LOkgcOEHA.3096@TK2MSFTNGP09.phx.gbl...
Bonjour,
Guy FALESSE wrote:
| Salut Anor,
|
| Voilà, j'ai testé et j'ai une erreur 7952 appel de fonction illégal.
| Bien sûr, il y a d'autres fonctions qui entrent en ligne de compte.
| Si tu veux, je peux t'envoyer une base allégée pour voir le processus
| complet.
| D'avance merci
|
| Guy FALESSE
|
ok tu la zippe, tu cliques sur ce lien
http://memoaccess.free.fr/anor/email.htm
et tu me l'envoies.
j'espère trouver 5 minutes pour regarder ce WE, mais c'est un WE chargé
qui se présente !
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Je viens de tester la réponse de Microsoft et ça ne fonctionne pas: On a une erreur: 2439 - l'expression entrée comporte une fonction dont le nombre d'arguments n'est pas correct. J'avias au préalable déclaré R comme dit dans l'exemple. J'ai remis on error resume next et ça re-fonctionne :) Une autre petite question, avec un ActiveX, valeur minimale et maximale, ça fonctionne comment si on ne les connaît pas, comme dans ma fonction. Juste pour savoir si c'est possible. @+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:%
Salut Anor et ...3Stone (:))
J'avais reçu ton message (le premier), les autres pas, finalement, j'avais mis On Error Resume Next et ça fonctionnait au poil, bien sûr, à chaque répertoire, il recommençait à afficher une nouvelle barre, pas grave ! Ceci dit, je vais regarder la solution de Microsoft, parce la machin en allemand, faut se le farcir. Où as-tu été péché ça :) Chapeau, il fallait le faire. @+ et encore merci
Guy FALESSE
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:
Bonjour,
Guy FALESSE wrote: | Salut Anor, | | Voilà, j'ai testé et j'ai une erreur 7952 appel de fonction illégal. | Bien sûr, il y a d'autres fonctions qui entrent en ligne de compte. | Si tu veux, je peux t'envoyer une base allégée pour voir le processus | complet. | D'avance merci | | Guy FALESSE |
ok tu la zippe, tu cliques sur ce lien http://memoaccess.free.fr/anor/email.htm et tu me l'envoies.
j'espère trouver 5 minutes pour regarder ce WE, mais c'est un WE chargé qui se présente !
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Anor
SAlut,
Guy FALESSE wrote: | Salut Anor et ...3Stone (:)) | | Ceci dit, je vais regarder la solution de Microsoft, parce la machin | en allemand, faut se le farcir. | Où as-tu été péché ça :) Chapeau, il fallait le faire.
ça ? zu 1. du kannst neben der toolboox auf die 3 punkte klicken und dort das | Objekt progressbar in deine Form ziehen. | Oder du kannst auf der Statusleiste ein Progressbar darstellen. sur Google, bien sûr !
"tu peux à côté de la boite à outils cliquer sur les 3 points et..(...) dans ton formulaire un objet barre de progression". Ou alors tu peux (...) une barre de progression dans la barre de status.
tu vois, avec le peu de vocabulaire allemand que j'ai (6 années seulement à l'école), il ne me manque que 2 verbes ;-)))
Bonne continuation je me dépêche parce que "Ich muß mal" (mot à mot "je dois une fois", mais ça veut dire autre chose et ça devrait aller mieux après ;-))))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
SAlut,
Guy FALESSE wrote:
| Salut Anor et ...3Stone (:))
|
| Ceci dit, je vais regarder la solution de Microsoft, parce la machin
| en allemand, faut se le farcir.
| Où as-tu été péché ça :) Chapeau, il fallait le faire.
ça ?
zu 1. du kannst neben der toolboox auf die 3 punkte klicken und dort das
| Objekt progressbar in deine Form ziehen.
| Oder du kannst auf der Statusleiste ein Progressbar darstellen.
sur Google, bien sûr !
"tu peux à côté de la boite à outils cliquer sur les 3 points et..(...) dans ton formulaire un
objet barre de progression".
Ou alors tu peux (...) une barre de progression dans la barre de status.
tu vois, avec le peu de vocabulaire allemand que j'ai (6 années seulement à l'école),
il ne me manque que 2 verbes ;-)))
Bonne continuation
je me dépêche parce que "Ich muß mal"
(mot à mot "je dois une fois", mais ça veut dire autre chose et ça devrait aller mieux après
;-))))
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Guy FALESSE wrote: | Salut Anor et ...3Stone (:)) | | Ceci dit, je vais regarder la solution de Microsoft, parce la machin | en allemand, faut se le farcir. | Où as-tu été péché ça :) Chapeau, il fallait le faire.
ça ? zu 1. du kannst neben der toolboox auf die 3 punkte klicken und dort das | Objekt progressbar in deine Form ziehen. | Oder du kannst auf der Statusleiste ein Progressbar darstellen. sur Google, bien sûr !
"tu peux à côté de la boite à outils cliquer sur les 3 points et..(...) dans ton formulaire un objet barre de progression". Ou alors tu peux (...) une barre de progression dans la barre de status.
tu vois, avec le peu de vocabulaire allemand que j'ai (6 années seulement à l'école), il ne me manque que 2 verbes ;-)))
Bonne continuation je me dépêche parce que "Ich muß mal" (mot à mot "je dois une fois", mais ça veut dire autre chose et ça devrait aller mieux après ;-))))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Anor
Salut 3stone
3stone wrote: | Voilà machin... heu... chose... zut... comment donc... | ah oui, Anor... qui devient polyglotte ;-))))
hé oui, après les délires latin, le franglais, les fonction MAPI en espagnol, voilà que resurgit ma germanophilie ;-))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Salut 3stone
3stone wrote:
| Voilà machin... heu... chose... zut... comment donc...
| ah oui, Anor... qui devient polyglotte ;-))))
hé oui, après les délires latin, le franglais, les fonction MAPI en espagnol,
voilà que resurgit ma germanophilie ;-))
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
3stone wrote: | Voilà machin... heu... chose... zut... comment donc... | ah oui, Anor... qui devient polyglotte ;-))))
hé oui, après les délires latin, le franglais, les fonction MAPI en espagnol, voilà que resurgit ma germanophilie ;-))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Guy FALESSE
Salut Arnaud,
Rien à redire. :-) @+
Guy FALESSE
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:
SAlut,
Guy FALESSE wrote: | Salut Anor et ...3Stone (:)) | | Ceci dit, je vais regarder la solution de Microsoft, parce la machin | en allemand, faut se le farcir. | Où as-tu été péché ça :) Chapeau, il fallait le faire.
ça ? zu 1. du kannst neben der toolboox auf die 3 punkte klicken und dort das | Objekt progressbar in deine Form ziehen. | Oder du kannst auf der Statusleiste ein Progressbar darstellen. sur Google, bien sûr !
"tu peux à côté de la boite à outils cliquer sur les 3 points et..(...) dans ton formulaire un
objet barre de progression". Ou alors tu peux (...) une barre de progression dans la barre de status.
tu vois, avec le peu de vocabulaire allemand que j'ai (6 années seulement à l'école),
il ne me manque que 2 verbes ;-)))
Bonne continuation je me dépêche parce que "Ich muß mal" (mot à mot "je dois une fois", mais ça veut dire autre chose et ça devrait aller mieux après
;-))))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Salut Arnaud,
Rien à redire. :-)
@+
Guy FALESSE
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:u0dPMgmOEHA.1388@TK2MSFTNGP09.phx.gbl...
SAlut,
Guy FALESSE wrote:
| Salut Anor et ...3Stone (:))
|
| Ceci dit, je vais regarder la solution de Microsoft, parce la machin
| en allemand, faut se le farcir.
| Où as-tu été péché ça :) Chapeau, il fallait le faire.
ça ?
zu 1. du kannst neben der toolboox auf die 3 punkte klicken und dort das
| Objekt progressbar in deine Form ziehen.
| Oder du kannst auf der Statusleiste ein Progressbar darstellen.
sur Google, bien sûr !
"tu peux à côté de la boite à outils cliquer sur les 3 points et..(...)
dans ton formulaire un
objet barre de progression".
Ou alors tu peux (...) une barre de progression dans la barre de status.
tu vois, avec le peu de vocabulaire allemand que j'ai (6 années seulement
à l'école),
il ne me manque que 2 verbes ;-)))
Bonne continuation
je me dépêche parce que "Ich muß mal"
(mot à mot "je dois une fois", mais ça veut dire autre chose et ça devrait
aller mieux après
;-))))
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:
SAlut,
Guy FALESSE wrote: | Salut Anor et ...3Stone (:)) | | Ceci dit, je vais regarder la solution de Microsoft, parce la machin | en allemand, faut se le farcir. | Où as-tu été péché ça :) Chapeau, il fallait le faire.
ça ? zu 1. du kannst neben der toolboox auf die 3 punkte klicken und dort das | Objekt progressbar in deine Form ziehen. | Oder du kannst auf der Statusleiste ein Progressbar darstellen. sur Google, bien sûr !
"tu peux à côté de la boite à outils cliquer sur les 3 points et..(...) dans ton formulaire un
objet barre de progression". Ou alors tu peux (...) une barre de progression dans la barre de status.
tu vois, avec le peu de vocabulaire allemand que j'ai (6 années seulement à l'école),
il ne me manque que 2 verbes ;-)))
Bonne continuation je me dépêche parce que "Ich muß mal" (mot à mot "je dois une fois", mais ça veut dire autre chose et ça devrait aller mieux après
;-))))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
