if ---- then --- else

ไม่มีใครรู้กับคุณหรอกครับ ว่า "ครบ" ในความหมายของคุณคืออะไร
ไม่มีใครรู้กับคุณหรอกครับ ฟอร์มของคุณ ใช้อะไรรับค่าบ้าง textbox ใช้กี่ตัว combobox ใช้กี่ตัว
ไม่มีใครรู้กับคุณหรอกครับ ว่า ชื่อคอนโทรลเหล่านั้น ชื่ออะไรบ้าง
ไม่มีใครรู้กับคุณหรอกครับ ว่าคอนโทรลเหล่านั้น ช่องเหล่านั้น ต้องการรับเป็นค่าตัวเลข รับกี่ตำแหน่ง หรือรับเป็น text รับกี่ตัวอักษร

เพราะฉะนั้น คุณต้องช่วยตัวเองครับ ง่ายๆ ครับ if---- then---else

เช่น สมมติว่า มี textbox ตัวหนึ่ง คุณเตรียมไว้ รับค่า ให้ user กรอกรหัสบัตรประจำตัวประชาชน คุณก็ใช้ if --- then ---else นี่แหละครับ

private sub cmdSave_click()
if len(text1)<>13 then exit sub
if not isnumeric(text1) then exit sub
if checkID(text1) = false then exit sub
docmd.runsql "Insert into table1(id_card) values('" & text1 & "');"
end sub

ขอร่วมเสริมแสดงความเห็นซักหน่อยครับ

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

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

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

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

ขอบ่นและฝากไว้เท่านี้แหละ ผมพูดถึงสมาชิกทั่วไปในเว็บบอร์ดนี้นะครับ ไม่ได้มีเจตนาตำหนิท่านเจ้าของกระทู้แต่ประการใด พอดีเข้ามาพบคุณ yeadrum ท่านบ่นๆ ก็เลยถือโอกาศขอเสริมในสิ่งที่พบเห็นมานะครับ
ขออภัยท่านเจ้าของกระทู้ด้วยครับ

Private Sub Command0_Click()
if me.cbo1 ="" or isnull(me.cbo1) then
msgbox "required field"
me.cbo1.setfocus
me.cbo1.dropdrown
endif
if me.txt1 ="" or isnull(me.txt) then
msgbox "required field"
me.txt1.setfocus
endif

end sub