Newsgroup: it.comp.appl.access
Titolo: vorrei impostare un timer.

Chiedo una cortesia, avrei bisogno di sapere se è possibile impostare un
time sul database in modo che se non si lavora per un determinato periodo di
tempo, questo si chiuda automaticamente (close).
Dove posso impostare questo tipo di timer?
Come posso fare?
voglio ringraziare chi potrà aiutarmi.


a mio parere le variabili da gestire sono troppe, io proverei a gestire lo
screen saver di windows
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------

mauro06 wrote:

Per una o più maschere:
1- Anteprima tasti: Si . Con No non funziona
2- Dim bolKey As Boolean ' variabile Booleana che determina se l'operatore
sta lavorando
3- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     bolKey = True ' ad ogni digitazione assegna True alla variabile
  End Sub
4- Private Sub Form_Timer()
     If bolKey = True Then
          bolKey = False
     Else
          DoCmd.Quit
     End If
      End Sub
5- Nella proprietà, Intervallo time: imposta il tempo che il db deve
rimanere aperto se non si digita.
giuseppe

 giuseppe
Ti ringrazio Giuseppe del tuo suggerimento. Ho provato e funziona
perfettamente. C'è solo un dettaglio che vorrei tu mi aiutassi a sviluppare.
Con l'istruzione che tu mi hai dato, il valore True per bolKey, viene
aggiornato solo quando lavoro sulla maschera su cui ho impostato la
funzione. (che nel mio caso è una maschera di Menu iniziale che rimane
sempre aperta).
C'è la possibilità di fare in modo che se io stò lavorando con un'altra
maschera, il valore di bolKey continui ad essere impostato a True.
In poche parole, c'è il modo di evitare che se stò lavorando su una maschera
diversa da quella su cui è impostata la funzione, mi si chiuda tutto per
effetto del timer che ho impostato su una maschera aperta contemporaneamente
e su cui non stò lavorando.?
Ti ringrazio per il tuo prezioso aiuto.
Grazie
Mauro.

prova a modificare il codice nel seguente modo per tutte le maschere
interessate:
- la Proprietā Anteprima tasti : No
nel modulo della maschera digitare:
- Dim bolKey As Boolean
Nell'evento Su attivazione:
- Private Sub Form_Activate()
   Me.KeyPreview = True
  End Sub
Nell'evento Su disattivazione:
- Private Sub Form_Deactivate()
 Me.KeyPreview = False
 End Sub
Nell'evento Su tasto gių:
- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 bolKey = True
  End Sub
Nell'evento Su timer:
- Private Sub Form_Timer()
  If Me.KeyPreview = False Then
    Exit Sub
  Else
    If bolKey = True Then
        bolKey = False
    Else
        DoCmd.Close
    End If
 End If
 End Sub
Su intervallo timer
- imposta il tempo che il db deve rimanere aperto se non si premono tasti
(1000 equivale a un   secondo).
Quando la maschera acquista lo stato attivo la Proprietā Anteprima tasti
diventa True e l'evento Su timer verifica l'intervallo di tempo tra due
tasti gių.
Quando la maschera perde lo stato attivo la Proprietā Anteprima tasti
diventa False e l'evento Su timer perde la funzione di controllo.
Giuseppe
p.s.
per il webmaster:
la soluzione esposta pensi si possa pubblicare nel sito comune ?

 prova a modificare il codice nel seguente modo per tutte le maschere
[CUT]
Ti ringrazio Giuseppe della tua collaborazione, per quanto dovevo realizzare
io č tutto OK.
grazie ancora e saluti
MAURO