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

All'inserimento della password in una form di login non riesco a
differenziare le maiuscole dalle minuscole.Sto usando DoLookUp
    If Me.txtPassword.Value = DLookup("Password", "tblUtenti", "[IDUtente]="
& Me.cmbUtenti.Value) Then
Password č il campo della tblUtenti con le password
IDUtente č la PK della tblUtenti in cui risiedono i nome degli utonti e le
password relative ed il cui valore viene preso sulla frm
dalla cmbUtenti.
Ndo sbajo, non si fa cosě?
SunRex



no...si scrive:
Dlookup 
e non
DoLookup


ho un db di esempio, ma non usa Dlookup
se vuoi te lo mando

"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:qpffdvgt96f974116...@4ax.com...

Magari ;)
P.S.
E' vero si scrive Dlookup
SunRex

E' vero si scrive Dlookup
vabbe capita anche a me :)
Ciao! :)

"yQy" <fabrizi...@SESPAMMITISTRONCOtin.it> ha scritto nel messaggio
news:onmfdv8vigk0a5lbm...@4ax.com...

Ok grazie adesso me lo studio e poi ti faccio sapere.
Magari domani che č un pň tardino.....zzz...zzz..zzzzzzz ;)
Ciao
SunRex

Magari domani che č un pň tardino.....zzz...zzz..zzzzzzz ;)
Quando vuoi! :)
Hai tutto...usalo quando e come vuoi!
Ciao :)

 ha scritto nel messaggio
news:wJMBa.18247$pR3.3...@news1.tin.it...

Prescindendo dal motivo per cui ti serve, se devi confrontare due stringhe
differenziando le maiuscole dalle minuscole, usa la finzione StrComp (vedi
help).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
Grande Roby non ci avevo propio pensato.
StrComp č propio quello che ci voleva.Il tutto mi serve all'apertura del
programma
per fare il controllo degli utenti.

 Ciao :)
Il codice mi funziona solo sul tuo esempio ,forse perchè la mia tblUtenti ha
un PK contatore.
Infatti adattata la tua routine alle mie esegenze mi restituisce sempre
"Tipi di dato non corrispondenti"
Cmq adesso cerco di "domarla".Grande il controllo ortografia di Karl.
Per il momento sto usando la funzione strComp  suggeritami da Roberto e la
protezione controllo ortografia di Karl e devo dire che funzionano a
meraviglia.
Penso che le routine sia equivalenti anche se usando StrComp non devi
dichiarare le due variabili variant.
Ti posto il codice per ringraziarti.;)
Ciao
SunRex
Private Sub cmdLogin_Click()
Dim strSQL As String
Dim strPass As String
Dim Password As String
Dim Compara As Integer
'Controlla la combo utenti
    If IsNull(Me.cmbUtenti) Or Me.cmbUtenti = "" Then
            MsgBox "Devi inserire un nome utente.", vbInformation
            Me.cmbUtenti.SetFocus
        Exit Sub
    End If
'Controlla la txtPassword
    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
            MsgBox "Devi inserire la password.", vbInformation
            Me.txtPassword.SetFocus
        Exit Sub
    End If
intUtente = cmbUtenti.Value
Apri
strSQL = "SELECT * FROM tblUtenti  WHERE IdUtente = " & intUtente & ""
Set rsUtenti = db.OpenRecordset(strSQL)
strPass = rsUtenti.Fields("Password")
rsUtenti.Close
Set rsUtenti = Nothing
Password = txtPassword.Value
Compara = StrComp(strPass, Password, vbBinaryCompare)
If Compara = 0 Then
'Inizializza il modulo di gestione del DataBase , saluta l'utente chiude la
frm di logon ed apre la frmPrincipale
        Apri
        UtenteAttivo
        MsgBox "Benvenuto " & strUtenteAttivo, vbInformation
        DoCmd.Close acForm, "frmLogon", acSaveNo
        DoCmd.OpenForm "frmPrincipale"
 Else
        MsgBox "La Password è errata", vbInformation
        txtPassword.SetFocus
'Se l'utente sbaglia tre volte la password chiude l'applicazione
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
            MsgBox "Hai sbagliato la password per tre volte.L'applicazione
verrà chiusa automaticamente", vbCritical
            db.Close
            set db = Nothing
            Application.Quit
    End If
End If
End Sub