 |  การ Validate ข้อมูลบน Form | #1 | |
|
GeoSpherE
: 01/18/2008
| นี่เป็นวิธีการหนึ่งที่ผมคิดขึ้นเองในการตรวจสอบความถูกต้องของข้อมูลที่ 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 เป็นอะไรก็ได้ตามสถานการณ์ .... ไปโลดดดดดด
| |
|
| | | | |
| |
| |  | #2 | |
|
9notes
Webmaster
: 12/13/2007
| เยี่ยมครับ ขอบคุณสำหรับความรู้ดึ ๆ ที่มาร่วมแชร์กันครับ 
IBM Certified Application Developer - Lotus Notes and Domino 7
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7
| |
|
| | | | |
| |
| | |
CubPanda
: 12/14/2007
| |
| | | | |
| |
| | | การ Validate ข้อมูลบน Form | #4 | |
|
GeoSpherE
: 01/18/2008
| นี่เป็นวิธีการหนึ่งที่ผมคิดขึ้นเองในการตรวจสอบความถูกต้องของข้อมูลที่ 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 เป็นอะไรก็ได้ตามสถานการณ์ .... ไปโลดดดดดด
| |
|
| | | | |
| |