السلام عليكم ورحمه الله وبركاته
الاخوه اعضاء المنتدى الكرام
كيف يتم الربطفى النموذج المرفق بين الجدولين ؟
اى عمل Form و Sub Form
ارجوا الاهتمام
شاكر حسن تعاونكم
ربط الجريد بنموذج رئيسى
السؤال غير واضح ؟
اولا شكرا على حسن المتابعة . لكل كل الاحترام اخى
ثانيا النموذج مصدر بياناته هو الجدول الرئيسى (catmastermin)
ما اريدة هو ان يكون مصدر الداتا جريد ( catmastersub )
مع العلم انه هناك علاقة راس باطراف بين الجدولين
بمعنى اننى اريد ربط النموذجين ببعضهما
ثالثا كيف لى ان ادخل البيانات من الداتا جريد الى الجدول سواء الاول ام الثانى ؟
ارجوا ان اكون قد استطعت توصيل المطلوب لك اخى الكريمم
السلام عليكم ورحمه الله وبركاته
هل مازال المطلوب غير واضح ؟؟
banciana كتب:اولا شكرا على حسن المتابعة . لكل كل الاحترام اخى
ثانيا النموذج مصدر بياناته هو الجدول الرئيسى (catmastermin)
ما اريدة هو ان يكون مصدر الداتا جريد ( catmastersub )
ماذا تقصد بالنموذج هل الفورم أو الداتا قريد
مع العلم انه هناك علاقة راس باطراف بين الجدولين
بمعنى اننى اريد ربط النموذجين ببعضهما
فسّر هذي أيضاً
ثالثا كيف لى ان ادخل البيانات من الداتا جريد الى الجدول سواء الاول ام الثانى ؟
فسّر هذي أيضاً
ارجوا ان اكون قد استطعت توصيل المطلوب لك اخى الكريمم
السلام عليكم ورحمه الله وبركاته
اخى الكريم
مرسل صورة من الشاشة المطلوبة " البرنامج معمول بالاكسس "
النموذج يكون مصدرة جدول (catmastermin) وهو جدول الجاميع الاساسية
اما الداتا غريد مصدرها جدول (catmastersub) وهو جدول المجاميع الفرعية
وهناك ربط بين الجدولين ( علاقة راس باطراف ) بمعنى عند ادخال استدعاء او ادخال مجموعة رئسية يفلتر على المجموعة الفرعية التابع لها
نفس فكرة الفورم والسب فورم باعتبار ان السب فورم هو الداتا غريد
المرفقات
شفت المثال اللي وضعته بالمشاركة الأولى ولم اجد علاقات بين الجداول
المهم تريد عرض البيانات من جدولين في الداتا قريد اذا كان صحيح
ماهي الحقول التي تريد عرضها في الداتا قريد من الجدول الأول وأيضاً الحقول المراد عرضها في الداتا قريد من الجدول الثاني
انتظر ردك لكي يصلك ردي
banciana كتب:اريد عرض البيانات فى الداتا جريد من جدول واحد فقط وهو ( catmastersub) ولكن البيانات تكون مرتبطة بجدول النموذج الاساسى (catmastermin)
جدول (catmastersub) يعرض بياناته في الداتا قريد
كيف تكون مرتبطه بجدول النموذج الاساسي (catmastermin)
اتمنى انك توضح المطلوب بشكل واضح
مرفق البرنامج بعد تحديد العلاقات للجدولين
اخي هل تريد عن النقر على سجل في الداتا قريد يعرض بياناته في التكستات ؟
تم تعديل هذه المشاركة بواسطة codenew في 26 أبريل 2012 في 16:59
تمام الآن فهمت عليك .
اخي الأداة (Datagrid) امكانياتها محدوده
يوجد اداه افضل منها بكثير وبها امكانيات افضل منها
اسمها (VSFlexgrid 8)
وضعتها في مشروعك بدلاً من الداتاقريد وقمت بعمل المطلوب .. تحياتي
السلام عليكم ورحمه الله وبركاته
والله اخى الكريم مش عارف اقولك ايه
انا اسف لتعبك معايا
للاسف مش هو ده الى انا عاوزة
ما اريدة فى المرفق هو
عند التحرك بين ازرر الانتقال - التالى السابق
يعرض بيانات الداتا جريد مرتبطة بالجدول الرئيسى
وكذلك عند اضافة مجموعة رئيسية مثلا 45
واضافة مجموعات فرعية لها يتم تعبئة المجموعات الفرعية ب 45 فى مفتاح الربط للمجموعات الفرعية
بمعنى ان تكون الجريد بمثابة نموذج فرعى لعرض البيانات المرتبطة بالجدول الرئيسى
اعتقد انه ما ينقصنى هو جملة SQL لجعل مصدر بيانات الجريد مرتبط بمصدر بيانات النموذج ا
وكذلك كود لتكست رقم 1 عند ( Text1_Change) يتحكم فى مصدر بيانات الجريد
اسف على الاطالة
ارجوا ان تنظر للمرفق
تقبل تحياتى
للرفع
هلا اخوي
اكتب الأكواد كما هي موضحه وستقوم بالملطوب
أكواد السجل الأول والتالي والسابق والأخير
كوماند 1 If Not Rss.BOF Then Rss.MoveFirst If Rss.BOF And Rss.RecordCount > 0 Then Beep End If Call Catogary '''''''''''''''''''''''''''''''''''''''''''''''''' Dim rs22 As New ADODB.Recordset If rs22.State = adStateOpen Then rs22.Close rs22.Open "Select * From catmastersub where categoryminid=" & Text1 & " ", DB, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs22 '''''''''''''''''''''''''''''''''''''''''''''''''' كوماند 2 If Not Rss.BOF Then Rss.MovePrevious If Rss.BOF And Rss.RecordCount > 0 Then Beep Rss.MoveFirst End If Call Catogary '''''''''''''''''''''''''''''''''''''''''''''''''' Dim rs22 As New ADODB.Recordset If rs22.State = adStateOpen Then rs22.Close rs22.Open "Select * From catmastersub where categoryminid=" & Text1 & " ", DB, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs22 '''''''''''''''''''''''''''''''''''''''''''''''''' كوماند 3 If Not Rss.EOF Then Rss.MoveNext If Rss.EOF And Rss.RecordCount > 0 Then Beep Rss.MoveLast End If Call Catogary '''''''''''''''''''''''''''''''''''''''''''''''''' Dim rs22 As New ADODB.Recordset If rs22.State = adStateOpen Then rs22.Close rs22.Open "Select * From catmastersub where categoryminid=" & Text1 & " ", DB, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs22 '''''''''''''''''''''''''''''''''''''''''''''''''' كوماند 4 If Not Rss.EOF Then Rss.MoveLast If Rss.EOF And Rss.RecordCount > 0 Then Beep End If Call Catogary '''''''''''''''''''''''''''''''''''''''''''''''''' Dim rs22 As New ADODB.Recordset If rs22.State = adStateOpen Then rs22.Close rs22.Open "Select * From catmastersub where categoryminid=" & Text1 & " ", DB, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs22 ''''''''''''''''''''''''''''''''''''''''''''''''''
السلام عليكم ورحمه الله وبركاته
اخى الكريم
اسف على التاخير فى الرد
واشكرك لاهتمامك
وسامحنى لو كنت ثقلت عليك بطلباتى
تقبل تحياتى
العفو اخي