function isNum(byval txt as string) as integer
dim i as interger
if len(trim(txt)) =0 then goto fls
   for i = 1 to len(txt)
     if isnumberic(mid(txt,1,1))=false then goto fls
   next
isNum=true
exit function
fls:
isNum=false
end Function

มือใหม่ค่ะ
เห็นโค้ดแล้วงง แต่ก็พอเข้าใจนิดหน่อย
ตรง fls: หมายถึงอ่ะไรค่ะ

แล้วจะเอาโค้ดนี้ไปใช้อย่างไรค่ะ

อาจารย์ครับ อาจารย์ทั้งหลาย
อ.สันติสุข คุณแดน คุณ sjs คุณ Gerald หรือใครรู้ ช่วยทีครับ
ผมอธิบายไม่ถูก fls: ในโค้ดของผมคืออะไร

แงๆ

ในโค้ด เราสามารถกำหนดขื่อบรรทัดของโค้ดได้ด้วย เราเรียกชื่อนี้ว่า line label เราสามารถกระโดดไปที่ line label ได้ด้วยคำสั่ง GoTo, GoSub, On...GoTo, On...GoSub ครับ    line label ต้องมีเครื่องหมาย : (colon) ตามหลังด้วย    ดังนั้น fls: ก็คือ line label ชื่อนึงเท่านั้นเอง

ผมขอเพิ่มเติม จำกัดประเภทข้อมูลในเท็กบ๊อก ส่วนตอน user Key-in (ผู้ใช้ป้อนข้อมูล)
คุณลี่ ก็ไปกำหนดที่ properties > Data >
- input mask
- validation rule

http://office.microsoft.com/en-us/access/HA100964521033.aspx#1
http://office.microsoft.com/en-us/access/HA100963121033.aspx#2

** ที่ไม่ตอบเลย เพราะอยากให้ท่าน อ่านด้วย แล้วจะจำได้ครับ
ไม่ได้กวน...นะ

ไม่รู้เหมือนกับครับว่าเรียกว่างัยถ้าให้ผมแปลก็จะบอกว่า
ให้ fls มันไปทำงานที่
fls: นะ อิอิ

นี่เป็นอีกตัวที่เคยเห็นเขาใช้กันแบบนี้
สมมุติว่ามีฟอร์มตามนี้


เขียนโค๊ตแบบนี้

ใส่รูปผิดครับ
อันนี้ฟอร์ม