Newsgroup: it.comp.appl.access
Titolo: Barra di progressione..........

Si puo' applicare l'esempio del sito comune sulla barra di progressione
all'apertura di una maschera che contiene + di 3000 record ........
dovrebbe funzionare il progresso della barra contando i record..........
Grazie lo so che non è un'idea ideale ma mi serve per prendere la mano con
questo cavallo selvaggio.................
Grazie 100000
Gianni B

 ha scritto nel messaggio
news:3f06a2e2$1...@news.bluewin.ch...

Occorre distinguere cosa vuoi fare con la ProgressBar.
1)Effetto grafico che simuli il CARICAMENTO.
2)Realmente vedere il caicamento.
1)Serve un Ciclo For...Next e all'interno inserisci
    l'incremento della ProgressBar
2)La Form in questione deve essere basata su una QRY
    all'interno della quale oltre che a tutti i campi da visualizzare
    ci sia anche la chiamata ad una Function Public in un Modulo.
    Nella Function ci devi inserire la progressione della barra:
    Al primo passaggio deve leggere il Recordset.Recordcount
    per dimensionare il 100% e ad ogni passaggio leggendo
    il NumeroRecord attuale gestire l'avanzamento.
Si può fare, ma sei sicuro ne valga la pena.............????????
@Alex.

 ha scritto nel messaggio
news:h_xNa.148106$Ny5.4...@twister2.libero.it...

Salve Alex sono sempre io la pecora nera delle barre di progressione.....
ho provato a cambiare qualcosa nel codice in modo che mi Contasse tutte i
record .......ma purtroppo mi viene sempre l'errore record non
modificabile..........
non mi serve queste benedette barre adesso è una questione di principio.
comunque io ho provato a fare cosi. ma non và.......
Private Function Elabora2()
    Dim dbs As Database
    Dim rst As Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("Copia_Sicurezza")
    Call SysBarraProgressione(0, rst)
    Do While Not rst.EOF
        rst.Edit
        rst!ID_Materiale = rst.RecordCount
        Delay  ' per allungare l'attesa nel TEST
        rst.Update
        Call SysBarraProgressione(1)
        rst.MoveNext
    Loop
    rst.Close
    Call SysBarraProgressione(2)
End Function
 Beh ID_Materiale nel debugg uguale a 1........... mentre rst. RecordCount
mi da ,sempre nel debug il numero dei record presenti relamente..........
io vorrei cercare di far progreddire la barra con il risultato dell
rst:RecordCount.
Ciao è grazie della tua molta pazienza.....
Gianni B


Ora non sò di quale esempio del Sito tu stia parlando, ma supponendo
la sintassi della chiamata corretta, non mi pare tu stia aggiornando il
Contatore di record......!
Prova così:
 Private Function Elabora2()
     Dim dbs As Database
     Dim rst As Recordset
        Dim recNum as long
     Set dbs = CurrentDb
     Set rst = dbs.OpenRecordset("Copia_Sicurezza")
     Call SysBarraProgressione(0, rst)
     Do While Not rst.EOF
         rst.Edit
        recNum=recNum+1
         rst!ID_Materiale = recNum
         Delay  ' per allungare l'attesa nel TEST
         rst.Update
         Call SysBarraProgressione(recNum)
         rst.MoveNext
     Loop
     rst.Close
     Call SysBarraProgressione(2)
 End Function
A dire il vero l'errore che ti da secondo me deriva dalla 1° chiamata
alla Progress quando gli passi il Recordset rst, ma dovresti controllare
magari con il Debug.
@Alex.

 ha scritto nel messaggio
news:SdFNa.149221$Ny5.4...@twister2.libero.it...

Vado  a provare subbito grazie Alex.
Gianni B.

 ha scritto nel messaggio
news:3f073...@news.bluewin.ch...


 ha scritto nel messaggio
news:SdFNa.149221$Ny5.4...@twister2.libero.it...

Ciao Alex finalmente ho trovao dov'era il problema mi mancava un riferimento
ad una libreria , anche quello che mi hai suggerito tu funziona grazie di
tutto..................
Gianni B.