Newsgroup: it.comp.appl.access
Titolo: funzione Environ per rilevare utente e aggiunta dell'oggetto form aperto/chiuso

Access 2003 / 2010
 
Ciao a tutto il news.
 
Sto utilizzando questo codice trovato in rete, se non erro postato da 
Giorgio Rancati ad altro bisognoso come me.
 
Funziona perfettamente; ho aggiunto    Environ("Computername")    ed ora 
vorrei aggiungere l'oggetto (form o report o.... aperto/chiuso), direi che 
basta anche solo la form aperta/chiusa, la quale potrebbe essere una form 
importante di inserimento dati.
Ho provato con a creare una variabile per Screen.ActiveForm aggiundo poi il 
codice dopo Environ("Computername") , senza risultato. Mi sono bloccato. 
Potete aiutarmi.
 
Grazie, Bruno
 
 
'Registra Data, ora  e utente all'accesso - Chiusura
    Dim criterio As String
    Set db = CurrentDb
              'In evento su apertura
              criterio = "INSERT INTO tbl_141_Accessi(DataApertura, 
UtenteApertura, PCApertura) "
              'In evento su chiusura
              'criterio = "INSERT INTO tbl_141_Accessi(DataChiusura, 
UtenteChiusura, PCChiusura) "
              criterio = criterio & "VALUES ('" & Now() & "', '" & 
Environ("Username") & "','" & Environ("Computername") & "')"
              db.Execute criterio
              Close 
 

 
 
"Bruno62"  ha scritto nel messaggio 
news:51473de7$0$1344$4faf...@reader1.news.tin.it...
 
Access 2003 / 2010
 
Ciao a tutto il news.
 
Sto utilizzando questo codice trovato in rete, se non erro postato da
Giorgio Rancati ad altro bisognoso come me.
 
[CUT]
 
 
Risolto con il codice seguente.
 
'Registra Data, ora  e utente all'accesso - Chiusura
    Dim frmMascheraCorrente As Form
    Set frmMascheraCorrente = Screen.ActiveForm
    'MsgBox "La maschera corrente � " & frmMascheraCorrente.Name
 
        Dim criterio As String
        Set db = CurrentDb
 
              'In evento su apertura form
              'criterio = "INSERT INTO tbl_141_Accessi(DataApertura, 
UtenteApertura, PCApertura, OggettoAperto) "
 
              'In evento su scaricamento form
              criterio = "INSERT INTO tbl_141_Accessi(DataChiusura, 
UtenteChiusura, PCChiusura, OggettoChiuso) "
 
              criterio = criterio & "VALUES ('" & Now() & "', '" & 
Environ("Username") & "','" & Environ("Computername") & "','" & 
frmMascheraCorrente.Name & "')"
              db.Execute criterio
              Close
 
 
^^^^
Ciao a tutti e grazie.
Bruno 
 

 Bruno
 
A cosa serve  il   "tbl_141_"     prima del nome tabella ?
 
 

 ha scritto nel messaggio 
news:kia1gd$5cr$1...@tdi.cu.mi.it...

Buongiorno Roberto, tbl come certamente sai identifica che � una tabella nel 
caso dovessi scorrere gli oggetti; mi aiuta nell'individuazione, infatti 
antepongo anche Qry per le query e frm per le form e fino a qui penso sia 
normale, infatti ho acquisito la cosa da qualche libro di Access/VB. Il 
141  � il mio codice individuale come pilota militare di elicottero; ho 
aggiunto tale codice per individuare tutto quello che ho fatto io, in quanto 
solo un altro collega potrebbe fare qualche Query necessaria all'occorrenza 
per estrapolare i dati volo, che a sua volta identificher� allo stesso modo. 
Sarebbe un caso eccezzionale ma potrebbe accadere.
Spero di aver soddisfatto la tua richiesta.
Ciao, Bruno