Recent content by archi85

Hi Thanks CEH. Your code is working fine that doesn't enter duplicates but is not displaying any error message. here is my code Private Sub Form_BeforeUpdate(Cancel As Integer) Dim Answer As Variant Answer = DLookup("[Day]", "Dailyreport", "[Day] = '" & Me.Day & "'") If Not IsNull(Answer) Then...