เขียนโค้ดที่เหตุการณ์ GotFocus

If Nz(ชื่อ Field ของคุณ, "") = "" Then
    MsgBox "กรุณากรอกชื่อก่อน !!   ", vbInformation, "แจ้งให้ทราบ"
    ชื่อ Field ของคุณ.SetFocus
End If
End Sub

ทดลองทำแล้วไม่ได้คะ

เราสามารถที่จะกำหนดลงที่ Property >Data>Validation Rule
และค่อยกำหนด Msg Box ที่ Validation Text ได้มั้ยคะ

แต่ไม่รู้ว่าจะใส่โค้ดที่ช่อง Validation Rule อย่างไร

ที่ว่าทดลองแล้วไม่ได้ คือ ได้ทำอะไรไปบ้างแล้วครับ ช่วยอธิบายหน่อย

โค้ดที่ให้ไปต้องไปใส่ในช่องข้อมูลที่ช่องถัดไปนะครับ ไม่ใช่ช่องที่ให้กรอกชื่อ

If Nz(ชื่อ Field ของคุณ, "") = "" Then
    MsgBox "กรุณากรอกชื่อก่อน !!   ", vbInformation, "แจ้งให้ทราบ"
    ชื่อ Field ของคุณ.SetFocus
End If

หากต้องการให้ตรวจสอบทุก Field ก็ให้นำโค้ดไปใส่ทุก Field ที่ต้องการให้ตรวจสอบ

ทำลองทำได้แล้วคะขอบคุณมากเลยคะ

แต่ถ้าในForm นี้ มี SupForm อยู่ด้วย แล้วเราได้ใส่ Code นี้ลงไปมัน error พอมีทางออกหรือเปล่าคะ

Supform นี้ อยู่ใน Record เดียวกันหมดเลยคะ

เราสามารถใส่ Code ที่คิวรี่ตรงช่อง Criteria ได้หรือไม่

ไม่เคยลองเหมือนกันแต่คิดว่าไปเขียนโค้ดที่ฟอร์มน่าจะง่ายกว่านะ

ลอง Cap ภาพหน้าที่แสดง error มาให้ดูหน่อยครับ

มัน error ขึ้น Popup ให้เรา Stop macro คะ
เพราะเราทำผิดเอง
จะลองหาทางออกดูก่อนนะคะ ขอบคุณมากเลยคะที่ช่วยเหลือ
เพราะโค้ดที่คุณให้มานั้นใช้งานได้จริง และดีด้วย

ขอบคุณค่ะ

ได้ความรู้เพิ่มเติมด้วยค่ะ