หลังจากแสดง message box แล้ว ให้สั่ง Me.Undo ทุกคอลโทรลบนฟอร์มก็จะแสดงค่าก่อนการแก้ไขใดๆครับ

แต่การล้างให้เรตอร์ดว่างเปล่าเหมือนก่อนการคีย์นั้น มักไม่ทำกันเพราะผู้ใช้จะต้องมาเสียเวลาป้อนข้อมูลใหม่ในส่วนที่ไม่ผิดทั้งหมดด้วย เราควรจะแสดง msgobx บอกผู้ใช้ว่าที่ฟิลด์ไหนผิดบ้าง แล้วกำหนดโฟกัสไปที่คอนโทรลนั้นโดยเฉพาะ น่าจะ user friendly มากกว่า

ขอบคุณสำหรับคำแนะนำของอาจารย์สันติสุขค่ะ โดยเฉพาะในความเห็นที่2 หนูจะต้องเขียนคำสั่งอย่างไรแล้วนำไปแทรกไว้ตรงไหนคะ แล้วสมมติถ้าจะให้ล้างเฉพาะฟิลด์ที่ผิดเท่านั้นล่ะ สามารถทำได้ไหมคะอาจารย์

ขออาสาด้วยครับ

สมมติว่า
textbox ชื่อ txtAge เป็นคอนโทรลตัวที่ 10
คุณต้องการให้กรอกเป็นตัวเลข เมื่อผู้ใช้ไม่ปฎิบัติตาม ให้..
- แจ้งเตือน
- โฟกัสไว้ที่เดิม
- ล้างค่าที่กรอก

Private Sub txtAge_BeforeUpdate(cancel as integer)
if not isnumeric(txtAge) then
msgbox "กรุณากรอกเป็นตัวเลขเท่านั้น"
cancel =true          ' บรรทัดนี้จะล้างค่าที่กรอกผิดๆ ให้โดยอัตโนมัติ
end if
End Sub

ถ้าไม่เขียนโค้ดไว้ในเหตุการณ์นี้ อาจต้องสั่งล้างค่าด้วย เช่น

Private Sub txtAge_Exit()
if not isnumeric(txtAge) then
msgbox "กรุณากรอกเป็นตัวเลขเท่านั้น"
txtAge.setfocus        ' ระบุโฟกัสของเคอร์เซอร์
txtAge=""                   ' ล้างค่าที่กรอกผิด
end if

ขอขอบคุณ อาจารย์ yeadram อีกท่านนะคะ ครงตามที่หนูต้องการพอดีเลย เดี๋ยวจะรีบลองทำตามดู ถ้ายังไม่ได้จะขอรบกวนเพิ่มเติมอีกนะคะ
ขอขอบคุณอาจารย์ทั้งสองท่าน ที่ให้ความกรุณาค่ะ