สอบถามการใช้ VBA สั่งให้ Cursor ไปยัง textbox ที่กำหนด

[thanadul0816]

ต้องการให้ เมื่อกรอกรหัส userid ผิดพลาด หลังจากแสดง message box แล้ว ให้ Cursor ไปแสดงที่ userid และ Clear userid ให้เป็นค่าว่างครับ
ผมใช้

Code: Select all

 userid.SetFocus

แต่ยังไม่ได้ผลตามต้องการครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

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]

[thanadul0816]

ขอบคุณครับ ได้ผลตามที่ต้องการครับ