Flash30005 ha scritto:Di inattività di cosa?
Carlodag ha scritto:di chiusura che dopo un tot di secondi inutilizzata si chiude sola
che dopo un tot di secondi inutilizzata si chiude sola, cosa
Se una macro ha un timer interno e dopo n secondi (minuti, ore) chiude la o le maschere non è dipendente dall'utilizzo che ne fai ma allo scadere del tempo chiuderà le maschere, oppure si dovrebbero "intercettare" i comandi della tastiera, e/o mouse,
credo che sia molto più complicato di un codice da mettere in ogni maschera.
Per semplificarti la vita ti invio una macro "universale" (che va bene per ogni maschera senza dover modificare il nome della maschera che deve tener aperta, come richiedeva la precedente macro)
Un copia/incolla per 200 maschere lo si fa in pochissimo tempo, considerando il fatto che il codice rimane in memoria quindi devi fare 200 operazioni di incolla nel Form Load di ogni maschera (non so se si può fare una macro che faccia questo copia incolla automaticamente per tutti i Form del database, ci dovrei pensare su, o magari qualche utente esperto potrebbe realizzarla, visto che in excel è fattibile).
Questo codice è molto più affidabile di qualunque timer (che tra l'altro impegna il Pc e rende difficoltoso l'utilizzo del database stesso)
- Codice: Seleziona tutto
Private Sub Form_Load '<<< riga che già trovi nel Form_Load()
On Error GoTo Err_Close
Dim n, x As Integer
n = Forms.Count
For x = n - 1 To 0 Step -1
If Forms(x).Name = Application.CurrentObjectName Then GoTo salta
DoCmd.Close acForm, Forms(x).Name
salta:
Next
CloseAllForms = True
Err_Close:
CloseAllForms = False
End Sub '<<< riga che già trovi nel Form_Load
Fai sapere
Ciao