سؤال مهم فى حذف سجل

السلام عليكم

اخي الكريم بصراحة انا ما فهت السؤال يا ريت توضح اكتر

بس على حسب مافهمت منك

الحل يكون بنفس طريق البحث عن السجل في الجدول الثاني لحذفه

ييتم البحث عن نفس السجل في الجدول الاول و لكن هنا يتم التعديل و ليس الحذف

select ta.column_count from t2 where t2.column_name=" & text1.tex & "

وتضع القيمة في متحول و ليكن ss

delete * from t2 where t2.column_name=" & text1.tex & "

update [t1] set t1.column_count= (t1.column_count-"& aa &") where where t1.column_name=" & text1.tex & "

ارجوا مراعاة فروق الكتابة بين اللغة العربية و الاجنبية اي لليمين و اليسار لكي تكون الجمل واضحة

شكرا اخى الكريم ولكن المشكلة عندى ان البيانات موجودة فعلا ولا يوجد text1 او text2

قكيف يتم تخفيض حقل الكمية والاجمالى فقط بقيمة الكمية والاجمالى المحذوفيين من السجل الموجود فى الجدول الاخر

وشكرا

ارحوا الافادة

من خلال المتغيرات اخي الكريم

بحيث تقوم بتعريف 3 متغيرات وقبل عملية الحذف من الجدول الاول تقوم بتخزين القيم بها

و في عملية الحذف في جدول الثاني تقوم باستخدام المتغيرات السابقة في عمليه الحذف

كيف اخى الفاضل

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

اخي الكريم ياسر اعتذر عن عدم الاستمرار معك في الموضوع السابق وذلك بسبب ضيق الوقت

لعمل ذلك يمكنك اتباع الاتي

نقوم بتعرف متغيرين رقميين كالتالي

Dim Tot, mu as integer

ثم نقوم بتخزين قيمة الكمية المباعة كالتالي

Tot = RS("totalField")
mu = RS("kemeyaField")

ويجب ان يكون لذيك شئ فريد تستخدمه بالبحث في الجدول الاول ونفترض انه مثلا اسم الصنف sname

وبما انه لا يوجد لديك اي TextBox فبالتالي لابد ان تكون بالفعل واقف على السجل قبل عملية الحذف ولذلك قم بعمل التالي

Dim MyName as string
MyName = RS("sname")

جملة البحث كالتالي :

" Select * from FirstTable where sname = '" & MyName & "'"

ثم تقوم بوضع كود كالتالي:

RS("totalField") = val(RS("totalField")) - val(tot)
RS("kemeyaField") = val(RS("kemeyaField"))- val(mu)
RS.Update

وبذلك سيتم خصم الكمية والاجمالي من الجدول الاول

طبعا يمكنك التعديل على الكود بحسب التقنية التي تعمل بها (ADO , DAO )

وارجو ان اكون اوضحت لك الفكرة ولو عندك اي اسئلة اخرى يا ريت تطرحها حتى تعم الفائدة

بالتوفيق

=============

الى اللقاء