SAYEDaly قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1) DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1) DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1) هذا الكود يفتح كل النماذج عند الضغط المزدوج علي مربع القائمة ما اريدة ان يفتح النموذج صاحب البيانات التى يتم الضغط عليها بمربع القائمة Database101.rar
عبد الفتاح كيرة قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 سطر واحد فقط DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0]
SAYEDaly قام بنشر أبريل 3, 2016 الكاتب قام بنشر أبريل 3, 2016 اخي الفاضل ما اريده ان يفتح النموذج الذي يتوافر فيه الشرط وان لم يتوافر الشرط لم يفتح اي من النموذجين الاخرين
mrastra قام بنشر أبريل 3, 2016 قام بنشر أبريل 3, 2016 الحل ان شاء الله هو ععمل نموذج واحد فقط مبنى على جدول واحد فقط والجدول بيكون فىه كل البيانات ونعمل معيار عند فتح النموذج الفرعى ( اللى فية بيانات سيد، سلمى )
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 (معدل) في 3/4/2016 at 20:42, mrastra said: الحل ان شاء الله هو ععمل نموذج واحد فقط مبنى على جدول واحد فقط والجدول بيكون فىه كل البيانات ونعمل معيار عند فتح النموذج الفرعى ( اللى فية بيانات سيد، سلمى ) Expand شكرا اخي من الواضح انك لم تفهم طلبي شكرا لك الفكرة هى استخدم مربع القائمة للتعديل علي اي من النماذج الثلاث الموجودة فكل نموذج له وظيفة معينة فعند الضغط المزدوج الي اي من البيانات يفتح النموذج الذي يحمل نفس البيانات وليس الثلاث نماذج دفعة واحدة Database101.rarFetching info... تم تعديل أبريل 4, 2016 بواسطه SAYEDaly
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 اضف عمود للجداول باسم النموذج الذي تريده ان يفتح بياناته ثم عند الفتح استخدم هذا العمود
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 في 4/4/2016 at 04:11, عبد الله قدور said: اضف عمود للجداول باسم النموذج الذي تريده ان يفتح بياناته ثم عند الفتح استخدم هذا العمود Expand شكرا لك اخي الكريم اريد التطبيق علي نفس الطريقة لكن برمجيا
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 في 4/4/2016 at 04:33, SAYEDaly said: شكرا لك اخي الكريم اريد التطبيق علي نفس الطريقة لكن برمجيا Expand لم افهم ماذا تقصد هل تريد مني ان اطبق ما قلت انا على مرفقك ام ماذا
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 في 4/4/2016 at 12:04, عبد الله قدور said: لم افهم ماذا تقصد هل تريد مني ان اطبق ما قلت انا على مرفقك ام ماذا Expand اريد التطبيق برمجيا فعميلة اضافة عمود بالجدول بالنموذج غير عملية ارجو التطبيق على المثال المرفق وشكرا لك
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 السلام عليكم اخي الكريم ركز معي قليلا انت انشأت ثلاث جداول متشابهة ثم جمعتهم كلهم في استعلام توحيد صحيح الان ضمن استعلام التوحيد لا يوجد شيء يميز الجداول الثلاثة عن بعضها فلا يمكن فتح النموذج المخصص لها بدون تمييزها و طريقة تمييزها الوحيدة حسب معلوماتي هي اضافة عمود في كل جدول طبعا لا يوجد داعي لظهوره ضمن listbox
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 في 4/4/2016 at 14:44, عبد الله قدور said: السلام عليكم اخي الكريم ركز معي قليلا انت انشأت ثلاث جداول متشابهة ثم جمعتهم كلهم في استعلام توحيد صحيح الان ضمن استعلام التوحيد لا يوجد شيء يميز الجداول الثلاثة عن بعضها فلا يمكن فتح النموذج المخصص لها بدون تمييزها و طريقة تمييزها الوحيدة حسب معلوماتي هي اضافة عمود في كل جدول طبعا لا يوجد داعي لظهوره ضمن listbox Expand شكرا اخى عبدالله ما يميز كل جدول هو Id
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 هذا التمييز لا يفي بالغرض بدليل اذا صارت بيانات الجدول الثاني اكثر من عشرة كيف سيصبح رقم id سيصبح 21 - 22 - 23 وهنا اصبح مشابها الى الجدول الثالث
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 علي فرض ان id لكل جدول سيكون مختلف عن الجدول الاخر ماهو الكود الذي يفتح كل نموذج عندما يري id الذي يخصه
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 حبيب الظاهر من الحوار انك مبتدئ اكسس يا اخي اقول لك استنادا لخبرتي لا يمكن للحقل id ان يكون هو المميز للجدول لان حقل المميز يجب ان يحوي على معلومة واحدة ثابتة لا تتغير ممكن ان تكون اسم النموذج او اسم الجدول ولا يمكن ان تكون متغيرة هذا رأيي وطلبك صعب التحقق الى درجة الاستحالة وامامك عدة حلول اخرى لكن انت لا تريد ان تراها اقترحها عليك كثير من الاعضاء وسأعيد عليك بعضها 1- اضافة العمود 2- دمج الجداول الثلاثة بجدول واحد وتمييز البيانات بينهم بعمود جديد يضاف ايضا ان اردت طيب ممكن تشرح لنا لماذا تريد استخدام ثلاثة جداول متشابهة لا فرق بينهم بدل من جدول وترفض اضافة العمود يعني ما الفكرة التي تريد الوصول اليها وتمنع الاضافات او دمج الجداول
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 من حيث اني مبتدا اكسس لم تصب هدفك الهدف من تلك العمليه ان لدي سند قيد يوميه سند قبض يوميه سند صرف نقدية سند صرف شيكات لكل سند مواصفاته الخاصه من حيث الشكل والموضوع وانا اريد عندما اضغط علي الحركه من مربع القائمه يظهر السند الخاص بكل عمليه تسهيلا علي المستخدم من خلال النقر يقوم بالتعديل علي السند اخيرا اترك لك المجال للتعديل حيثما تشاء علي المرفق واترك لك عمليه التمييز في انتظار ردك السيد الجوهري
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 السلام عليكم اليك التعديل الذي قمت به و نصيحة أخيرة بما انك تريد انشاء سندات كما ذكرت فكل سند منهم بحاجة الى جدولين الاول رأس السند والثاني جسم السند طبعا يمكن جمع كل السندات التي ذكرتها في جدولين فقط دون الحاجة لان يكون لك سند منهم جدولين تحياتي لك Database101.rar 1
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 السلام عليكم أرفقت لك مثال عن برنامج محاسبة قمت بتصميمه ولكن غير مكتمل سيساعدك كثيرا في موضوع انشاء السندات والفواتير لكن يجب فك الضغط في القرص d حصرا اطلع عليه وانا جاهز لاي استفسار عنه fire.rar
jjafferr قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 السلام عليكم شباب وحيا الله السيد الجوهري ، ما عرفتك بإسمك الجديد اخي الاستاذ عبدالله قدور يتكلم من خبرة في مجال عمله ، فالنظر الى ما يقوله قد يساعدك في برنامجك على المدى البعيد اما انا فلا افهم في المحاسبة ، وانظر للبرنامج من جانب البرمجة فقط وقد يكون الحل هو: Private Sub List0_DblClick(Cancel As Integer) If DCount("*", "Table1", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table11", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table12", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1) End If End Sub جعفر
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 في 4/4/2016 at 20:10, jjafferr said: السلام عليكم شباب وحيا الله السيد الجوهري ، ما عرفتك بإسمك الجديد اخي الاستاذ عبدالله قدور يتكلم من خبرة في مجال عمله ، فالنظر الى ما يقوله قد يساعدك في برنامجك على المدى البعيد اما انا فلا افهم في المحاسبة ، وانظر للبرنامج من جانب البرمجة فقط وقد يكون الحل هو: Private Sub List0_DblClick(Cancel As Integer) If DCount("*", "Table1", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table11", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table12", "[id]=" & Me![List0].Column(1)) > Then DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1) End If End Sub جعفر Expand استاذي جعفر شكرا لك قد اصابت الهدف واشكر اخي عبدالله حلان صائبان
jjafferr قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 في 4/4/2016 at 20:14, SAYEDaly said: استاذي جعفر شكرا لك قد اصابت الهدف Expand كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه حياك الله 1
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 في 4/4/2016 at 20:17, jjafferr said: كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه حياك الله Expand مشكور استاذ جعفر
كرار صبري _ أبو جنى قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 في 4/4/2016 at 20:10, jjafferr said: وقد يكون الحل هو: Expand استاذ جعفر هذا بالضبط ما عملته انا لكن باضافة شرط ثاني لكن لم تعمل ... و الكود المرفق من حضرتك بشرط واحد وهو ال id فلا يكفي للفصل بين الجداول الثلاثة كما قال اخي عبد الله ...
jjafferr قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 حيا الله أخي كرار عملي مبني على: في 4/4/2016 at 16:21, SAYEDaly said: علي فرض ان id لكل جدول سيكون مختلف عن الجدول الاخر ماهو الكود الذي يفتح كل نموذج عندما يري id الذي يخصه Expand جعفر 1
كرار صبري _ أبو جنى قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 (معدل) يعني ( اين الخطأ في هذا الكود ) If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) And "[namee]=" & Me![List0].Column(2)) > 0 Then و اذا كان id متشابه للجداول الثلاثة ... تم تعديل أبريل 4, 2016 بواسطه كرار صبري _ أبو جنى
كرار صبري _ أبو جنى قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 في 4/4/2016 at 20:38, jjafferr said: حيا الله أخي كرار Expand
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.