اخواني لدي ثاعدة بيانات جدول اسمه (Items) وحقل بأسم (ItemsNu) رقم الصنف (ItemsQe) كمية الصنف
مثلا الصنف رقم 009 مكرر اكثر من اربع مرات اريد دمج الصفوف في صف واحد مثلا.
كيبورد 009 1
كيبورد 009 1
كيبورد 009 1
كيبورد 009 1
اريد كود يقوم السجلات الى سجل واحد
كيبورد 009 4
ارجو ان يكون اتضح المثال
اخي الموضوع سهل اعمل استعلام فقط اجعل اسم الصنف ثم اعمل sum الى الكميات فقط
بالتوفيق
اشكرك اخي على الرد ولاكن
المطلوب هو كود للدمج في قاعدة البيانات وليس للأستعلام
السلام عليكم
- هذا مايحضرني حالياً ، أولاً أنسخ قاعدة البيانات نسخه وضعها في مكان ما إذا كنت ستطبق الكود على قاعدة البرنامج الرسميه إلى أن تتأكد من نجاح الكود من غير أي مشاكل ، الكود فكرته أنك تقوم بالإستعلام وإذا كانت بيانات الإستعلام ستتخزن في الكائن الخاص بالجدول وليكن RS فقم بحذف بيانات الجدول كلها ثم أعد إضافتها بعد ماتم عمل الترتيب لها في الإستعلام المخزن نتيجته في الكائن RS ، جرب أولاً وإلا إنتظر إذا يوجد عند أحد الأخوة حل أفضل ، وأنا لم أجرب الكود لأني لست قريبا من جهاز كمبيوتر , أتمنى أن ينجح معك الكود :
كود :
IF RS.State =1 Then RS.Close
RS.Open "Select Sum(ItemsQe) As ItemsQe,ItemdNu,ItemsName from Items GROUP BY ItemsName", DB, adOpenKeyset, adLockOptimisti
IF RS.RecordCount > 0 Then
DB.Execute "DELETE From Items"
Doevents
IF RA.State =1 Then RA.Close
RA.Open "Select * from Items", DB, adOpenKeyset, adLockOptimistic
RS.MoveFirst
Do Until Rs.Eof
RA.AddNew
DoEvents
RA![ItemsNu] = RS![ItemsNu]
RA![ItemsName] = RS![ItemsName]
RA![ItemsQe] = RS![ItemsQe]
RA.Update
DoEvents
RS.MoveNext
Loop
End IF
IF RA.State =1 Then RA.Close
IF RS.State =1 Then RS.Close
- تحياتي .
ببساطة قم بالبحث عن جملة معينة و هي كيبورد 009 ثم ليكن عندك متغيير قيمته 0 الاصلية فقم بجمع اول نتيجة للبحث و هي الرقم تع السجل الذي وجدته أولا مع هذا المتيغير ثم احفظه
اي يجب ان يكون لديك تكست بوكس في الفورم لود =0
و في الكوماند
a=text
b=من السجل
c=a+b
text=c
ثم احذف السجل و هكذا تابع البحث و القيام الخطوات اعلاه حتى تنتهي
ثم قم باضافة سجل جديد فيه النتائج
ترجو ان تصل الفكرة
تم الحل بفضل الله ثم بفضل كل من شارك معي