In un nuovo modulo metti questo codice
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 )



.