مساعدة فى الشرط where

مستر استرا كتب:

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

اريد تحديث نموذج منبثق عن طريق نموذج رئيسي

اللى بيتم انة بيتحدث النموذج الفرعى لكن للسجل الثانى او التالى للنموذج الرئيسي

والمطلوب هو تحديث نفس السجل اللى فى النموذج الرئيسي باستخدام الشرط where

وشكرا للمساعدة

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

مرفق التعديل ..

تحياتي ..

insert_up.zip

قبل التحميل

مشكور وجزاك الله كل خير

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

اخى الكريم جزاك الله كل خير

لكن هذا ليس المطلوب

المطلوب فضلا لا امرا استخدام الشرط where فى المثال المرفق

مستر استرا كتب:

والمطلوب هو تحديث نفس السجل اللى فى النموذج الرئيسي باستخدام الشرط where

أخي الكريم أنت استخدمت الكود التالي في مثالك :

DoCmd.RunSQL " insert into table2 (darga,amount)values ('" & Me.Daraga & "','" & Me.Text6 & "')"

يعني هذا استعلام اضافة وليس تحديث اليس كذلك ؟

يلي أنا فهمته أنك تريد اضافة سجل جديد في الجدول المسمى Table2 بالاعتماد على بيانات الجدول Table1 ومن خلال النموذج Form1 اليس كذلك ؟

اذا كان هذا صحيح فما هو الشرط الذي تريده في استعلام الاضافة لكي نضعه لك ان شاء الله وأنا آسف فإن السؤال غير واضح تماما وانا تصرفت على حسب ما تبين لي من مثالك المرفق وعلى فكرة ممكن تنفيذ المطلوب بشرط قبل تنفيذ الاستعلام وبنفس الطريقة التي ارفقتها لك يعني قبل تنفيذالاستعلام اكتب الشرط الذي تريده ..

وأنا ان شاء الله بالخدمة على قدر ما استطيع ..

أخوك أبو عدنان ..

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

اخى الكريم " ابو عدنان " شاكر سعة صدرك واخجلتنى بكرمك الزائك وكلماتك الرقيقة

بالفعل ما فهمته يا ابو عدنان اكيد صحيح فانا اريد اضافة وليس تحديث،،،،، اضافة بيانات فى الجدول table2 للموظف عبد الله بالاعتماد على النموذج form1

وكل ما اريدة هو استخدام اداة الشرط where فى الكود السابق

DoCmd.RunSQL " insert into table2 (darga,amount) values ('" & Me.Daraga & "','" & Me.Text6 & "' where mainid=" & me.empid & ";"

هذا الكود ما اريدة بعد التصحيح من حضرتك مع العلم ان النموذج الفرعى او المنبثق مرتبط بالنموذج الرئيسي الاول الرئيسي empid والفرعى mainid

وبالنهاية لك الشكر حتى ترضى

مستر استرا كتب:

وكل ما اريدة هو استخدام اداة الشرط where فى الكود السابق

DoCmd.RunSQL " insert into table2 (darga,amount) values ('" & Me.Daraga & "','" & Me.Text6 & "' where mainid=" & me.empid & ";"

هذا الكود ما اريدة بعد التصحيح من حضرتك مع العلم ان النموذج الفرعى او المنبثق مرتبط بالنموذج الرئيسي الاول الرئيسي empid والفرعى mainid

وبالنهاية لك الشكر حتى ترضى

أخي الكريم مستر استرا شكرا لكلماتك الرقيقة وبارك الله بك ..

اخي الكريم هناك ارتباط بين النموذج الرئيسي بالحقل المسمى ID والنموذج الفرع بالحقل mainid وهذا الارتباط يعني أن قيمة الحقلين دائما متساوية فلماذا الشرط اذا وما فائدته ؟؟

وايضا في حال عدم وجود سجل في table2 تابع للجدول table1 فكيف سيكون منطق السؤال ؟ وكيف تضع الشرط للمطابقة ؟

فأعتقد ان استخدام الشرط في هذه الحالة غير منطقي ، واذا احييت تنفيذ المطلوب بطريقتك أنت فانسخ الكود التالي الى برنامجك وهذه الطريقة أرى أنها تحقق المطلوب بدون شرط where

DoCmd.RunSQL " INSERT INTO table2 ( darga, amount, Mainid ) SELECT '" & Me.Daraga & "' AS Expr1, '" & Me.Text6 & "' AS Expr2, '" & Me.ID & "' AS Expr3;"

اما الكود المرفق في مشاركتي السابقة فكنت أحببت أن اضيف به طريقة أخرى للفائدة العامة ..

هذا ما استطعت ان افيدك به .

تقبل تحياتي ..