คือจะทำการกรอกข้อมูลแล้วมีกล่องข้อความบอกว่าซ้ำกัน โดยมีเงื่อนไขว่า 1.ราคาตรงกับที่มีอยู่ และ 2.ช่วงเวลาต้องเป็นช่วงเวลาเดียวกันค่ะ

รบกวนด้วยนะคะ เพิ่งหัดทำค่ะ  ส่วนข้างล่างคือcode ค่ะ

Pro_pro--> ชื่อฟิลด์ก็บราคา ตรงกับเงื่อนไขที่ 1 ค่ะ
proReq_start_date--> ชื่อฟิลด์ก็บราคา ตรงกับเงื่อนไขที่ 2 ค่ะ


Dim com_price

com_price = DCount("[Pro_pro]", "qry_Assess with details", "([Pro_pro]= " & Pro_pro & ") And ([proReq_start_date]=" & Me.proReq_start_date & ")")

If com_price > 0 Then
MsgBox "คุณมีราคานี้อยู่แล้ว"
End If


ปล. code ไม่มี error ค่ะ แต่ค่าที่ได้คือ 0 เลยไม่เข้าเงื่อนไขค่ะ แต่แก้ยังไงก็ไม่ได้