موضوع منقول من المنتدي القديم
الكاتب : the king
قائمتان سرد
بسم الله الرحمن الرحيم
================
سأل احد الأخوان سؤال عن قوائم السرد . كان السؤال :
السلام عليكم ورحمة الله وبركاته
هذا هو سؤالي الأول في المنتدى بعد الشكل الجديد .
عندي نموذج وفيه مربعيت قائمة الأول txt1 والثاني txt2
txt1 يعتمد عل اسماء العملاء من الجدول1
txt2 يعتمد على التاريخ من الجدول2
المطلوب :
عندما أختار اسم العميل من القائمة الأولى أريد أن يخرج في القائمة الثانية التوارخ الخاصة بالعميل المختار .. ولا تخرج معه بقية التواريخ للعملاء الآخرين .
فهل هناك كود أو حل لذلك .
والسلام عليكم ورحمة الله وبركاته
-------------------------------------------------
وأجاب عنه الاخ محمد طاهر
------------------
لقد حاولت ان اعمل كما قال الأخ محمد وكتبت هذا الكود :
Private Sub Type1_AfterUpdate() Kind1.RowSource = "SELECT Kinds.Kind FROM Kinds WHERE (((Kinds.[OWType])=[Forms]![Real]![Type1]));" Requery End Sub
بحيث Type1 القائمه الاولى. و Kind1 هي القائمه الثانيه .
والمتغيران Kind و OWType من الجدول Kinds متغيران نصيان Texts
وللاسف لم يعمل معي الكود
=========================================
ارجوكم واحد يحل الموضوع لانه في غاية الأهميه
----------------------------------------
--------------------------------------------------------------------------------
الكاتب: The king بتاريخ: 8/30/2002 5:26:43 AM
------------------------------------------------------------------------------
جرب هذا
Private Sub Type1_AfterUpdate() Kind1.RowSource = "SELECT Kinds.Kind FROM Kinds WHERE (((Kinds.[OWType])='" & [Forms]![Real]![Type1]" & "'));" Requery End Sub
الكاتب: محمد طاهر بتاريخ: 8/30/2002 3:33:35 PM
--------------------------------------------------------------------------------
حاولت
بسم الله الرحمن الرحيم
=================
لقد حاولت يا أخ محمد ولكن يظهر لي خطاء . فما الحل ارجوكم
--------------------------------------------------------------------------------
الكاتب: The king بتاريخ: 8/31/2002 3:26:10 AM
--------------------------------------------------------------------------------
للرفع
يأخوان مافيه احد يبي يساعدني.
تكفون واحد يتطوع. ويشوف الكود.
--------------------------------------------------------------------------------
الكاتب: The king بتاريخ: 8/31/2002 6:20:56 AM
--------------------------------------------------------------------------------
ممكن المثال
نرجو نشر المثال الفعلي الذي به المشكلة
و ان شاء الله تجد الحل
الكاتب: محمد طاهر بتاريخ: 8/31/2002 7:54:14 AM
--------------------------------------------------------------------------------
القاعده هنا
القاعده هنا :
http://www16.brinkster.com/aspprince/DB.zip
ارجوكم اريدها بنفس الطريقه.
--------------------------------------------------------------------------------
الكاتب: The king بتاريخ: 8/31/2002 11:51:33 AM
المثال
هذا هو المثال
و لكا فى حقل ال Owtype فى جدول الاصناف
تم استبداله بكود الصنف بدلا من اسمه ليكون التصميم أكثر مثالية
http://www14.brinkster.com/mtarafa/forms/F...lterByCombo.zip
الكاتب: محمد طاهر بتاريخ: 8/31/2002 1:24:31 PM
--------------------------------------------------------------------------------
جزاك الله كل خير
الله كل خير
فوالله انه يعجز لساني عن شكرك
لكن لا يمكن ان تحل المشكله بالطريقه الأولى اي عندما يكون ال OWType حقل نصي
لانه يترتب عليه اشياء اخرى ارجوك حاول وجزاك الله كل خير
اكرر شكري العميق لك .
--------------------------------------------------------------------------------
الكاتب: The king بتاريخ: 8/31/2002 1:41:41 PM
--------------------------------------------------------------------------------
الكود فى الحالة الاولي
Private Sub Type1_AfterUpdate() Kind1.RowSource = "SELECT Kinds.ID, Kinds.Kind FROM Kinds WHERE" & _ " Kinds.OWType ='" & [Forms]![Real]![Type1].Column(1) & "';" Me.Requery
الكاتب: محمد طاهر بتاريخ: 8/31/2002 1:53:49 PM
--------------------------------------------------------------------------------
جزاك الله كل خير
جزاك الله كل خير
جربت الكود وكله طلع تمام
--------------------------------------------------------------------------------
الكاتب: The king
