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

Prima di tutto un cordiale saluto a tutti.
Ho consultato la Faq 3.76 del sito comune (barra progressione / Roberto) che 
vorrei adattare alla mia situazione.
Nel mio caso la barra dovrebbe avanzare durante l'esecuzione di tre query - 
che partono una dietro l'altra - lanciate dal pulsante di una maschera.
La domanda: come faccio ad inserire nel codice che fa partire la barra di 
progressione queste tre query ?
Ringrazio in anticipo chiunque vorrà aiutarmi
Gabriele 

GaRom ha scritto:

Una volta ho fatto qualcosa del genere con il seguente codice (adattalo
alle tue esigenze):
Option Compare Database
Sub Contrbarra(Pos)
Forms![Tratta]![Barra] = Pos
End Sub
Private Sub Comando0_Click()
Stato = 0
    Dim dbs As Database
    Dim qdf As QueryDef
    Set dbs = CurrentDb
    Call Contrbarra(Stato)
    With dbs
        Forms![Tratta]![semaforo].BackColor = 255
        Forms![Tratta].Repaint
        Stato = Stato + 1
        ' resetta i cm cr a '_'
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCM = '_', Dati.TrattCR =
'_'"
        '2
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCM = '0' WHERE
(((Dati.Centro)=False)) OR (((Dati.Tipologia)='AI') AND
((Dati.Tensione)='6' Or (Dati.Tensione)='7' Or (Dati.Tensione)='8' Or
(Dati.Tensione)='9' Or (Dati.Tensione)='B')) OR
(((Dati.Tipologia)='CN')) OR (((Dati.Tipologia)='AI') AND
((Dati.Tipo)='1' Or (Dati.Tipo)='2' Or (Dati.Tipo)='3' Or
(Dati.Tipo)='4' Or (Dati.Tipo)='5' Or (Dati.Tipo)='8' Or
(Dati.Tipo)='9' Or (Dati.Tipo)='J' Or (Dati.Tipo)='M' Or
(Dati.Tipo)='O' Or (Dati.Tipo)='U')) OR (((Dati.Tipo)='V') AND
((Dati.Oggetto)='S')) OR (((Dati.OggettoS)='dis')) OR
(((Dati.TipoS)='B'))"
        '3
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = '0' WHERE
(((Dati.Centro)=False)) OR (((Dati.Tipologia)='AI')) OR
(((Dati.Tipologia)='CN')) OR (((Dati.TipoS)='T' Or (Dati.TipoS)='F' Or
(Dati.TipoS)='B')) OR (((Dati.Oggetto)='S') AND ((Dati.Tipo)='V')) OR
(((Dati.OggettoS)='dis')) OR (((Dati.Oggetto)='W' Or (Dati.Oggetto)='X'
Or (Dati.Oggetto)='I')) OR (((Dati.TipoS)<>'D') AND
((Dati.Oggetto)='Z') AND ((Dati.Tipo)<>'D') AND ((Dati.Unita)<>'in'))
OR (((Dati.Unita)='CP' Or (Dati.Unita)='TC'))"
        '4
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCM = '1' WHERE
(((Dati.Unita)<>'in' And (Dati.Unita)<>'TC' And (Dati.Unita)<>'MO') AND
((Dati.Tipo)='D') AND ((Dati.TipoS)<>'T')) OR (((Dati.TipoS)='V' Or
(Dati.TipoS)='X')) OR (((Dati.Tipo)='S') AND ((Dati.TipoS)='D'))"
        '5
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = '1' WHERE
(((Dati.Unita)<>'in' And (Dati.Unita)<>'tc' And (Dati.Unita)<>'mo') AND
((Dati.Tensione)='1' Or (Dati.Tensione)='2' Or (Dati.Tensione)='3' Or
(Dati.Tensione)='4' Or (Dati.Tensione)='5') AND ((Dati.Tipo)='D')) OR
(((Dati.Unita)='mo') AND ((Dati.Tensione)='1' Or (Dati.Tensione)='2' Or
(Dati.Tensione)='3' Or (Dati.Tensione)='4' Or (Dati.Tensione)='5') AND
((Dati.TipoS)='V')) OR (((Dati.Tensione)='1' Or (Dati.Tensione)='2' Or
(Dati.Tensione)='3' Or (Dati.Tensione)='4' Or (Dati.Tensione)='5') AND
((Dati.TipoS)='V') AND ((Dati.Oggetto)='L')) OR (((Dati.Tensione)='1'
Or (Dati.Tensione)='2' Or (Dati.Tensione)='3' Or (Dati.Tensione)='4' Or
(Dati.Tensione)='5') AND ((Dati.TipoS)='V') AND ((Dati.Oggetto)='T'))"
        '6
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCM = '2' WHERE
(((Dati.Tipo)='s') AND ((Dati.Descrizione) Like '*anomalia*' Or
(Dati.Descrizione) Like '*scatto*'" _
               & " Or (Dati.Descrizione) Like '*allarme*' Or
(Dati.Descrizione) Like '*intervento*' Or (Dati.Descrizione) Like '*non
manovr*' Or (Dati.Descrizione) Like '*in isola*' Or (Dati.Descrizione)
Like '*in manuale*' Or (Dati.Descrizione) Like '*mancanza*' Or
(Dati.Descrizione) Like '*mancata*' Or (Dati.Descrizione) Like
'*esclus*' Or (Dati.Descrizione) Like '*blocc*' Or (Dati.Descrizione)
Like '*fallit*' Or (Dati.Descrizione) Like '*allagamen*' Or
(Dati.Descrizione) Like '* di prova*' Or (Dati.Descrizione) Like
'*sfioro*')) OR (((Dati.Tipo)='s') AND ((Dati.Descrizione) Like
'*massim*') AND ((Dati.Unita)<>'ca' And (Dati.Unita)<>'li' And
(Dati.Unita)<>'vg' And (Dati.Unita)<>'ds') AND ((Dati.TipoS)<>'X')) OR
(((Dati.Tipo)='s') AND ((Dati.Descrizione) Like '*minim*') AND
((Dati.Unita)<>'ca' And (Dati.Unita)<>'li' And (Dati.Unita)<>'vg' And
(Dati.Unita)<>'ds') AND ((Dati.TipoS)<>'X')) OR (((Dati.Tipo)='d'" _
               & " Or (Dati.Tipo)='H') AND ((Dati.TipoS)='t') AND
((Dati.[Stato 1]) Like 'disabilitat*')) OR (((Dati.Unita)='ac') AND
((Dati.[Stato 1]) Like 'esclus*')) OR (((Dati.Descrizione) Like
'*marcia*') AND ((Dati.Unita)='ag')) OR (((Dati.TipoS)='O'));"
        '7
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = '2' WHERE
(((Dati.Oggetto)='T') AND ((Dati.Unita)<>'in' And (Dati.Unita)<>'mo')
AND ((Dati.TrattCM)='2') AND ((Dati.Descrizione) Like '*anomalia*' Or
(Dati.Descrizione) Like '*intervento*')) OR (((Dati.Oggetto)='T') AND
((Dati.Unita)<>'in' And (Dati.Unita)<>'mo') AND ((Dati.TrattCM)='2')
AND ((Dati.Descrizione) Like '*allarme*' And (Dati.Descrizione) Not
Like '*servizi*')) OR (((Dati.Descrizione) Like '*teleprotezione fuori
servizio*' Or (Dati.Descrizione) Like '*scatto escluso*'))"
        '8
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCM = '4' WHERE
(((Dati.Unita)='in' Or (Dati.Unita)='sm' Or (Dati.Unita)='mo') AND
((Dati.Tipo)='D') AND ((Dati.TipoS)='D') AND ((Dati.Descrizione) Not
Like '*campo*')) OR (((Dati.Tipo)='D') AND ((Dati.TipoS)='D') AND
((Dati.Oggetto)='Q')) OR (((Dati.Tipo)='D' Or (Dati.Tipo)='s') AND
((Dati.TipoS)='D') AND ((Dati.Oggetto)='A')) OR (((Dati.Tipo)='d') AND
((Dati.TipoS)='t') AND ((Dati.[Stato 1]) Like 'abilitat*'))"
        '9
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = '4' WHERE
(((Dati.Unita)='in' Or (Dati.Unita)='sm' Or (Dati.Unita)='mo') AND
((Dati.Tensione)='1' Or (Dati.Tensione)='2' Or (Dati.Tensione)='3' Or
(Dati.Tensione)='4' Or (Dati.Tensione)='5') AND ((Dati.Tipo)='D') AND
((Dati.TipoS)='D') AND ((Dati.Descrizione) Not Like '*campo*'))"
        '10
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = '5' WHERE
(((Dati.Oggetto)='z') AND ((Dati.Unita)='in' Or (Dati.Unita)='sm') AND
((Dati.Tipo)='D') AND ((Dati.TipoS)='D') AND ((Dati.Descrizione) Not
Like '*campo*'))"
        '11
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCM = '7' WHERE
(((Dati.Tipo)='c')) OR (((Dati.Unita)='vc') AND ((Dati.Descrizione)
Like '*gradino*' Or (Dati.Descrizione) Like '* posizione*')) OR
(((Dati.Unita)<>'ag') AND ((Dati.TipoS)='f' Or (Dati.TipoS)='g' Or
(Dati.TipoS)='q')) OR (((Dati.Unita)<>'ag') AND ((Dati.Descrizione)
Like '*a giri*' Or (Dati.Descrizione) Like '*in rete*' Or
(Dati.Descrizione) Like '*in marcia*' Or (Dati.Descrizione) Like
'*fermo*' Or (Dati.Descrizione) Like '*disponibile avv*')) OR
(((Dati.Tipo)='H') AND ((Dati.TipoS)='E')) OR (((Dati.Descrizione) Like
'*IMPEGNATO*' Or (Dati.Descrizione) Like '*inserito*')) OR
(((Dati.Descrizione) Like '*set poi*' And (Dati.Descrizione) Like
'*inseri*'))"
        '12
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = '7' WHERE
(((Dati.Tensione)='1' Or (Dati.Tensione)='2' Or (Dati.Tensione)='3' Or
(Dati.Tensione)='4' Or (Dati.Tensione)='5') AND ((Dati.Tipo)='c')) OR
(((Dati.Tipo)='c') AND ((Dati.Oggetto)='z' Or (Dati.Oggetto)='x' Or
(Dati.Oggetto)='i') AND ((Dati.TipoS)='d' Or (Dati.TipoS)='g')) OR
(((Dati.Tipo)='D') AND ((Dati.TipoS)='I'))"
        '13
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCM = '9' WHERE
(((Dati.Tipologia)='AI') AND ((Dati.Tensione)='1' Or
(Dati.Tensione)='2' Or (Dati.Tensione)='3' Or (Dati.Tensione)='4' Or
(Dati.Tensione)='5') AND ((Dati.Tipo)='A' Or (Dati.Tipo)='P' Or
(Dati.Tipo)='Q' Or (Dati.Tipo)='v')) OR (((Dati.Tipo)='7')) OR
(((Dati.Tipo)='6') AND ((Dati.Oggetto)='i' Or (Dati.Oggetto)='x' Or
(Dati.Oggetto)='z'))"
        '14
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = 'R'WHERE
(((Dati.Unita)='ri') AND ((Dati.Tensione)='1' Or (Dati.Tensione)='2' Or
(Dati.Tensione)='3' Or (Dati.Tensione)='4' Or (Dati.Tensione)='5'))"
        '15
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = 'P'WHERE
(((Dati.Unita)='di' Or (Dati.Unita)='df' Or (Dati.Unita)='mc' Or
(Dati.Unita)='mf' Or (Dati.Unita)='dp' Or (Dati.Unita)='mt' Or
(Dati.Unita)='pr' Or (Dati.Unita)='ts') AND ((Dati.Tensione)='1' Or
(Dati.Tensione)='2' Or (Dati.Tensione)='3' Or (Dati.Tensione)='4' Or
(Dati.Tensione)='5') AND ((Dati.Descrizione) Not Like '*esclus*'))"
        '16
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = 'A'WHERE
(((Dati.Unita)='in' Or (Dati.Unita)='mo' Or (Dati.Unita)='ar' Or
(Dati.Unita)='gc' Or (Dati.Unita)='gs') AND ((Dati.Tensione)='1' Or
(Dati.Tensione)='2' Or (Dati.Tensione)='3' Or (Dati.Tensione)='4' Or
(Dati.Tensione)='5') AND ((Dati.Descrizione) Not Like '*esclus*') AND
((Dati.TrattCM)='2'))"
        '17
        Stato = Stato + 1
        Call Contrbarra(Stato)
        .Execute "UPDATE Dati SET Dati.TrattCR = '0'WHERE
(((Dati.TrattCR)='_'))"
        Forms![Tratta]![semaforo].BackColor = 65280
        Beep
End With
    dbs.Close
End Sub
Private Sub Form_Load()
        DoCmd.Restore
        Call Contrbarra(0)
End Sub

 Gabriele
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 -----------------------------------------------
Ciao Roberto
@Alex