นี่เป็นวิธีการหนึ่งที่ผมคิดขึ้นเองในการตรวจสอบความถูกต้องของข้อมูลที่ User คีย์ก่อนถูก Save
ซึ่งผมขอออกตัวก่อนนะ ว่าผมก็ไม่รู้หรอก ว่าจะมีวิธีที่ดีกว่านี้ไหม เนื่องจากผมงมเองคนเดียว
หากท่านใดมีวิธีการที่ดีกว่า ง่ายกว่า ก็ขอให้ Post ต่อผมไปในกระทู้เดียวกันไปเลย เพื่อเป็นวิทยาทานแก่ชาวเรา
เข้าเรื่องกันเลย ยกตัวอย่างเช่น
ถ้าเรามี Text Field และต้องการให้ User คีย์เฉพาะอังกฤษเท่านั้นนะ ห้ามทะลึ่งคีย์อย่างอื่น
อันดับแรกสร้างปุ่ม Save ขึ้นมาเลยครับ แล้วใส่ Code ดังนี้.-
สมมุติ Field นั้นชื่อ NameEN
dim chklist as string, x as string, tmp as string
chklist = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
x = doc.NameEN(0)
For i = 1 To Len(x)
If Instr(chklist, Mid(x,i,1)) = 0 Then
Msgbox "ประทานโทด พิมพ์ชื่ออังกฤษคับ ชื่ออังกฤษ เดี๋ยวตกหัวทึ่ม รักนะ User โง่...จูจุ๊บ"
Exit Sub
End If
Next
แค่นี้ก็สามารถกรองข้อมูลผิดๆ ก่อน Save ได้เยอะแล้ว
คุณจะเปลี่ยน chklist เป็นอะไรก็ได้ตามสถานการณ์ .... ไปโลดดดดดด
|