فيه حاجه غلط لا افهمها

كون ان البرنامج بيدخل رقم تاني غير المتكرر فهذا لا اعرفه وهذا على ما أظن انه لا يهمك في شئ

اما بالنسبة لحدوث الخطأ فهذا لأنك وضعت في على الحقل التي تريد التخزين فيه " مفتاح أساسي " وهذا المفتاح يمنع تكرار البيانات

فيجب عليك في برنامجك ان تكتب كود للبحث عن الرقم المدخل في قاعدة البيانات أولا قبل عملية التسجيل به فإذا وجد هذا الرقم المخدل فتظهر Msgbox اما اذا لم يجده فيتم عملية التسجيل بنجاح

واذا اردت الكود فاصبر شوية لغاية ما أجيبهولك علشان انا هاحتاج الكود ده في البرنامج بتاعي ولما اوصل للجزئية دي هابعتهالك

Dim nFound as Boolean

Rec.open "Select CUSTID from Fcust where CUSTID =" & Val(Text1)"

if Rec.Bof = False and Rec.Eof = False then 
  Msgbox "رقم الموظف مسجل مسبقا"
esle
Add.New 
....
....

endif