Newsgroup: it.comp.appl.access
Titolo: vorrei eliminare la viusalizzazione di una finestra di dialogo durante elaborazione di una routine e mostrare solo una clessidra ...

Salve a tutti.
Durante l'esecuzione della seguente routine cancello i record di più tabelle 
ed azzero i relativi contatori.
Purtroppo però, durante l'esecuzione di detta routine, rimane aperta una 
finestra di dialogo bianca ed inutile che vorrei eliminare.
Vorrei invece mostrare una clessidra fino a che la routine non mostra il 
messaggio finale di avvenuta elaborazione con successo.
Come posso fare ???
Ciao e grazie mille
Luciano
====================================================================================
 DoCmd.Echo False, "Procedura cancellazione archivi in esecuzione ..."
DoCmd.Hourglass True
    'disabilita le finestre di dialogo richiedenti consenso
    DoCmd.SetWarnings False
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Dipendenti"
DoCmd.OpenTable "Dipendenti", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Dipendenti"
'inizio <<azzeramento contatore tabella Dipendenti>>
Dim strSql As String
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE Dipendenti ALTER COLUMN IDNominativo 
COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella Dipendenti>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Fornitori"
DoCmd.OpenTable "Fornitori", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Fornitori"
'inizio <<azzeramento contatore tabella Fornitori>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE Fornitori ALTER COLUMN IDNominativo 
COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella Fornitori>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella 
"MovimentiSchedaContabile"
DoCmd.OpenTable "MovimentiSchedaContabile", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "MovimentiSchedaContabile"
'inizio <<azzeramento contatore tabella MovimentiSchedaContabile>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE MovimentiSchedaContabile ALTER COLUMN 
IDMovimenti COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella MovimentiSchedaContabile>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella 
"RegistroIncassiClienti"
DoCmd.OpenTable "RegistroIncassiClienti", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "RegistroIncassiClienti"
'inizio <<azzeramento contatore tabella RegistroIncassiClienti>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE RegistroIncassiClienti ALTER COLUMN 
IDMovimenti COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella RegistroIncassiClienti>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Scadenzario"
DoCmd.OpenTable "Scadenzario", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Scadenzario"
'inizio <<azzeramento contatore tabella Scadenzario>>
strSql = Me.RecordSource
Me.RecordSource = ""
CurrentDb.Execute "ALTER TABLE Scadenzario ALTER COLUMN IDScadenza 
COUNTER(1,1);"
Me.RecordSource = strSql
'fine <<azzeramento contatore tabella Scadenzario>>
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "Anagrafica 
Professionista"
DoCmd.OpenTable "Anagrafica Professionista", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "Anagrafica Professionista"
'---------------------------------------------------------------------------------------------------
'inizio procedura cancellazione archivi dati Tabella "CLIENTI"
DoCmd.OpenTable "CLIENTI", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdClose
'fine procedura cancellazione archivi Tabella "CLIENTI"
'non è possibile procedere all'azzeramento del contatore IDNominativo
'della tabella CLIENTI perchè IDNominativo è parte di una o più relazioni:
'sarà quindi necessario compattare il database in uscita o  manualmente
'---------------------------------------------------------------------------------------------------
    'abilita le finestre di dialogo richiedenti consenso
    DoCmd.SetWarnings True
DoCmd.Hourglass False
DoCmd.Echo True
    Messaggio = "Cancellazione archivi dati Tabelle ed azzeramento contatori 
eseguita con successo. E' ora necessario procedere alla compattazione 
manuale o automatica del database (azzeramento contatore tabella CLIENTI)."
    PulsantiEIcone = vbOKOnly + vbExclamation
    Titolo = "Complimenti !!!"
    Risposta = MsgBox(Messaggio, PulsantiEIcone, Titolo)
==================================================================================== 

 DoCmd.RunCommand acCmdClose
questa procedura che apre la tabella in Visualizzazione dati li
seleziona tutti e li cancella... è assurda si fa così con una sola
riga di codice...:
CurrentDb.Execute "DELETE * FROM Dipendenti"
Finito.
A fronte di questo... prova a rivisitare le tue cose...
@Alex