مشكلة تكرار التاريخ

وعليكم السلام :)

منور يا استاذ محمود :)

تفضل:

Private Sub DET_A_BeforeUpdate(Cancel As Integer)
    
    'check if this Date is used before
    
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    
    For i = 1 To rst.RecordCount
    
        If Format(Me.det_a.Text, "d-m-yyyy") = Format(rst!det_a, "d-m-yyyy") Then
            'Date exists
            MsgBox "This date is used before"
            Cancel = True
            Me.Undo
            Exit Sub
        End If
    
    rst.MoveNext
    Next i
    
End Sub

جعفر

سلمت يداك اخي جعفر  +1

حاول ان تسجل تاريخ غياب لشخص اخر ولاحظ الرسالة التي ظهرت والمرفق صورتها

ارغب في عدم تكرار التاريخ لنفس الشخص حيث يمكن ان يكتب نفس التاريخ لشخص اخر 

تحياتي لك

تفضل :)

Private Sub DET_A_BeforeUpdate(Cancel As Integer)
on error goto err_DET_A_BeforeUpdate
    
    'check if this Date is used before
    
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    
    For i = 1 To rst.RecordCount
    
        If Format(Me.det_a.Text, "d-m-yyyy") = Format(rst!det_a, "d-m-yyyy") Then
            'Date exists
            MsgBox "This date is used before"
            Cancel = True
            Me.Undo
            Exit Sub
        End If
    
    rst.MoveNext
    Next i

exit sub
err_DET_A_BeforeUpdate:

if err.number=3021 then
exit sub
else
msgbox err.number & vbcrlf & err.description
endif
    
End Sub

جعفر

+1

:)