Page 1 of 1
สอบถามการกำหนด Cursor ใน form
Posted: Mon Apr 21, 2014 2:44 pm
by djung
คือเมื่อเราพิมพ์รหัสเข้าไป (รหัสจาก Colum A Sheet DATA) form จะดึงข้อมูลจาก Sheet DATA มาแสดง กรณีที่หารหัสไม่เจอผมต้องการให้แสดง msg box เตือนขึ้นมา และให้ cursor ไปอยู่ที่ Textbox1 เมื่อหาข้อมูลไม่เจอ ปรากฎว่า cursor ไปอยู่ที่อื่นแทนผมต้องแก้ไขตรงใหนครับ อีกอย่างนะครับวันที่เมื่อเรากด SAVE วันที่มันจะแปลกๆไป (ใน Sheet DATA) นะครับเหมือนมันเป็น Text นะครับ ต้องแก้ไขยังไงครับ
Re: สอบถามการกำหนด Cursor ใน form
Posted: Mon Apr 21, 2014 4:58 pm
by 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
Re: สอบถามการกำหนด Cursor ใน form
Posted: Mon Apr 21, 2014 5:09 pm
by djung
ทำได้แล้วครับอาจารย์ขอบคุณมากๆๆครับ