Newsgroup: it.comp.appl.access
Titolo: Disconnessione automatica per inattività access 97

Salve a tutti,
scusate se vi disturbo ma sto diventando scema con un sistema di db che
sto progettando per la mia maturità.
Il sistema si compone di 3 db di cui uno server e due client.
Ho impostato il blocco dei record in modo esclusivo (cioè fino a quando il
record è selezionato da un client l'altro non può modificarlo), ma se un
utente si allontana dal pc e si scorda di chiudere il suo client non
permette all'altro di lavorare...
Volevo sapere se è possibile far in modo che dopo tot minuti di inattività
del client lo stesso si chiuda automaticamente oppure esca dalla maschera
di inserimento dei record e si posizioni sulla maschera d'avvio... scusate
ma proprio non riesco a trovare il codice per fare tutto ciò.
Grazie di tutto,
Emily (speranzosa di trovare lavoro dopo la maturità)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Emily (speranzosa di trovare lavoro dopo la maturità)
In bocca al lupo
MAssimiliano

 Emily (speranzosa di trovare lavoro dopo la maturità)
Scusa, ma che scuola fai? Interessante che abbiano messo access nel
programma di studio.
Se impari ad usarlo bene sarai molto facilitata quando andrai a cercare
lavoro, lo puoi usare per automatizzare una gran parte dei lavori
d'ufficio.
Namor
-- 
namor at inwind punto it


 d'ufficio.
Magari in quel di Gorizia, visto che trattasi di "dolce pulzella"?
-- 


 Magari in quel di Gorizia, visto che trattasi di "dolce pulzella"?
Uff... non si può uscire un attimo dalle righe che subito c'è qualcuno che
fraintende...  ;-)
Direi che se impara ad usarlo veramente bene non avrà difficoltà a trovare
lavoro ovunque.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 


 namor at inwind punto it
Marco.... va ancora a scuola..... un pò di contegno....!!!
;-)
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ;-)
Beh, ma è già alla matura, quindi almeno maggiorenne...
No, veramente, mi sono chiesto spesso perchè non insegnino cose più utili
alle superiori, per esempio Access al posto del COBOL. Per uno che cerca
un lavoro che non sia in un settore specificamente informatico è
sicuramente meglio poter scrivere sul curriculum "so progettare e
realizzare un database access" che "fondmenti di programmazione COBOL".
Evidentemente qualcuno che ha il potere di farlo si è reso conto di questi
anacronismi e ci ha messo una patch.
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 


 ha scritto nel messaggio 
news:cuf672$455$1...@news.newsland.it...

Ti dirò.. ho fatto Ragioneria  con specializzaione Prorammatore... Il 
classico COBOL '85 è anche ACCESS... faccio alcuni colloqui e tutti cercano 
programmatori DELPHI o JAVA.... indovina te cos'è meglio che ti insegnino a 
scuola.... 

 scuola....
Se fai un colloquio specifico per programmatore ti può servire anche il
cobol, se non altro come esperienza di programmazione (anch'io a scuola ho
studiato cose tipo assembler Z80), ma parlavo di un posto più generico di
impiegato amministrativo o segretaria in un qualsiasi ufficio.
Se fossi titolare di una ditta preferirei assumere una segretaria che è in
grado di fare e tenere in ordine un database access di
clienti/ordini/fatture piuttosto di una che mi sa fare i programmini in
cobol.
A proposito di Java, stiamo cercando gente per far avviare a Gorizia un
corso Java livello base finanziato dal fondo sociale europeo, se qualcuno
è interessato mi scriva un'email e gli dò i dettagli.


Scusami Massi (posso chiamarti così?)
ma non lo trovo...
a dir la verità cercavo un modulo da mettere nel mio database mi ci sto
scervellando da giorno ma non riesco a trovarlo, sto diventando pazza!
Emily
MA ha scritto:



 Emily
Scrivi DOPO il quoting
Metti nelle proprietà della maschera Intervallo Timer = 1000
e nel codice
Sub Form_Timer()
         ' IDLEMINUTES determines how much idle time to wait for before
         ' running the IdleTimeDetected subroutine.
         Const IDLEMINUTES = 1
         Static PrevControlName As String
         Static PrevFormName As String
         Static ExpiredTime
         Dim ActiveFormName As String
         Dim ActiveControlName As String
         Dim ExpiredMinutes
         On Error Resume Next
         ' Get the active form and control name.
         ActiveFormName = 
Screen.ActiveForm.name
         If err Then
            ActiveFormName = "No Active Form"
            err = 0
         End If
         ActiveControlName = 
Screen.ActiveControl.name
            If err Then
            ActiveControlName = "No Active Control"
            err = 0
         End If
         ' Record the current active names and reset ExpiredTime if:
         '    1. They have not been recorded yet (code is running
         '       for the first time).
         '    2. The previous names are different than the current ones
         '       (the user has done something different during the timer
         '        interval).
         If (PrevControlName = "") Or (PrevFormName = "") _
           Or (ActiveFormName <> PrevFormName) _
           Or (ActiveControlName <> PrevControlName) Then
            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
         Else
            ' ...otherwise the user was idle during the time interval, so
            ' increment the total expired time.
            ExpiredTime = ExpiredTime + Me.TimerInterval
         End If
         ' Does the total expired time exceed the IDLEMINUTES?
         ExpiredMinutes = (ExpiredTime / 1000) / 60
         If ExpiredMinutes >= IDLEMINUTES Then
            ' ...if so, then reset the expired time to zero...
            ExpiredTime = 0
            ' ...and call the IdleTimeDetected subroutine.
            IdleTimeDetected ExpiredMinutes
         End If
      End Sub
Sub IdleTimeDetected(ExpiredMinutes)
         'Dim Msg As String
         'Msg = "No user activity detected in the last "
         'Msg = Msg & ExpiredMinutes & " minute(s)!"
         'MsgBox Msg, 48
Qui fai quello che vuoi.
End Sub
MAssimiliano