MS Access Blog

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 15

Creiamo 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 meno
ULock = 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 If
End Sub


Questa funzione è utile a pilotare l'accesso ai dati, nel mio caso specifico la valorizzazione ad "S" del campo ULock può avvenire in due modi:

1. Manualmente: sono io a decidere chi accede al Programma;
2. 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.