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 (معدل) 7 ساعات مضت, mrastra said: الحل ان شاء الله هو ععمل نموذج واحد فقط مبنى على جدول واحد فقط والجدول بيكون فىه كل البيانات ونعمل معيار عند فتح النموذج الفرعى ( اللى فية بيانات سيد، سلمى ) شكرا اخي من الواضح انك لم تفهم طلبي شكرا لك الفكرة هى استخدم مربع القائمة للتعديل علي اي من النماذج الثلاث الموجودة فكل نموذج له وظيفة معينة فعند الضغط المزدوج الي اي من البيانات يفتح النموذج الذي يحمل نفس البيانات وليس الثلاث نماذج دفعة واحدة Database101.rar تم تعديل أبريل 4, 2016 بواسطه SAYEDaly
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 اضف عمود للجداول باسم النموذج الذي تريده ان يفتح بياناته ثم عند الفتح استخدم هذا العمود
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 21 دقائق مضت, عبد الله قدور said: اضف عمود للجداول باسم النموذج الذي تريده ان يفتح بياناته ثم عند الفتح استخدم هذا العمود شكرا لك اخي الكريم اريد التطبيق علي نفس الطريقة لكن برمجيا
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 7 ساعات مضت, SAYEDaly said: شكرا لك اخي الكريم اريد التطبيق علي نفس الطريقة لكن برمجيا لم افهم ماذا تقصد هل تريد مني ان اطبق ما قلت انا على مرفقك ام ماذا
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 24 دقائق مضت, عبد الله قدور said: لم افهم ماذا تقصد هل تريد مني ان اطبق ما قلت انا على مرفقك ام ماذا اريد التطبيق برمجيا فعميلة اضافة عمود بالجدول بالنموذج غير عملية ارجو التطبيق على المثال المرفق وشكرا لك
عبد الله قدور قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 السلام عليكم اخي الكريم ركز معي قليلا انت انشأت ثلاث جداول متشابهة ثم جمعتهم كلهم في استعلام توحيد صحيح الان ضمن استعلام التوحيد لا يوجد شيء يميز الجداول الثلاثة عن بعضها فلا يمكن فتح النموذج المخصص لها بدون تمييزها و طريقة تمييزها الوحيدة حسب معلوماتي هي اضافة عمود في كل جدول طبعا لا يوجد داعي لظهوره ضمن listbox
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 9 دقائق مضت, عبد الله قدور said: السلام عليكم اخي الكريم ركز معي قليلا انت انشأت ثلاث جداول متشابهة ثم جمعتهم كلهم في استعلام توحيد صحيح الان ضمن استعلام التوحيد لا يوجد شيء يميز الجداول الثلاثة عن بعضها فلا يمكن فتح النموذج المخصص لها بدون تمييزها و طريقة تمييزها الوحيدة حسب معلوماتي هي اضافة عمود في كل جدول طبعا لا يوجد داعي لظهوره ضمن listbox شكرا اخى عبدالله ما يميز كل جدول هو 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 2 دقائق مضت, 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 جعفر استاذي جعفر شكرا لك قد اصابت الهدف واشكر اخي عبدالله حلان صائبان
jjafferr قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 2 دقائق مضت, SAYEDaly said: استاذي جعفر شكرا لك قد اصابت الهدف كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه حياك الله 1
SAYEDaly قام بنشر أبريل 4, 2016 الكاتب قام بنشر أبريل 4, 2016 1 دقيقه مضت, jjafferr said: كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه حياك الله مشكور استاذ جعفر
كرار صبري _ أبو جنى قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 17 دقائق مضت, jjafferr said: وقد يكون الحل هو: استاذ جعفر هذا بالضبط ما عملته انا لكن باضافة شرط ثاني لكن لم تعمل ... و الكود المرفق من حضرتك بشرط واحد وهو ال id فلا يكفي للفصل بين الجداول الثلاثة كما قال اخي عبد الله ...
jjafferr قام بنشر أبريل 4, 2016 قام بنشر أبريل 4, 2016 حيا الله أخي كرار عملي مبني على: 4 ساعات مضت, SAYEDaly said: علي فرض ان id لكل جدول سيكون مختلف عن الجدول الاخر ماهو الكود الذي يفتح كل نموذج عندما يري id الذي يخصه جعفر 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 26 دقائق مضت, jjafferr said: حيا الله أخي كرار
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.