"เคยอ่านเจอในกระทู้แล้วมันยังไม่ค่อยเข้าใจน่ะครับ" ... ไม่เข้าใจตรงไหนก้เอาโค้ดมาถามได้ครับ เพราะมันก็ไม่มีอะไรมากไปกว่าการมาเช็คทีละฟิลด์ครับ ฟิลด์ไหนไม่เติมก็ให้เตือนฟิลด์นั้น ก็เท่านั้นเอง

"เมื่อเราโหลดหน้าฟอร์มมาแล้ว ให้ค่าทุกค่าเป็นค่าว่างเพื่อที่จะรับข้อมูลใหม่ที่เราจะกรอกเข้าไป" ถ้าฟอร์มคุณเป็น bound form ก็ให้ใส่โค้ดตามนี้ใน Form_Load event procedure

Private Sub Form_Load()
   DoCmd.GoToRecord , , acNewRec
End Sub

ขอบคุณมากครับ ก็คือ กำหนดค่าใน textbox ที่เราต้องการให้ป้อนค่าไปทั้งหมดใช่ไหมครับ

http://www.thai-access.com/yeadram_view.php?topic_id=732

ตามกระทู้นี้น่ะครับ แต่ผมไม่เข้าใจว่าเราต้องทำเป็น textbox หรือสามารถจัดการได้เป็นทั้งฟอร์ม ครับ

ถ้าของคุณเป็น bound form ก็จะตรวจสอบ ณ จุดเดียวที่ Form_BeforeUpdate event procedure ก็ได้ครับ   หรือจะตรวจสอบแยกแต่ละ textbox ก็ได้ เช่นที่ Exit event ของ textbox นั้นๆ แต่ผมไม่นิยมทำแบบหลัง ผมชอบทำการตรวจสอบที่ Form_BeforeUpdate จุดเดียวไปเลยมากกว่าครับ

แล้วเขียนโค้ดอย่างไงหรอครับ รบกวนขอตัวอย่างทีนะครับ คุณสันติสุข ขอบคุณมากๆครับ

Private Sub Command14_Click()

If IsNull([id_programs]) Or IsNull([programs]) Then
        MsgBox "â»Ã´»é͹¢éÍÁÙÅ ãËé¤Ãº¶éǹáÅж١µéͧ!"
        DoCmd.GoToControl "ÃËÑÊÊÒ¢ÒÇÔªÒ"
    End If
End Sub

อันนี้เป็นโค้ดที่ผมลองเขียนตามกระทู้ทางด้านบนแต่มันยัง error อยู่ครับ มันชี้ debug มาที่บรรทัดขีดเส้นใต้น่ะครับ

Private sub Save_click
On Err Goto Save_Click

If IsNull([id_programs]) Or IsNull([programs])Then
        MsgBox "โปรดป้อนข้อมูล ให้ครบถ้วนและถูกต้อง!"
        DoCmd.GoToControl "รหัสสาขาวิชา"
    End If
End sub

ใช้แบบนี้แทนแล้วกัน   me("รหัสสาขาวิชา").SetFocus

หมายเหตุ : ไม่แนะนำให้ตั้งชื่อเป็นภาษาอะไรที่ไม่ใช่ภาษาอังกฤษนะครับ

ขอบคุณมากๆเลยครับ ได้แล้วครับ