La mia funzione (di seguito riportata è all'interno di una mappa di contabilità) esegue un aggiornamento del piano dei Conti partendo dalla registrazione della Prima Nota.
Questa funziona bene, do un messaggio di conferma per l'inizio di elaborazione comunicando all'operatore di aspettare un prossimo messaggio di Fine Elaborazione.
Il fatto è che in base al numero delle registrazione impiega un po' di tempo per finire quanto deve, ed è qui che avrei intenzione di far conoscere all'operatore lo stato di avanzamento dell'Elaborazione.
Grazie!
Private Sub LeggiBrogliaccio()
On Error GoTo LeggiBrogliaccio_Err
'
Dim db As DAO.Database
Dim rstContoEconomico As DAO.Recordset
'
Set db = CurrentDb
Set rstContoEconomico = db.OpenRecordset("ContoEconomico", dbOpenTable)
'
Do Until rstContoEconomico.EOF
rstContoEconomico.Edit
rstContoEconomico!CEco_Dare = 0
rstContoEconomico!CEco_Avere = 0
rstContoEconomico.Update
rstContoEconomico.MoveNext
Loop
'
rstContoEconomico.Close
Set rstContoEconomico = Nothing
'
Dim rstBrogliaccioPN As DAO.Recordset
'
Set db = CurrentDb
Set rstBrogliaccioPN = db.OpenRecordset("BrogliaccioPN", dbOpenTable)
'
Do Until rstBrogliaccioPN.EOF
If rstBrogliaccioPN!PN_Anno = TempVars("TempAnnoEsercizio") Then
TempVars("TempCauCodice").Value = rstBrogliaccioPN!PN_Causale.Value ' creo
TempVars("TempImpEntrate").Value = rstBrogliaccioPN!PN_Entrate.Value + rstBrogliaccioPN!PN_BancaAcc.Value ' creo
TempVars("TempImpUscite").Value = rstBrogliaccioPN!PN_Uscite.Value + rstBrogliaccioPN!PN_BancaAdd.Value ' creo
LeggiCausale ' Aggiorna piano dei Conti
rstBrogliaccioPN.MoveNext
Else
rstBrogliaccioPN.MoveNext
End If
Loop
'
rstBrogliaccioPN.Close
Set rstBrogliaccioPN = Nothing
'
LeggiBrogliaccio_Exit:
Exit Sub
'
LeggiBrogliaccio_Err:
MsgBox Error$
Resume LeggiBrogliaccio_Exit
'
End Sub