ใ่ส่ Default Value = นาย ก หรือ นาย ข ได้ครับครับ
โดยใส่ที่ property - data

ทำตามคุณ weezaa แล้ว ไม่ต้องใส่ค่ามันก็สามาถผ่านไปได้ครับ จะทำยังให้ผู้ใช้ต้องเลือกก่อนแล้วค่อยไปเคสถัดไปได้ครับ ถ้าไม่ใส่ให้แจ้งเตือน

เขียน code กับกับก็ได้ครับใน event after update

if me.combo1="" or isNull(me.comb1) then
   msgbox "เลือกข้อมูลด้วยครับ"
   me.combo1.setfocus
end if

กำหนดที่ property ของ field ใน Table ให้ Allow Null เป็น False

ผมทำตามคุณ weezaa แล้วนะครับ พอมี MSG แจ้งเตือนกด OK มันก็กด Next ไปเคสต่อไปได้ครับ ต้องเขียนโค๊ดยังไงให้ใส่ค่าที่ Combo ก่อนแล้วค่อย Next ไปเคสต่อไปได้ครับ

แผ่นคุณสมบัติ
ข้อมูล
combo1 มีแหล่งข้อมูลแถว : "";"นาย";"นาง";"นางสาว"
combo1 ชนิดแหล่งข้อมูลแถว : รายการค่า

เหตุการณ์
หลังการปรับปรุง
Private Sub combo1_AfterUpdate()
If IsNull(combo1) Then
        Me.cmdnext.Enabled = False
    Else
        Me.cmdnext.Enabled = True
    End If
End Sub

Private Sub Form_Load()
Me.cmdnext.Enabled = False
End Sub

ผมทำตามคุณ GOD_ENEL มันขึ้นติด Bug

ไม่ติดไรนะครับ cmdnext คือ ชื่อ button ใน form นะครับ
โหลดไปดูเอานะครับ
https://www.mediafire.com/?ivee4d6r36rsp28

้อ้อ cmdnext คือ ชื่อ button ยังไม่หน้าถึงติด Bug เพราะผมใช้ปุ่ม next ของ access แล้วถ้าเป็นปุ่ม next ของ access ละครับต้องเขียนโค๊ดแบบไหนครับ

ปุ่ม next ของคุณคือ ปุ่มชื่อ "ไปยังระเบียนถัดไป" หรือว่า
ปุ่ม next ใช้เพื่อเปิดฟอร์มอื่น

ถ้าเป็น "ไปยังระเบียนถัดไป " ก็ใช้ชื่อที่มันกำหนดให้มาได้เลย เช่น Commmand1 ก็อ้างอิงชื่อนี้ในโค้ดได้เลย Me.Command1.Enabled = False....
อย่าลืมไปที่ แผ่นคุณสมบัติ
ชนิดการเลือก : ฟอร์ม Form
แท็บ : รูปแบบ
ปุ่มนำทาง : ไม่ใช่

ถ้าเป็น next ใช้เพื่อเปิดฟอร์มอื่นๆ ใช้ macro จะง่ายกว่านะครับ Marcro : OpenForm