Newsgroup: it.comp.appl.access
Titolo: Indicatore di avanzamento ..

Nel post precedente Antonio mi ha suggerito l'utilizzo del metodo SysCmd e
suoi parametri per poter visualizzare un "indicatore di avanzamento" che mi
rappresenti lo stato di esecuzione delle operazioni. In sostanza vorrei
utilizzare tale indicatore in una maschera durante la fase di ricerca di
valori restituiti da una query a fronte dell'evento click e/o Invio (Enter).
Qualcuno puņ suggerirmi un esempio "provato" di sintassi?
Grazie
Angelo

 Angelo
Dovresti postare il codice VBA che stai usando ed all'interno del quale vuoi
inserire il metodo SysCmd.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
Ciao Roberto, in realtà inizio da zero nel senso che la mia è una fase
progettuale di realizzazione di un MDB, all'interno del quale mi piacerebbe
attivare l'indicatore di avanzamento di cui parlavo.
Vorrei approfondire l'uso del metodo SysCmd poichè consigliatomi da Antonio
e che non ho mai utilizzato.
Puoi propormi tu un esempio?
Angelo

Ciao Angelo
se vai sul sito comune www.sitocomune .com c'è un esempio che fa per te
sulle barre progressione sia con syscmd quindi la barra di access oppure
creata con qualche artifizio su una form, di Harry Evans. intitolato crearer
barre di progressione
Saluti
Mak


Grazie 1000 Mak ...
Saluti
Angelo

 Angelo
Qui di seguito un esempio poco significativo ma che spero renda l'idea.
Ipotizziamo che la barra di stato di Access sia visibile.
Ipotizziamo di avere una tabella chiamata Tabella1 che contiene un campo di
tipo Data/ora chiamato Pippo.
Ipotizziamo che vuoi aprire un recordset su Tabella1 e per tutti i record
impostare il campo Pippo con la data odierna.
Qui di seguito trovi il codice VBA che fa quanto ipotizzato e che fra le
altre cose gestisce la barra di progressione  visualizzabile nella barra di
stato.
Stai attento che la routine fa riferimento alla libreria Microsoft DAO,
quindi, se usi una versione di Access successiva ad Access 97, dovrai
aggiungere tale libreria nei riferimenti del tuo database.
Dim imax As Integer, ret As Variant, i As Integer
Dim db As DAO.Database
Set db = CurrentDb()
' apri il recordset
Dim rst As DAO.Recordset
Set rst = db.OpenRecordset("Tabella1")
' Ricava il numero di record di Tabella1
rst.MoveLast
imax = rst.RecordCount
' Imposta il valore massimo della barra di progressione
' e la descrizione della barra di stato
ret = SysCmd(acSysCmdInitMeter, _
"Imposta il campo Pippo con la data odierna", imax)
i = 1
rst.MoveFirst
Do Until rst.EOF
    rst.Edit
    rst!Pippo = Date()
    rst.Update
    ' Aggiorna la barra di progressione
    ret = SysCmd(acSysCmdUpdateMeter, i)
    i = i + 1
    rst.MoveNext
Loop
' Resetta la barra di stato
ret = SysCmd(acSysCmdClearStatus)
Set rst = Nothing
Set db = Nothing
End Sub
Spero di essere stato chiaro; per maggiori dettaglio vedi cosa dice l'help
circa la Funzione SysCmd.



Grazie ancora per la pazienza e la perizia ...
Angelo

 ha scritto nel messaggio
news:1rvX9.88314$AA2.3...@news2.tin.it...


 Non riesco a scaricare l'esempio dal sito
E non riesci neanche a scrivere correttamente DOPO il quoting!!!
Antonio

 ha scritto nel messaggio
news:yZAX9.34503$ZE.9...@twister2.libero.it...


 richiesta, invece ti sei limitato solo a fare lo sfigato
Vedi, tu continui a non scrivere correttamente DOPO il quoting, io continuo
a rimanere sfigato, ma figurati quanto rimani sfigato tu che non risolvi il
tuo problema quando magari, comportandoti civilmente, avresti potuto
ottenere il mio aiuto!!!
Antonio
