Case sensitive VBA
Jeg er ved at lave en password kontrol på et anonymt evalueringsskema.Brugeren får udleveret et kode, som vedkommende skal indtaste for at kunne komme ind og give sin evaluering.
For at sikre at hver bruger kun giver een evaluering genereres et tilfældigt password, som bliver registeret i en tabel.
Når brugeren åbner databasen, skal passwordet bruges, hvorefter det skal slettes fra databasen, men....
Når jeg leder efter et gyldigt password bruger jeg i første omgang DCount().
Efter mange forgæves forsøg på at få den til at virke med en variabel som sammenligningskriterie, fik jeg et lidt mere positivt resultat med at henvise direkte til feltet på formen.
Koden ser således ud:
If DCount("*", "Tkoder", "[koder] = " & "Forms![FStartside].[Indentifikation]") > 0 Then
"luk brugeren ind, og slet passwordet fra listen"
Else
"Fortæl brugeren at der er noget galt"
End If
Men... Der skelnes ikke mellem store og små bogstaver. Så f.eks. "PaSSwpRd" = "password"
Har prøvet et skift fra:
Option Compare Database
til
Option Compare Binary
i Genneral, det havde nogen effekt på DCount.
(Testet direkte på to tekststrenge [if "aaa" <> "AAA"] var den case sentiv i binary mode)
Er der nogle som har et bud på hvordan jeg får DCount() gjort case sensitiv, eller hvordan jeg ellers kan lave noget tilsvarende?