السلام عليكــم ورحمـة الله وبركاتــه
كيفك المنتدى وأخبارو ........................................................تحياتي للجميع
للتوضيح (قمت بعمل قاعدة مصغره توضح طلبي فالمرفقات)
-_- سؤالي أريد أن أعرض جميع السجلات الخاصه بالبيان الذي أختاره من القائمة المنسدله
:huh: مثلا لو إخترت نجمه من القائمة المنسدله تظهرلي فالاسفل سجلات النجوم وطبعا أنا لما خزنت البيانات فالقائمة المنسدله خزنتها مع المفتاح الاساسي
:wacko: أنا حاولت أكتب جمله SQL داخل الوحده النمطه في حدث CHANG الخاص بكائن LIST بس في خطأ
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 20 يناير 2009 في 00:21
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
ممكن تنسيق 2003
على راسي :blush:
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
أرجوا أن يكون هذا هو طلبك
ThanX
هذا المطلوب وزياده وربنا يزيدك علم وأجر وتوفيق :happy:
لكن هل لي أن أسأل عن شيء فالكود :
Resume Exit_list_Change
مامعنا هذه الجمله !!
وهي لا تعمل معي !! هلا تنظر فالمرفق :blush: وإذا لديك تعديلات على التصميم فلا تبخل علينا
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 30 يناير 2009 في 02:37
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
راجعي التهجئة يا سيدتي ، أما التصميم فأتركه لزملائي العزاء :happy:
سيدي لا أجد فالتهجئه خطأ !!! :calc: نورنا
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 31 يناير 2009 في 21:00
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
السلام عليكــم ورحمـة الله وبركاتــه
اسمح لي اخي karramil على المداخله
اختي التهجئة غلط لكمة Change
البرنامج بعد التعديل
انظري الى الكود الشرح موجود فيه
اخوك محمد
e e e :mad:
ألف شكر أخي محمد
:angry: هناك مشكله أخرى أرجو المساعده وهي في هذا الكود وتحديدا لما احذف بينات من جدولين مايمشي الكود لكن لما أحذف من جدول واحد يمشي ؟!
DoCmd.RunSQL ("delete FROM food_caunt_item_tool , food " & _
"WHERE f_nu_f=" & CVar(list.Column(0)) & " and f_nu=" & CVar(list.Column(0)) & "")تم تعديل هذه المشاركة بواسطة POWER _GIRL في 2 فبراير 2009 في 20:27
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
في حال كان هذا هو طلبك يرجى الرد بتمت الإجابة !!
تمت الاجابه
لكن إذا تسمح لي :huh: الطريقه كانت بحذف سجلات كل جدول بأمر منفرد هل هذا يعني انني لا يمكنني حذف مجموعه سجلات من جداول مختلفه بجمله واحد !
وشكرا لكــــــــــــــــــــــــ,,
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
الإجراء كان لحذف السجلات من جدولين مختلفين على أن تحذف السجلات المساوية لإختيارك من القائمة المنسدلة فقط وليس جميع البيانات .
الطريقه التي كتب بها الكود تعمل بالشكل التالي
جمله إستدعاء للإجراء يحمل اللجدول الاول (فتنفذ جمله SQL عليها)
ثم
جمله إستدعاء لنفس الإجراء يحمل اللجدول الثاني (فتنفذ جمله SQL عليها أيضا)
ماأقصده أنني لم أشمل الجدولين بعبارة SQL واحده ....................................
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
وهذا هو الإجراء الصحيح
شكرا لكـــــــــــــــــ
بمعنا لا يمكن إنشاء جمله حذف لأكثر من جدول كما في جمله select
عندي مشكله فجمله الاضافة
Private Sub add2_com_Click()
DoCmd.RunSQL ("insert into food (f_na,f_coc,c_nu_f)" & _
"VALUES ('ff'," & CInt(f_coco.Value) & "," & CVar(list_c_na.Column(0)) & ")")أنتظر المساعده
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
ولكن أي مثال تقصدين أراهم متشابهين ؟؟؟؟؟؟؟؟؟
أعتذر عن الخطأ :nose_patch: هاهوا
DoCmd.RunSQL ("insert into food (f_na,f_coc,c_nu_f)" & _
"VALUES (" & CVar(list.Column(0)) & "," & CInt(f_coc.Value) & "," & CVar(list_c_na.Column(0)) & ")")<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
حسناً في جملة الإستعلام الأولى خطأ إذ طلبت الحاق 3 قيم مختلفة لحقلين مختلفين .
لم أفهمكــ لكن لعل هذا يوضح شيء من الامر...........
f_na=CVar(list.Column(0)
هنا خطأ ..
f_coc=CInt(f_coc.Value)
هنا خطأ ..
c_nu_f = CVar(list_c_na.Column(0)
هنا أوك..
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…