Newsgroup: it.comp.appl.access
Titolo: password access

1- C'è la possibilità , una volta configurata la protezione a livello
utente, di creare del codice, su evento click di un pulsante, per permettere
agli utenti di cambiare la loro password di apertura di access?
2- Ho fatto un database che alla partenza mostra una maschera di richiesta
password (diversa da quella di  access), per gestire le autorizzazioni
all'interno delle maschere del programma. C'è una casella combinata che ha
come origine riga una select su di una tabella operatori, la cui selezione
mi restituisce un id_operatore, una casella per l'inserimento della
password, il tasto annulla (esce dal programma) ed il tasto OK che su evento
click controlla la password inserita con quella specificata nel codice per
il rispettivo id_operatore.
DOMANDA: si puo' creare una maschera che permetta di variare per l'operatore
indicato la password che si trova scritta a livello di stringa ? es:
    Select Case Id_Operatore
            Case 1  'Pippo
                    If  Me!password = "pswpippo" Then
                    Me.Visible = False
                Else
                    MsgBox "La Password è errata", vbCritical + vbOKOnly,
"Richiesta Password"
                    Me!password = ""
                    Me.password.SetFocus
                End If
            Case ....
    End Select
ciao Riccardo

 indicato la password che si trova scritta a livello di stringa ? es:
in teoria e' possibile, ma ti sconsiglio di farlo.
nella tabella operatori inserisci un campo per le pwd, magari criptate.
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per email
fluc...@paperino.libero.it
--------------------------------------

 wrote in message
3A0A729F...@tin.it...

______
come si possono criptare?
ci sono programmi per questo o lo fa direttamente il codice con dei comandi
particolari...e quali?
grazie
Riccardo

 wrote in message

ad esempio puoi usare queste, ma ti consiglio di cercarne altre (la rete ne e'
piena)
si usano cosi':
Enc("paperino","topona") -> 4150465443585F5E
Dec("4150465443585F5E","topona") -> paperino
Public Function Dec$(Strg$, Word$)
   Dim b$, s$, I As Integer, j As Integer
   Dim A1 As Integer, A2 As Integer, A3 As Integer, p$
   j = 1
   For I = 1 To Len(Word$)
     p$ = p$ & Asc(Mid$(Word$, I, 1))
   Next
   For I = 1 To Len(Strg$) Step 2
     A1 = Asc(Mid$(p$, j, 1))
     j = j + 1: If j > Len(p$) Then j = 1
     b$ = Mid$(Strg$, I, 2)
     A3 = Val("&H" + b$)
     A2 = A1 Xor A3
     s$ = s$ + Chr$(A2)
   Next
   Dec$ = s$
End Function
Function Enc$(Strg$, Word$)
   Dim b$, s$, I As Integer, j As Integer
   Dim A1 As Integer, A2 As Integer, A3 As Integer, p$
   j = 1
   For I = 1 To Len(Word$)
     p$ = p$ & Asc(Mid$(Word$, I, 1))
   Next
   For I = 1 To Len(Strg$)
     A1 = Asc(Mid$(p$, j, 1))
     j = j + 1: If j > Len(p$) Then j = 1
     A2 = Asc(Mid$(Strg$, I, 1))
     A3 = A1 Xor A2
     b$ = Hex$(A3)
     If Len(b$) < 2 Then b$ = "0" + b$
     s$ = s$ + b$
   Next
   Enc$ = s$
End Function
