cannot input text in the textbox

[matrik02]

I cannot insert any input into my textbox. Every time I insert one text or number from keyboard, I got this messagebox MsgBox "Please input valid password", vbCritical, "Warning". So How I can input full password into my textbox?

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii ' This case statment check that no text can be entered.
            Case vbKeyDelete ' Delete Key
            Case vbKeyBack 'Baskspace key
            Case vbKeyReturn
            Case Else
     Dim usrnm As String
     usrnm = TextBox1.Text
     adoRS.Close
     adoRS.Open "SELECT * FROM pass WHERE password='" & usrnm & "';", adoConn, adOpenStatic, adLockOptimistic
     If adoRS.Fields("Password").Value = TextBox1.Text And adoRS.Fields("username").Value = "Pengurus" Then
     pass = True
        'if password valid, success
     Unload Me
     frmMain.Show
     Else
        
         'If password invalid
        intCounter = intCounter + 1
        If intCounter = 4 Then
        MsgBox "You have insert invalid password more then 3", vbCritical, "Warning"
        intCounter = 0
        Unload Me
        Application.Shutdown
        Else
        MsgBox "Please input valid password", vbCritical, "Warning"
        TextBox1.SetFocus
        TextBox1.Text = ""
        End If
    End If

[Siddharth Rout]

That's because you are telling it to check it everytime you enter a character (equivalent to pressing a key) in the textbox...

Private Sub Text1_KeyPress(KeyAscii As Integer) <======

you need to use a different approach. Since you are already comparing the password here

If adoRS.Fields("Password").Value = TextBox1.Text And ......

Then does it really matter to restrict the input in the textbox?

[Siddharth Rout]

Try something like

Private Sub Text1_LostFocus()
     Dim usrnm As String
     usrnm = TextBox1.Text
     adoRS.Close
     adoRS.Open "SELECT * FROM pass WHERE password='" & usrnm & "';", adoConn, adOpenStatic, adLockOptimistic
     If adoRS.Fields("Password").Value = TextBox1.Text And adoRS.Fields("username").Value = "Pengurus" Then
        pass = True
        'if password valid, success
        Unload Me
        frmMain.Show
     Else
        'If password invalid
        intCounter = intCounter + 1
        If intCounter = 4 Then
            MsgBox "You have insert invalid password more then 3", vbCritical, "Warning"
            intCounter = 0
            Unload Me
            Application.Shutdown
        Else
            MsgBox "Please input valid password", vbCritical, "Warning"
            TextBox1.SetFocus
            TextBox1.Text = ""
        End If
    End If
End Sub