مطلوب كود عدم التكرار عند اغلاق النموذج

تفضل :)

انا علشان اجرب الكود، خليته على حدث الزر، اما انت فخليه على الحدث اللي يريحك :)

Option Compare Database

Private Sub cmd_check_Click()
On Error GoTo err_cmd_check_Click

Set rst = Me.RecordsetClone
rst.MoveLast: rst.MoveFirst

'Form values added
Form_Values = Me.No_Technician & " " & Me.Code & " " & Me.Months & " " & Me.Years & " " & IIf(Me.chek = True, -1, 0)
Dont_Delete = 0

'now loop through the values in the table, adding the values
Do Until rst.EOF
Table_Values = rst!No_Technician & " " & rst!Code & " " & rst!Months & " " & rst!Years & " " & IIf(rst!chek = True, -1, 0)

'check if the values match
If Form_Values = Table_Values Then
MsgBox "This value is DUPLICATED, please DELETE"
Dont_Delete = 1
GoTo Found_A_Duplicate
End If

rst.MoveNext
Loop

Found_A_Duplicate:
If Dont_Delete = 1 Then
DoCmd.RunCommand acCmdDeleteRecord
End If

Exit Sub
err_cmd_check_Click:

If Err.Number = 3021 Then
Resume Next
Else
MsgBox Err.Number & vbCrLf & Err.Description
End If

End Sub

جعفر

2.sa.mdb.zip