Newsgroup: it.comp.appl.access
Titolo: oh..dunque....Cerare Barra di progressione su esecuzione query !!!!!

Dunque dunque...vorrei creare un barra di progressione (tipo:Attendere prego
elaborazione in corso....) che mi compaia durante l' elaborazione di query
(visto che alcune sono complesse e lunghe..)
Se po fa' ???????
Grazien
Enrico
-- 
Posted from 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:000501c070c7$87757ac0$0f791997@c7x0k5...

Se si tratta dell'esecuzione di una sola query, allora penso proprio di no
ma se intendi dare una progress bar per l'esecuzione di più query, allora la
cosa è fattibile; ad ogni query eseguita aggiorni la maschera che contiene
il messaggio di attesa.
Ciao
LaLo

Come ?
(altrimenti l'avrei fatto)
perchè solo su più query ???
-- 
Posted from 
smtp6.libero.it
 [193.70.192.127] 


 ha scritto nel messaggio
news:000301c070d2$744fbe00$0f791997@c7x0k5...

Allora, se esegui ad esempio 4 query, potresti fare come segue:
lblStatus.Caption = "Esecuzione prima query"        ' Aggiornamento label
della maschera
Me.Repaint                                                           '
Repaint della maschera
Docmd.Execute strSQL1                                    ' Esecuzione prima
query
lblStatus.Caption = "Esecuzione seconda query"        ' Aggiornamento label
della maschera
Me.Repaint                                                           '
Repaint della maschera
Docmd.Execute strSQL2                                    ' Esecuzione
seconda query
lblStatus.Caption = "Esecuzione terza query"        ' Aggiornamento label
della maschera
Me.Repaint                                                           '
Repaint della maschera
Docmd.Execute strSQL3                                    ' Esecuzione terza
query
lblStatus.Caption = "Esecuzione quarta query"        ' Aggiornamento label
della maschera
Me.Repaint                                                           '
Repaint della maschera
Docmd.Execute strSQL4                                    ' Esecuzione quarta
query
L'istruzione di aggiornamento della label può essere sostituita da qualsiasi
altra operazione simile alla progress bar. Una progress bar potrebbe essere
implementata. Se ti interessa come, fammi sapere che ti mando l'algoritmo.
Ciao
LaLo

e mandami sto algoritmo va !!!!!
Grazie ancora
-- 
Posted from 
smtp1.libero.it
 [193.70.192.51] 


 ha scritto nel messaggio
news:000301c070e0$b28dda40$09761997@c7x0k5...

- Creati un rettangolo incassato come bordo della progress bar;
- All'interno del rettangolo inserisci una label con caption centrata,
valori di top e left uguali a quello del rettangolo e larghezza ... boh fai
la metà della progress bar, tanto viene determinata a runtime;
- la label deve avere il colore di riempimento diverso dallo sfondo della
maschera (altrimenti non si vede);
- supponendo che hai chiamato il rettangolo shpBar e la label lblBar, basta
chiamare la seguente funzione per aggiornare la progress bar:
Public Sub AggBar (pfrmForm as Form, pintPercentuale as Integer)
    ' pfrmForm = Form contenente la progress bar
    ' pintPercentuale = percentuale (nella forma 50 per 50%, 20 per 20%)
    pfrmForm!lblBar.Width = pfrmForm!shpBar.Width * pintPercentuale / 100
    pfrmForm!lblBar.Caption = Trim(CStr(pintPercentuale) & "%")
    pfrmForm.Repaint
End Sub
Tutto chiaro? Spero di si!
Ciao
LaLo


Anche a me grazie

"LaLo" <reg...@LLtin.it> ha scritto nel messaggio
news:92fn7a$sbd$1...@pluto.sm.dsi.unimi.it...

Ma perché non adoperare la barra di progressione della barra di stato di
Access?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

 ha scritto nel messaggio
news:FZO26.198488$hk4.7...@news.infostrada.it...

Infatti potrebbe essere un'altra soluzione: siccome ho sviluppato solo
piccoli progetti, non sono andato al di là della barra degli strumenti
standard di Access (97); questo perchè mi sono scottato all'inizio per un
controllo che avevo installato sul mio PC e col quale avevo sviluppato un FE
in Access e poi, sorpresa delle sorprese, dall'utente non c'era verso di
installare tale controllo.
Questo però non significa che non si devono utilizzare controlli di terze
parti o controlli non compresi nella barra degli strumenti standard; sono
solo io il pigro della situazione che non ha voluto affrontare il problema.
Ciao
LaLo


1) La mia soluzione è proprio per persone "pigre"; non vedo perchè
inventarsi cineserie per creare una barra di progressione, quando Access ne
mette a disposizione una standard.
2) la barra di stato è una barra standard e non ha niente a vedere con la
barra degli strumenti, tanto meno con una barra degli strumenti non
standard; compare nella parte bassa della scrivania di Access e se non la
vedi: Strumenti=> Opzioni...=> Visualizzazione => Barra di stato.
Oppure da codice VBA:
Application.SetOption "Mostra barra di stato", True
3) Tra le altre cose, la barra di stato contiene una barra di progressione.
4) L'uso della barra di progressione della barra di stato si effettua
tramite la funzione SysCmd (vedi help) utilizzando le azioni
acSysCmdInitMeter, acSysCmdUpdateMeter e acSysCmdClearStatus.
Più facile di così si muore. ;-)


 ha scritto nel messaggio
news:7AZ26.200544$hk4.7...@news.infostrada.it...

Molte grazie
LaLo