รบกวนอาจารย์นะครับ
ผมมีปัญหาในส่วนของการคีย์บาร์โค้ดเมื่อไม่เจอสินค้าแล้ว ไม่สามารถปิดจบบิลได้ครับ ถึงแม้จะลบข้อมูลใน Textbox ออกทั้งหมดแล้ว มันยังฟ้องว่าไม่เจอสินค้าอยู่เหมือนเดิมครับ

รูปที่1คือคีย์บาร์โค้ดผิด


รูปที่่2ลบข้อมูลออกทั้งหมดและไม่คีย์บาร์โค้ดแล้ว จะกดปุ่มรับเงินไม่ได้ครับ มันฟ้องไม่เจอสินค้าอยู่อีก


ส่วนนี้เป็นโค้ดที่ผมใช้ รบกวนท่านอาจารย์แนะนำให้หน่อยครับ ต้องแก้ที่ตรงไหน
Private Sub Barcode_BeforeUpdate(Cancel As Integer)
If DCount("*", "Item", "[Item-no]=Forms!โปรแกรมขายหน้าร้าน!Barcode") > 0 Then
Else
MsgBox "ไม่เจอสินค้า", vbExclamation, "ข้อผิดพลาด"
Cancel = True
End If
End Sub

ขอบคุณครับ