Creiamo una tabella "tbl_utenti" composta dai campi che riteniamo utili, nel caso di questo esempio citerò i campi:ULock: Tipo testo - Dimensione campo 1 - Valore origine riga "S";"N"UserID: Tipo Testo - Dimensione campo 15Creiamo ora la form di Login all'interno della quale ci sarà il campo controllo non associato (casella combinata) di tipo cc_user con origine riga: SELECT tbl_Utenti.UserID, tbl_Utenti.Utente FROM tbl_Utenti ORDER BY tbl_Utenti.ID; Una volta selezionato l'utente, nell'evento After Update del campo utilizzare quanto segue:Private Sub cc_user_AfterUpdate()Dim ULock As String 'Verifica se l'utente è loccato o menoULock = DLookup("[ULock]", "tbl_Utenti", "[UserID]=" & Chr(34) & _ Me.cc_user & Chr(34)) If ULock = "N" Then Me.txt_utente.Value = Me.cc_user.Column(1) Me.txt_pwd.SetFocus Else MsgBox "UTENTE BLOCCATO - Contattare Assistenza", vbCritical, "Attenzione" End IfEnd SubQuesta funzione è utile a pilotare l'accesso ai dati, nel mio caso specifico la valorizzazione ad "S" del campo ULock può avvenire in due modi:Manualmente: sono io a decidere chi accede al Programma;Via codice: nel programma è impostata una data scadenza account e se tale data è inferiore alla data odierna e l'account non è ancora bloccato, il sistema lo blocca;Naturalmente ci sono diverse strade percorribili per ottenere il controllo dell'accesso al Vs. DBase, questo è uno dei tanti metodi sfruttabili.
Login Utente - "se attivo"
Creiamo una tabella "tbl_utenti" composta dai campi che riteniamo utili, nel caso di questo esempio citerò i campi:ULock: Tipo testo - Dimensione campo 1 - Valore origine riga "S";"N"UserID: Tipo Testo - Dimensione campo 15Creiamo ora la form di Login all'interno della quale ci sarà il campo controllo non associato (casella combinata) di tipo cc_user con origine riga: SELECT tbl_Utenti.UserID, tbl_Utenti.Utente FROM tbl_Utenti ORDER BY tbl_Utenti.ID; Una volta selezionato l'utente, nell'evento After Update del campo utilizzare quanto segue:Private Sub cc_user_AfterUpdate()Dim ULock As String 'Verifica se l'utente è loccato o menoULock = DLookup("[ULock]", "tbl_Utenti", "[UserID]=" & Chr(34) & _ Me.cc_user & Chr(34)) If ULock = "N" Then Me.txt_utente.Value = Me.cc_user.Column(1) Me.txt_pwd.SetFocus Else MsgBox "UTENTE BLOCCATO - Contattare Assistenza", vbCritical, "Attenzione" End IfEnd SubQuesta funzione è utile a pilotare l'accesso ai dati, nel mio caso specifico la valorizzazione ad "S" del campo ULock può avvenire in due modi:Manualmente: sono io a decidere chi accede al Programma;Via codice: nel programma è impostata una data scadenza account e se tale data è inferiore alla data odierna e l'account non è ancora bloccato, il sistema lo blocca;Naturalmente ci sono diverse strade percorribili per ottenere il controllo dell'accesso al Vs. DBase, questo è uno dei tanti metodi sfruttabili.