Buongiorno,
indico il codice che sto utilizzando per l'immissione password in una maschera per access:
Option Compare Database
----------------------------------------------------------
Private Sub Form_Load()
DoCmd.Maximize
End Sub
--------------------------------------------------------
Private Sub comando1_click()
accesso
End Sub
----------------------------------------------------------------------------
Private Sub accesso()
Dim lcount As Long
lcount = DCount("*", "datiutenti", "username='" & Me!txtusername.Value & "' And password='" & Me!txtpassword.Value & "'")
If txtusername.Value = "admin" And txtpassword.Value = "pass" Then
MsgBox ("accesso amministratore")
Else
If lcount > 0 Then
MsgBox ("accesso")
Else
MsgBox ("accesso negato")
End If
End If
txtusername.Value = ""
txtpassword.Value = ""
Exit Sub
End Sub
-------------------------------------------------------------
Private Sub txtpassword_Keydown(Keycode As Integer, shift As Integer)
If Keycode = vbKeyReturn Then accesso
End Sub
-------------------------------------------------------------
funziona tutto bene se l'accesso viene eseguito utilizzando la pressione del pulsante comando1, ma se utilizzo l'evento keydown succedono cose strane tipo che non vengono eseguite le istruzioni del ciclo if nella subroutine accesso.
Potreste aiutarmi a capire la dinamica di questi eventi. Grazie.