eksperymenty z internetem, blogami, bloxem, javascriptem, firefoxem czy różnymi użytecznymi programami czy narzędziami, tak okołoinformatycznie tudzież okołokomputerowo...
Blog > Komentarze do wpisu

ACCESS: weryfikacja hasła na formularzu

funkcja sprawdza, czy wciśnięta na formularzu sekwencja klawiszy odpowiada zdefiniowanemu hasłu, przekazanemu jako parametr
ja tego używam na formularzach przy zdarzeniu On Key Press (Przy naciśnięciu klawisza). Wywołuję tym jakieś ukryte możliwości (np. jakiś konfigurator albo edycję ukrytych pól...)

Uwaga: właściwość formularza KeyPreview (Podgląd Klawiszy) musi być włączony na Yes/Tak.

Public Function VerifyPassword(passwd As String, KeyAscii As Integer) As Boolean
Static keycount As Integer
Dim prevcount As Integer
prevcount = keycount
If AscW(Mid(passwd, keycount + 1, 1)) = KeyAscii Then keycount = keycount + 1
If prevcount = keycount Then keycount = 0
If keycount = Len(passwd) Then VerifyPassword = True: keycount = 0
End Function
piątek, 11 lutego 2005, sgk

Polecane wpisy

  • iphone 3gs czy nokia n97?

    Osiołkowi w żłoby dano. W jeden owies, w drugi, siano. Uchem strzyże, głową kręci. I to pachnie, i to nęci.Aleksander Fredro , "Bajeczka o osiołku" Mam mały dy

  • dropbox daje [nowym] dodatkowe miejsce

    Jeśli ktoś jeszcze nie zdecydował się na korzystanie z Dropboxa (a według mnie naprawdę warto ) to teraz jest okazja na zyskanie na starcie dodatkowych 250MB

  • ACCESS: SubDataSheet: from [Auto] to [None]

    funkcja zmieniająca właściwość SubdatasheetName tabel lokalnych z [Auto] na [None] co znacznie przyspiesza pracę z nimi... Public Function SubDatasheetName_Auto

TrackBack
TrackBack w tym blogu jest moderowany. TrackBack URL do wpisu:
bloxowe porady

RSS


dodaj do netvibes

Add to Google


pobierz Spiceworks - darmowe oprogramowanie do zarządzania infrastrukturą IT