9notes.net

Folder
-> สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client) -> การ Validate ข้อมูลบน Form

สอบถามปัญหา Notes ทางด้านพัฒนาโปรแกรม (Note Client)
 Date Posted
การ 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 เป็นอะไรก็ได้ตามสถานการณ์ .... ไปโลดดดดดด


| | |
 Date Posted
#2
9notes
Webmaster

: 12/13/2007

เยี่ยมครับ ขอบคุณสำหรับความรู้ดึ ๆ ที่มาร่วมแชร์กันครับ yellow_lol.gif


IBM Certified Application Developer - Lotus Notes and Domino 7
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7

| | |
 Date Posted
#3
CubPanda


: 12/14/2007

ขอบคุณมาก ๆ ค่ะ..^^

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


| | |


(0) Select a Rating...




:
: ืniratcha
: 1276, : 1174, : 3423
Last post was created by killdv at :
:
:
:
:
:

(0) (0)
NoneNone

: IBM Lotus Domino/Notes / ห้องสนทนาทั่วไป/ข่าวสารต่าง ๆ

Yahoo bot last visit powered by MyPagerank.NetPowered by  MyPagerank.Net   Bookmark and Share