สอบถามการกำหนด Cursor ใน form

[djung]

คือเมื่อเราพิมพ์รหัสเข้าไป (รหัสจาก Colum A Sheet DATA) form จะดึงข้อมูลจาก Sheet DATA มาแสดง กรณีที่หารหัสไม่เจอผมต้องการให้แสดง msg box เตือนขึ้นมา และให้ cursor ไปอยู่ที่ Textbox1 เมื่อหาข้อมูลไม่เจอ ปรากฎว่า cursor ไปอยู่ที่อื่นแทนผมต้องแก้ไขตรงใหนครับ อีกอย่างนะครับวันที่เมื่อเรากด SAVE วันที่มันจะแปลกๆไป (ใน Sheet DATA) นะครับเหมือนมันเป็น Text นะครับ ต้องแก้ไขยังไงครับ

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    On Error GoTo a001
    DataNo = TextBox1
    If DataNo <> "" Then
        DaTar = WFu.Match(DataNo, WSDA.Columns(1), 0)
        TextBox2 = WSDA.Cells(DaTar, 2)
        TextBox3 = WSDA.Cells(DaTar, 3)
        TextBox4 = WSDA.Cells(DaTar, 4)
    End If
    GoTo a002
    
a001:
    MsgBox "Please Input MFG Order NO", vbOKOnly + vbExclamation, "Check Data Again"
    Cancel = True
    
a002:
    
End Sub

[djung]

ทำได้แล้วครับอาจารย์ขอบคุณมากๆๆครับ