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

بالنسبة لمشكلة التكرار

إذا كانت البيانات المراد حذفها مكررة بالضبط حتي في أسماء الكتب..

فيمكنك استخدم جملة Select Distinct أولا ومن ثم حذف السجل مفردا..

	Rs1.Open "Select Distinct * From workers WHERE iD = " & S & " and F1 = '" & List1.Text & "'", db
	If Rs1.RecordCount > 0 Then
	   Rs1.Delete
	   MsgBox "تم الحذف"
	End If

ألف شكر ولكن عند التجربة يختلف الوضع ياليت التعديل في المرفق

قمت بنفس العمل ولكن التحديث لا يتم

بسم الله الرحمن الرحيم

أولا يمكنك تحديد عدد السجلات التى تحتوى على بيانات مكررة عن طريق التالى

1- معرفة الاسماء الغير مكررة عن طريق:

select distinct F1 from workers

2- الدوران على كل ناتج من الامر السابق عن طريق Loop:

"select count(*) from workers where f1='" & ArrF1(i) & "'"

3- اذا كان ناتج الجملة السابقة اكبر من 1 اذا نقوم بعمل التالى:

أولا نقوم بحفظ عدد السجلات المكررة للمستخدم الحالى فى متغير باسم LimNum

ثم نقوم بانقاص واحد من LimNum :

Limnum=LimNum-1

ثم

Rs1.Open "Select * From workers WHERE F1 = '" & ArrF1(i) & "' limit " & LimNum, db
If Rs1.RecordCount > 0 Then
	 Rs1.Delete
	 MsgBox "تم الحذف"
End If

واخيرا نهاية الـLoop

الف شكر وجاري التجربة

قمت بتعديل بعض الاشياء ومنعت التكرار في القائمتين بدلا من تعب ووجع الرأس

ونرجوا متابعة الباقي

mohannaedit.rar

للرفع