[ACCESS VBA] "messaggio attesa processo"

[sky998]

Ciao Ragazzi,

Vorrei inserire all'interno del mio codice un messaggio che si aggiorna automaticamente sullo stato di elaborazione del processo, del tipo " Prego attendere, elaborazione in corso....". Se possibile qualcosa di semplice.

grazie a tutti

[nman]

In un nuovo modulo metti questo codice

Option Compare Database
Option Explicit

Public Function Timexx()

Dim x As Integer

Dim Ini As Long    ' Anche Variant
Dim Fin As Long    ' Anche Variant
Ini = Timer()
Fin = Ini + 3


' Ti scrive un testo dove vuoi  e attiva la clessidra
Forms!Maschera1!Testo0 = "  ... Pazienza  solo 3 secondi....."
DoCmd.Hourglass True


' Questo è un ciclo generico di 3 secoddi ma puo essere il tuo codice
        While Timer() < Fin
        DoEvents
        Wend
        Debug.Print Ini & "  " & Fin & "  "; Fin - Ini

' Alla fine cancella il testo e toglie la clessidra
Forms!Maschera1!Testo0 = ""
DoCmd.Hourglass False


End Function

Poi crei una mascheta di nome "Maschera1"
Una casella di testo di nome "Testo0"
Un pulsante di comando che attiva la finzione Timexx() ( sopra )



.

[sky998]

Grazie mille!! Stavo impazzendo!