Newsgroup: it.comp.appl.access
Titolo: simulazione progress bar

Ciao a tutti
ho una select che impiega circa 30 secondi ad essere eseguita
Vorrei inizializzare una progressbar di 30 secondi prima di lanciare la
query
.
Come si fa?
la sequenza dovrebbe essere:
inizalizza barra con termine a 30 secondi
lancia query
ogni secondo la barra avanza.
Come si fa una cosa del genere?
Grazie
Ciao
MarcoMac

 ha scritto nel messaggio 
news:pryFe.17405$B6.4...@twister1.libero.it...

I trenta secondi sono relativi alla tua macchina...non può essere un 
criterio per la barra di progressione.
Su 
www.sitocomune.com
 trovi argomenti che possono esserti utili e ti 
insegnano come realizzare una barra di progressione.
Esiste inoltre un controllo ocx che si chiama ProgressBar. Ecco cosa dice la 
guida:
"Il controllo ProgressBar fa parte di un gruppo di controlli ActiveX, 
disponibili nel file Comctl32.ocx. Per utilizzare tale controllo in 
un'applicazione, aggiungere al progetto il file Comctl32.ocx. Quando si 
distribuisce l'applicazione, il file Comctl32.ocx deve essere installato 
nella directory System o System32 di Microsoft Windows".
Ciao, Carlo 

 ha scritto nel messaggio 
news:pryFe.17405$B6.4...@twister1.libero.it...


 ha scritto nel messaggio
news:pryFe.17405$B6.4...@twister1.libero.it...

Ciao Marco,
è banale (almeno da access 2000 in poi, per Access97 non saprei).
Ogni maschera ha associato un timer la cui cadenza puoi decidere sia a
design time (finestra proprietà:  Intervallo Timer), sia a run time da VBA
(proprietà TimeInterval).
Se TimeInterval (Intervallo Timer) è 0 il timer è disattivato, altrimenti il
timer è attivato. La cadenza del timer viene espressa in millisecondi,
quindi devi imporlo a 1000 se vuoi ottenere la cadenza di un secondo.
Allo scadere dell'intervallo di tempo che hai impostato viene generato un
evento che potrai gestire con la Sub Form_Timer(). In tale Sub
metterai il codice che incrementa la progress bar e che disattiva il timer
dopo trenta secondi.
Supponendo che il controllo ActiveX Progress Bar nella tua maschera si
chiami R_Progress, il codice che puoi provare è il seguente:
Option Explicit
Private secondi As Integer
Private Sub Form_Load()
secondi = 0
' attivazione del timer
Me.TimerInterval = 1000 ' 1000 millisecondi = 1 secondo
End Sub
Private Sub Form_Timer()
If secondi > 30 Then
    Me.TimerInterval = 0 ' disattivazione del timer
    secondi = 0
    Exit Sub
End If
Me.R_Progress.Value = (secondi / 30) * 100
secondi = secondi + 1
End Sub
Provalo e facci sapere.
Ciao.
--
Simplex2
www.mdenittis.it
________________
LEGGE DEGLI EQUILIBRI DI SIMPLEX2
Da un grande potere, derivano grandi responsabilità,
da grandi responsabilità, derivano grandi rompimenti di palle,
i rompimenti di palle sono una gran perdita di tempo ma il tempo è denaro,
quindi una gran perdita di denaro comporta una grande perdita di potere.

 ha scritto nel messaggio 
news:dc77qe$mqt$1...@canarie.caspur.it...


 Ciao.

 ha scritto nel messaggio 
news:dc7dks$o7n$1...@canarie.caspur.it...


 > Ciao.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Una barra di progressione può e deve essere precisa.
Comincia a dare uno sguardo alla Funzione SysCmd.
Ciao, Carlo