Private sub cbProductID_BeforeUpdate(cancel as integer)
cancel = isnull(cbProductID)
End sub

แหะๆ
ไม่ได้อ่ะครับ
แต่จะลองดู
ขอบคณครับ

สร้างเหตุการณ์ on Exit ของ ProductID
เขียน Code ดังนี้

If Isnull(ProductID)=True or Product="" then
Msgbox "xxx"
ProductID.Setfocus
Exit Sub
End if

ผิดนิดหน่อย แก้ Code ตรง Product="" เป็น ProductID="" ครับ

ขอบพระคุณอย่างสูงครับพี่Nova ใกล้เคียงแล้วครับ พอไม่มีการลงรหัสปุ๊บ มันขึ้นข้อความเตือนทันทีเลย แต่มันยังไม่กลับไปSetFocusที่ ฟิล์ด ProductIDเลยครับ

ประยุกต์ อย่าก็อป!

Private sub cbProductID_BeforeUpdate(cancel as integer)
cancel = (isnull(cbProductID) or cbProduct="")
End sub

ครับ อาจารย์ จะลองพยายามดูครับ

คือมันเป็นแบบนี้ครับ อาจารย์ Yeadram
ใช้กับTextBoxได้เมื่อคลิ๊กด้วยเม้าส์ครับ แต่เวลาลงรหัสสินค้าจะใช้วิธีกดรหัสแล้วไปที่จำนวนแล้วคำนวณเอง แล้วจะไปอีกบรรทัดต่อไปที่ฟิล์ดรหัสสินค้า วนไปแบบนี้อ่ะครับ เลยไม่ได้ใช้เม้าส์คลิ๊ก เลยไม่เห็นผล ยังไงก็จะลองดูใหม่นะครับ ขอบคุณครับ

รายงานผล
ได้แล้วครับผม ผมใช้แบบนี้ก่อนไปก่อนครับ

Private Sub ProductID_Exit(Cancel As Integer)
Cancel = (IsNull(ProductID) Or ProductID = "")
End Sub

มันจะอยู่ที่เดิมครับ เลยเอาไปใช้กับ EmployeeID กับ PersonID ด้วยเลย :-)

ตอนนี้ใช้แบบนี้ครับ

Private Sub PersonID_Exit(Cancel As Integer)
If IsNull(PersonID) Or PersonID = "" Then
Cancel = (IsNull(ProductID) Or ProductID = "")
MsgBox "กรุณาใส่รหัสผู้ติดต่อ หรือ รหัสลูกค้า ( ลูกค้าทั่วไปคือรหัส xxx )"
Exit Sub
End If
End Sub

อิอิ

Exit Sub
End If
End Sub

มันไม่มีคำสั่งต่อ ไม่มีเงื่อนไขต่อ Exit Sub ไม่ต้องใส่ก็ได้ครับ มันจบงานแล้วนะนั่น

แหะๆ
แค่นี้พอมั๊งครับ

Private Sub ProductID_Exit(Cancel As Integer)
If IsNull(ProductID) Or ProductID = "" Then
Cancel = (IsNull(ProductID) Or ProductID = "")
MsgBox "กรุณาใส่รหัสผู้ติดต่อ หรือ รหัสลูกค้า"
End If
End Sub

ได้แค่นี้ก้ดีใจแย่แล้วครับผม อิอิ แต่มาแจ้งตามกติกาครับ

แต่ยังอยากได้แบบว่า ถ้ากดEnterแล้วไม่มีข้อมูล ให้วิ่งไปFocusที่ฟอร์มหลักเลย ยังทำไม่ได้เลยครับ :-P

เวรกรรม ผมลงผิดครับ

Private Sub PersonID_Exit(Cancel As Integer)
If IsNull(PersonID) Or PersonID = "" Then
Cancel = (IsNull(PersonID) Or PersonID = "")
MsgBox "หรุณาใส่รหัสผู้ติดต่อ หรือ รหัสลูกค้า ( ลูกค้าทั่วไปคือรหัส 601 )"
End If
End Sub

ผมลองแล้ว มันต้องเป็น

Private Sub ProductID_Exit(Cancel As Integer)
If IsNull(ProductID) Or ProductID = "" Then
Cancel = (IsNull(ProductID) Or ProductID = "")
MsgBox "กรุณาใส่รหัสผู้ติดต่อ หรือ รหัสลูกค้า"
Exit Sub
End If
End Sub

ถ้าใช้แบบนี้ มันไม่มีปัญหาครับ

ถ้าไม่อยากให้มันอยู่กับที่ ต้องอย่าใช้ cancel ครับ คืออย่าขวางมัน

private sub ProductID_Afterupdate()
If IsNull(ProductID) Or ProductID = "" Then
MsgBox "กรุณาใส่รหัสผู้ติดต่อ หรือ รหัสลูกค้า"
on error resume next
Forms("ชื่อฟอร์มหลัก").controls("ชื่อคอนโทรล").setfocus
End If
End sub

ใช่แบบนี้หรือเปล่าครับ ลองดู

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

แต่เวลาไปฟอร์มใหม่ หรือ Esc มักจะขึ้น
กรุณาป้อนค่าลงในเขตข้อมูล TbOrderDetail.ProductID

ไม่รู้ว่าต้องแก้ไขต่อไปยังไงครับ ตอนนี้ใช้แบบนี้ครับ

Private Sub ProductID_Exit(Cancel As Integer)
If IsNull(ProductID) Or ProductID = "" Then
MsgBox "กรุณากลับไปใส่รหัสสินค้า หรือ รับเงินลูกค้าเพื่อทอนเงิน"
On Error Resume Next
Forms("FmOrder_Out_All").Controls("CashInAtPos").SetFocus
End If
End Sub

ตอนนี้เลยอยากให้เป็นว่า ถ้าฟิล์ด ProductIDในฟอร์มย่อย FsOrderDetail_Out_All ถ้าว่าง-> ให้ยกเลิกบรรทัดนี้(เป็นบรรทัดที่กดEnterตรงนี้โดยProductIDไม่ได้ใส่)-> แล้วจึงไปที่ฟิล์ด CashInAtPosในฟอร์มหลักFmOrder_Out_All

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

ถ้าให้ตรงบรรทัดล่าสุด(ที่ไม่ได้ใส่รหัสสินค้า)นี้ ถ้าไม่มี ยกเลิก หรือเป็นDelete record นี้ไปเลยก้ได้ครับ

ผมพาไปเหตุการณ์อื่นแล้วนะครับ

If IsNull(ProductID) Or ProductID = "" Then
' me.undo
' docmd.runcommand accmddeleterecord
MsgBox "กรุณากลับไปใส่รหัสสินค้า หรือ รับเงินลูกค้าเพื่อทอนเงิน"
On Error Resume Next
Forms("FmOrder_Out_All").Controls("CashInAtPos").SetFocus
End If

สองคำสั่งที่ผม คอมเม้นต์เอาไว้ ให้ลองเลือกมาใช้ซักอันหนึ่ง ให้มันเหมาะกับงาน กับเหตุการณ์ที่คุณฝังโค้ด เลือกใช้แค่อันเดียวครับ
ลองดูว่าอะไรใช้ได้ (มันขึ้นอยู่กับลำดับงาน และเหตุการณ์ที่ฝังโค้ด)

นำไปใช้แล้วครับ
เปิดใช้ docmd.runcommand accmddeleterecord
แล้วขึ้น Run-time error '2046':
คำสั่งหรือแอคชั่น 'DeleteRecord' ยังใช้การไม่ได้ในขณะนี้
--------------------------------------------------------------------
เปิดใช้ me.Undo
แล้วอาการเหมือนการใช้โค๊ตก่อนหน้าครับ คือยังไม่Undoให้ แต่ไปFocusที่ตั้งไว้เลยครับ
ทำให้RecordในSubFormยังไม่ถูกลบไปครับ

แต่เดี๋ยวผมจะลองอีกเรื่อยๆครับ
ขอบคุณครับผม

ตอนนี้ผมใช้แบบนี้ครับ
Private Sub ProductID_Exit(Cancel As Integer)
If IsNull(ProductID) Or ProductID = "" Then
Me.Undo
' docmd.runcommand accmddeleterecord
MsgBox "¡ÃسҡÅѺä»ãÊèÃËÑÊÊÔ¹¤éÒ"
On Error Resume Next
Forms("FmOrder_Out_All").Controls("CashInAtPos").SetFocus
End If
End Sub

โดยที่ว่า ไปตั้งค่าProductIDที่Tableว่า จำเป็น=ใช่

แต่มันจะฟ้องErrorว่า
กรุณาป้อนค่าลงในเขตข้อมูล TbOrderDetail.ProductID
แต่มันก็จะไม่บันทึกบรรทึกที่Productว่างลงไปในTable

จีงอยากให้มันปิดโดยไม่ฟ้องErrorจะต้องทำอย่างไรครับ เพราะตอนนี้ผมใช้
Private Sub Form_Close()
On Error Resume Next
End Sub
แต่มันก็ยังฟ้องอยุ่ครับ