ลองใช้ DCount กับ BeforeUpdate event ดูครับ ดังนี้ Private Sub Combo26_BeforeUpdate(Cancel As Integer) If DCount("Room_ID", "tblCheckIn", "[Room_ID] = '" & Me.Combo26 & "'") = 4 Then MsgBox "ห้องหมายเลข '" & Me.Combo26 & "' เต็มค่าาาา", vbOKOnly, "Full" DoCmd.CancelEvent SendKeys "{Esc}", False Exit Sub End If End Sub

ขอบพระคุณค่ะ เดี๋ยวจะมาใหม่

อาจารย์สุภาพคะ ทำไมมันยังป้อนได้เรื่อยๆ อยู่หละคะ ซ้ำเป็นสิบ ก็ยังไม่บอกว่าห้องเต็มเลยค่า ไม่รู้ว่าทำผิดตรงไหน ลืมบอกไปว่า Form นี้เป็น subform ค่ะ แต่ก็ได้ลองทำเป็นแบบ SingleForm แล้ว ก็ยังป้อนได้เรื่อยๆ เช่นกันค่ะ

ครับ ผมก็ทำในฟอร์มชื่อ frmCheckIn แหล่ะครับ พอตอนเปิดฟอร์ม frmManage ก็คลิกที่ Combo26 ก็ทำงานได้ไม่มีปัญหา โดยผมได้เข้าไปเปลี่ยนชนิดของฟีลด์ Room_ID จาก Number ให้เป็น Text ก่อน เพราะของเก่าที่เคยส่งมาให้ผมดูมันเป็น Number ครับ ลองเอาโค้ดที่ปรับไปใช้มาให้ดูหน่อยซิครับ ได้ปรับเปลี่ยนอะไรอีกมั๊ยครับ

ได้เลยค่ะ ======================== Private Sub room_id_BeforeUpdate(Cancel As Integer) If DCount("room_id", "tblCheckIn", "[room_id] = ' " & Me.Parent.frmCheckin.Form.room_id & "'") = 4 Then MsgBox "ห้องหมายเลข '" & Me.Parent.frmCheckin.Form.room_id & "' เต็มค่าาาา", vbOKOnly, "Full" DoCmd.CancelEvent SendKeys "{Esc}", False Exit Sub End If End Sub =======================================

อีกแบบค่ะ Private Sub room_id_BeforeUpdate(Cancel As Integer) If DCount("room_id", "tblCheckIn", "[room_id] = ' " & Me.room_id & "'") = 4 Then MsgBox "ห้องหมายเลข '" & Me.room_id & "' เต็มค่าาาา", vbOKOnly, "Full" DoCmd.CancelEvent SendKeys "{Esc}", False Exit Sub End If End Sub

ให้ปรับให้ ' และ " อยู่ชิดกันครับ ไม่ต้องเว้นช่องว่าง โอ้ม....เพี้ยง!

คาถามหานิยม ได้ผลแฮ่ะ เพี๊ยง! เดียวอยู่หมัดเลยค่ะ ทำไมมัน case sensitive จังเลย หนูแค่อยากดูว่า ไอ้ที่มันติดๆ กัน มันคืออะไรบ้าง พอแยกออกจากกัน ก็ไม่ได้ทำให้มันติดกันอีก ไม่ยักรู้ว่าจะมีผลทำให้ล่มสลายได้ 5555