กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
301 1
URL.หัวข้อ /
URL
How to Replace the Default Input Mask Error Message
มีคนถามไว้ที่
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=109614&Forum=CatSearch-2&Words=mask&Match=Entire%20Phrase&Searchpage=0&Limit=25&Old=2days&Main=109614&Search=true#Post109614
เขาถามไว้ว่า
is there any way I can "override" or define my own error message when an
input mask has not been met?
I tried setting up a validation rule but access keeps showing me the inputmask
error which I dont want since it sort of interrupts my program flow...im designing
an application in access
thanks for the help
ต้องการจะระงับการแสดงข้อความเตือนเมื่อใส่ข้อความในช่อง Input Mask ไม่ถูกต้อง จะทำอย่างไร
เขาพูดถึงทางออกไว้ค่อนข้างดีครับ
ผมเลยนึกถึงบทความของ Microsoft เองที่ได้เขียนเกี่ยวกับเรื่องนี้ไว้ที่
http://support.microsoft.com/default.aspx?scid=kb;en-us;q120567
แต่ผมจะเพิ่มโค้ดเข้าไปเพื่อสร้างสิ่งที่ได้พิมพ์ลงไปด้วย เพื่อให้สามารถข้ามไปรายการอื่นได้
โค้ดของผมจะเป็นดังนี้ครับ
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const INPUTMASK_VIOLATION = 2279
If DataErr = INPUTMASK_VIOLATION Then
MsgBox "ใส่หมายเลขโทรศัพท์ไม่ถูก" & vbCrLf & _
"ต้องเป็นแบบ " & Me.Text0.InputMask, vbOKOnly, "ใส่หมายเลขไม่ถูก"
Response = acDataErrContinue
' ยกเลิกค่าที่ได้พิมพ์ลงไป ทำหน้าที่เหมือนกด Esc 2 ครั้งติดกัน
DoCmd.RunCommand acCmdUndo
DoCmd.RunCommand acCmdUndo
End If
End Sub
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=109614&Forum=CatSearch-2&Words=mask&Match=Entire%20Phrase&Searchpage=0&Limit=25&Old=2days&Main=109614&Search=true#Post109614
เขาถามไว้ว่า
is there any way I can "override" or define my own error message when an
input mask has not been met?
I tried setting up a validation rule but access keeps showing me the inputmask
error which I dont want since it sort of interrupts my program flow...im designing
an application in access
thanks for the help
ต้องการจะระงับการแสดงข้อความเตือนเมื่อใส่ข้อความในช่อง Input Mask ไม่ถูกต้อง จะทำอย่างไร
เขาพูดถึงทางออกไว้ค่อนข้างดีครับ
ผมเลยนึกถึงบทความของ Microsoft เองที่ได้เขียนเกี่ยวกับเรื่องนี้ไว้ที่
http://support.microsoft.com/default.aspx?scid=kb;en-us;q120567
แต่ผมจะเพิ่มโค้ดเข้าไปเพื่อสร้างสิ่งที่ได้พิมพ์ลงไปด้วย เพื่อให้สามารถข้ามไปรายการอื่นได้
โค้ดของผมจะเป็นดังนี้ครับ
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const INPUTMASK_VIOLATION = 2279
If DataErr = INPUTMASK_VIOLATION Then
MsgBox "ใส่หมายเลขโทรศัพท์ไม่ถูก" & vbCrLf & _
"ต้องเป็นแบบ " & Me.Text0.InputMask, vbOKOnly, "ใส่หมายเลขไม่ถูก"
Response = acDataErrContinue
' ยกเลิกค่าที่ได้พิมพ์ลงไป ทำหน้าที่เหมือนกด Esc 2 ครั้งติดกัน
DoCmd.RunCommand acCmdUndo
DoCmd.RunCommand acCmdUndo
End If
End Sub
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R06537
Time: 0.1710s