اخي الفاضل اخر الارض . ممكن لو تكرمت شرح كود تعارض تاريخين في مرفق اخي القعر
Private Sub dur11_AfterUpdate()
Me.vacsum_count.Requery
If Me.CountRQ >= 1 Then GoTo line22 Else GoTo line33
line22:
MsgBox "äØÇÞ ÇáÅÌÇÒÉ ãÓÌá ÓÇíÞÇð", vbCritical + vbOKOnly, "ÊäÈíå"
Undo
Exit Sub
line33:
Exit Sub
End Sub