السلام عليكم ,,,,,,,,
اذا كان الحقل virusid في الكود نصي وليس رقمي فكيف ستكون كتابة المعادلة
Dim X As Integer
X = DCount("[virusid]", "[TBvirus]", "[virusid]=" & Me.idvirus & " AND [idlaboratory]=Forms![Flaboratory]![idlaboratory]")
If X > 0 Then
MsgBox "error87", 48, "error"
DoCmd.CancelEvent
End If