مشكلة الخطأ 3022 وعدم القدرة على تعديل سجل موجود

[مسلم_1]

السلام عليكم ورحمة الله وبركاته

يعطيكم العافية جميعا وبارك في جهودكم.

 

لدي نموذج أقوم باختيار اسم الموظف من قائمة تظهر في نموذج مستقل، ليتم عرض كامل بيانات الموظف في النموذج، وعند التعديل على أي حقل لا يقبل الاكسس الحفظ، ويظهر لي هذه الرسالة 

The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index t

ولو قمت بإزالة المفتاح سيقوم بتكرار الرقم الوظيفي للموظف.

 

هل من مساعدة لأتمكن من تعديل البيانات دون تكرارها في سجل جديد، وسأرفق المثال عندما أدخل عبر اللابتوب لأني أكتب من الجوال، ولعل المشكلة معروفة لكم إن شاء الله.

[الحلبي]

الاخ العزيز الجديد @مسلم_1

اعتقد لا اجابات بدون مرفق ليسهل التوضيح

[د.كاف يار]

الغي الفهرس على جميع الحقول و اجعلها تقبل التكرار بإستثناء المفتاح الاساسي و بهذا تنتهي المشكلة

[مسلم_1]

41 minutes ago, د.كاف يار said:

الغي الفهرس على جميع الحقول و اجعلها تقبل التكرار بإستثناء المفتاح الاساسي و بهذا تنتهي المشكلة

الفهرس موجود فقط في المفتاح الأساسي

[د.كاف يار]

طيب ارفق نسخة فارغة من الملف عشان نقدر نساعدك في الحل

[الحلبي]

الدكتور / @د.كاف يار

مش ده كلامى من الاول

[مسلم_1]

On 6/14/2021 at 12:06 AM, د.كاف يار said:

طيب ارفق نسخة فارغة من الملف عشان نقدر نساعدك في الحل

أعتذر  عن عدم إرفاق الملف من البداية وعن التأخر ،

شاكر لكم حسن تجاوبكم جميعا

 

تم إرفاق الملف

711.rar

[مسلم_1]

للرفع

رفع الله قدركم

 

 

[أبو إبراهيم الغامدي]

أهلا مسلم..

وضع البيانات بهذه الطريقة تعني باختصار  أنك تريد أضافة بيانات موجودة مسبقا!

Private Sub List37_Click()
Form_Newstafffrm.cmdupdate.Enabled = True

With List37
 
      Form_Newstafffrm.Staff_ID.Value = List37.Column(0)
       Form_Newstafffrm.emp_nameEN.Value = List37.Column(1)
      Form_Newstafffrm.emp_nameAR.Value = List37.Column(2)
    Form_Newstafffrm.NationalityAR.Value = List37.Column(3)
    Form_Newstafffrm.NationalityEN.Value = List37.Column(4)
   Form_Newstafffrm.TitleJobAR.Value = List37.Column(5)
    Form_Newstafffrm.TitleJobEn.Value = List37.Column(6)
    Form_Newstafffrm.QualificationAR.Value = List37.Column(7)
    Form_Newstafffrm.QualificationEN.Value = List37.Column(8)
    Form_Newstafffrm.ID_Iqama.Value = List37.Column(9)
    Form_Newstafffrm.idissueplace.Value = List37.Column(10)
    Form_Newstafffrm.idissuedate.Value = List37.Column(11)
    Form_Newstafffrm.IDExbiredateH.Value = List37.Column(12)
    Form_Newstafffrm.idexpiredate.Value = List37.Column(13)
    Form_Newstafffrm.Dateofbirth.Value = List37.Column(14)
    Form_Newstafffrm.PassportNo.Value = List37.Column(15)
    Form_Newstafffrm.Passport_issueplace.Value = List37.Column(16)
    Form_Newstafffrm.Passport_issuedate.Value = List37.Column(17)
    Form_Newstafffrm.Passport_expiredate.Value = List37.Column(18)
    Form_Newstafffrm.personalemail.Value = List37.Column(19)
    Form_Newstafffrm.Addressathome.Value = List37.Column(20)
    Form_Newstafffrm.AddressInKSA.Value = List37.Column(21)
      Form_Newstafffrm.ageytxt.Value = List37.Column(22)
       Form_Newstafffrm.agemtxt.Value = List37.Column(23)
    Form_Newstafffrm.Agedtxt.Value = List37.Column(24)
    Form_Newstafffrm.Mobile.Value = List37.Column(25)
End With

End Sub

الطريقة السلمة في حالتك هي هذه

Private Sub List37_Click()
   Form_Newstafffrm.cmdupdate.Enabled = True
   DoCmd.OpenForm "Newstafffrm", , , "Staff_ID='" & Me.List37 & "'"

End Sub

 

[مسلم_1]

On 6/28/2021 at 10:35 PM, أبو إبراهيم الغامدي said:

أهلا مسلم..

وضع البيانات بهذه الطريقة تعني باختصار  أنك تريد أضافة بيانات موجودة مسبقا!

Private Sub List37_Click()
Form_Newstafffrm.cmdupdate.Enabled = True

With List37
 
      Form_Newstafffrm.Staff_ID.Value = List37.Column(0)
       Form_Newstafffrm.emp_nameEN.Value = List37.Column(1)
      Form_Newstafffrm.emp_nameAR.Value = List37.Column(2)
    Form_Newstafffrm.NationalityAR.Value = List37.Column(3)
    Form_Newstafffrm.NationalityEN.Value = List37.Column(4)
   Form_Newstafffrm.TitleJobAR.Value = List37.Column(5)
    Form_Newstafffrm.TitleJobEn.Value = List37.Column(6)
    Form_Newstafffrm.QualificationAR.Value = List37.Column(7)
    Form_Newstafffrm.QualificationEN.Value = List37.Column(8)
    Form_Newstafffrm.ID_Iqama.Value = List37.Column(9)
    Form_Newstafffrm.idissueplace.Value = List37.Column(10)
    Form_Newstafffrm.idissuedate.Value = List37.Column(11)
    Form_Newstafffrm.IDExbiredateH.Value = List37.Column(12)
    Form_Newstafffrm.idexpiredate.Value = List37.Column(13)
    Form_Newstafffrm.Dateofbirth.Value = List37.Column(14)
    Form_Newstafffrm.PassportNo.Value = List37.Column(15)
    Form_Newstafffrm.Passport_issueplace.Value = List37.Column(16)
    Form_Newstafffrm.Passport_issuedate.Value = List37.Column(17)
    Form_Newstafffrm.Passport_expiredate.Value = List37.Column(18)
    Form_Newstafffrm.personalemail.Value = List37.Column(19)
    Form_Newstafffrm.Addressathome.Value = List37.Column(20)
    Form_Newstafffrm.AddressInKSA.Value = List37.Column(21)
      Form_Newstafffrm.ageytxt.Value = List37.Column(22)
       Form_Newstafffrm.agemtxt.Value = List37.Column(23)
    Form_Newstafffrm.Agedtxt.Value = List37.Column(24)
    Form_Newstafffrm.Mobile.Value = List37.Column(25)
End With

End Sub

الطريقة السلمة في حالتك هي هذه

Private Sub List37_Click()
   Form_Newstafffrm.cmdupdate.Enabled = True
   DoCmd.OpenForm "Newstafffrm", , , "Staff_ID='" & Me.List37 & "'"

End Sub

 

.بيض الله وجهك ورفع قدرك

سأطبقها وكل ثقة بجوابكم بأنها ستعمل

جزاك الله عني خيرا