اشكرك على تجاوبك
دخلت على المواضيع التي ذكرتها وحاولت ولم اصل للنتيجة التي اريدها وصلت الى عدم التكرار لحقلين فقط وانا اريد ثلاثة حقول
يعني الحقل الاول (رمز الرحلة) يعدي والحقل الثاني (رقم الرحلة) ايضا يعدي ويكون الفيصل للحقل الثالث (تاريخ الرحلة)
لانه كما تعلمون مستحيل ان يتكرر رمز الرحلة ورقمها في نفس اليوم
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
If rst!rm = Me!rm And rst!num = Me!num And rst!Date_f = Me!Date_f Then
MsgBox " الرحلة مدخلة مسبقا ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"
Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close