 | การ 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 เป็นอะไรก็ได้ตามสถานการณ์ .... ไปโลดดดดดด
| |
|
| | | | |
| |