Snasui Excel Forum

Code: Select all

 userid.SetFocus

Code: Select all

'Private Sub userid_AfterUpdate()
''      On Error Resume Next
'
'End Sub


Private Sub userid_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim j As Long
    If KeyCode = 13 Then
        Set myrange = Worksheets("Customer").Range("A:C")
        j = Application.CountIfs(myrange, userid)
        If j = 0 Then
            MsgBox "ไม่มีข้อมูลลูกค้าที่ระบุ"
            Me.userid.Text = ""
            KeyCode = 0
'            Me.userid.SetFocus
        Else
            username.Value = Application.WorksheetFunction.VLookup(userid, myrange, 3, False)
        End If
    End If
End Sub
[code]