السلام عليكم احتاج المساعدة في شرح هذا الكود وان امكن بديل لة
Dim X As Integer
X = DCount("[iditems]", "[sublistsale]", "[iditems]=" & Me.iditems & " AND [idlistsale]=Forms![flistsale]![idlistsale]")
If X > 0 Then
MsgBox "تم إدخال هذا الصنف مسبقا", 48, "تنبيه"
DoCmd.CancelEvent
Me.undo
End If