السلام عليكم
استعمل هذا الكود في حدث عند النقر على الزر:
If DCount("*", "asnsdat", "rajmasand='" & Me.n1 & "'") = 0 Then
MsgBox "áÇíæÌÏ ÚÞÏ ÈåÏÇ ÇáÑÞã"
Exit Sub
ElseIf [ÊÇÈÚ4].Form![nahatalajd] < Date Then
MsgBox "ÇáÚÞÏ ãäÊåí áÇíÓãÍ ÈãÑÏæÏ"
Exit Sub
ElseIf DCount("*", "ass", "rajmasand='" & Me.n1 & "'") > 0 Then
MsgBox "ÓÈÞ æÚãáÊ ãÑÏæÏ ÈåÏÇ ÇáÚÞÏ"
Exit Sub
End If
و هذا هو التعديل على المرفق
رساله.rar