กระทู้เก่าบอร์ด อ.Yeadram
779 2
URL.หัวข้อ /
URL
การตรวจสอบ ข้อมูลที่ใส่ลงไป
ผมได้กำหนดให้ ข้อมูลใน textbox มี 10 หลัก โดนกำหนด ดังนี้
Private Sub Text103_AfterUpdate()
PT_Number = Right("0000000000" & PT_Number, 10)
End Sub
โดยข้อมูล รหัส PT มี 4 หลัก สมมุติใส่ค่า 4400 จะแสดงผลออกมาดังนี้
0000004400 ซึ่งตรงกับความต้องการครับ
แต่อยากจะรบกวนสอบถามวิธีการตรวจสอบข้อมูลในกรณีที่ผู้คีย์ใส่รหัส PT ผิดเช่น อาจจะใส่รหัสเกิน 4 หลักตามที่กำหนดไป เราจะใส่คำสั่ง อย่างไรครับให้หลังจากใส่รหัส PT ผิดแล้ว จะมีข้อความแจ้งเตือนขึ้นมา ว่าใส่รหัส PT เกินความเป็นจริง
ขอบคุณครับ
Private Sub Text103_AfterUpdate()
PT_Number = Right("0000000000" & PT_Number, 10)
End Sub
โดยข้อมูล รหัส PT มี 4 หลัก สมมุติใส่ค่า 4400 จะแสดงผลออกมาดังนี้
0000004400 ซึ่งตรงกับความต้องการครับ
แต่อยากจะรบกวนสอบถามวิธีการตรวจสอบข้อมูลในกรณีที่ผู้คีย์ใส่รหัส PT ผิดเช่น อาจจะใส่รหัสเกิน 4 หลักตามที่กำหนดไป เราจะใส่คำสั่ง อย่างไรครับให้หลังจากใส่รหัส PT ผิดแล้ว จะมีข้อความแจ้งเตือนขึ้นมา ว่าใส่รหัส PT เกินความเป็นจริง
ขอบคุณครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R23411
อีกวิธีใช้ Input Mask ตั้งค่า ไว้ให้ป้อนค่าได้ 4 หลักไปเลยครับ ลองแล้วสะดวกดีค่า่ผิดพลาดจากการใส่ตัวเลขเกิน 4 หลัก ก็จะไม่มี
Time: 0.3514s
ตัวอย่างสูตรที่ทดลอง
Private Sub Text103_AfterUpdate()
Dim a As Integer
PT_Number = Right("0000000000" & PT_Number, 10)
a = Left(Text103, 6)
If Not a = "0000000" Then
HN.SetFocus
MsgBox ("ãÊèÃËÑÊ IS äÁè¶Ù¡µéͧ¡ÃسҵÃǨÊͺ")
Text103.SetFocus
End If
End Sub