jjafferr

أفا ، السموحة ومع اني ما اقدر اعوض عن اللي صار ، لكن هاك اثنين منهم ولا تزعل جعفر

السلام عليكم أخي آخر الارض اود ان اعرض عليك كود واحد على زر واحد ، يخفي ويُظهر: Me.a.Visible = Not Me.a.Visible ايش رايك؟ جعفر

هذا مجرد اقتراح لسهولة العمل ، تعديل وحذف للبيانات التي تم ادخالها ، والنموذج سياخذ بياناته من جدول واحد فقط dragat-altalep ، ولا علاقة بين النموذجين ، صحيح انهم يحفظوا البيانات لنفس الجدول ، ولكن لا ارتباط بين النموذجين جعفر

أخي عبدالعزيز هذا نموذج ادخال ، لذلك يجب ان ععمل نموذج تعديل وحذف ، لسهولة وصولك للذي تريده جعفر

السلام عليكم أخي عبدالعزيز رجاء ، لا تستخدم الخط الضخم ، فانا أقرأ المنتدى على الجوال في الكثير من الاوقات ، والخط الكبير صعب القراءة عليه 1. تم التعديل ، 2 و 3. تم إرجاع البيانات السابقة (كنت اعتقد بان البيانات كانت للتجربة ، وعلى العموم انا غيرت في الكثير منها ، للتجربة) ، 4. فرق تصفية السجلات بين تصفيتها في الاستعلام وتصفيتها في النموذج/التقرير كالتالي: فلنعتبر الجدول عبارة عن مخزن لتخزين المواد ، الاستعلام هو قاعة مخصصة لتصفية وفرز المواد ، والنموذج/التقرير هو منزلك او متجرك ، السؤال: عندما تريد شراء المواد ، عمل الفلتر من الاستعلام: هل تختار وتصفي ما تشاء في المكان المخصص لذلك في المخزن ، وتأخذ الى متجرك البضاعة التي تريدها فقط ، عمل الفلتر من النموذج: او تأخذ جميع بضاعة المخزن الى متجرك ، ثم تختار البضاعة التي تريد ، 5. تم التعديل بإزالة ربط حقول السرد ، ولكن السنة لا تزال هي الاهم جعفر 14.3.البرنامج المميز.mdb.zip

وعليكم السلام أخي حسسين في الواقع كنت ناوي اعمل برنامج فيه شوية اعمال اضافية ، بس عطني بعض الوقت ، وان شاء الله سيكون البرنامج مميز جعفر

أخي عبدالعزيز يمكنك ان تناديني باسمي جعفر في الواقع لم اتوقع ان يأخذ هذا التعديل الوقت الطويل مني ، إلا اني عملت على ضبطه لآخر درجة ، فان الله يحب اذا عمل احدكم عملا ان يتقنه هذه صورة البرنامج: الكائنات التي تشير اليها الاسهم هي كائنات جديده ويعتمد عليها البرنامج والرجاء ان تعمل حسب تسلسل الارقام ، يعني السنة ، فالمدرسة ، ... في الواقع ، البرنامج به بعض التحف الفنية ، والتي اود لو انك تغوص فيها ، فالفائدة منها كبيرة 1. كيف اخذت البيانات لجميع الحقول المطلوبة في الاستعلام qry_Data_All_New ، 2. النموذج الان لا يصفي بياناته من النموذج ، وانما من الاستعلام qry_Data_Entry ، وطريقة التصفية تعطي مرونة في ان الاختيار في النموذج ، تم اختياره ام لا ، 3. مربعات السرد التالي يتم تصفيته حسب الذي قبله ، مما لا يجعلك تختار شئ غير موجود. جعفر 14.2.البرنامج المميز.mdb.zip

Dim dbs As Database, tdf As TableDef اختصار لـ Dim dbs As DAO.Database, tdf As DAO.TableDef يعني الكود معتمد على DAO Library لهذا السبب يجب ان يكون مختارا. وثانيا ، انت لما تعمل البرنامج اصلا ، تكون مضبط جميع الامور فلن تحدث لك هذه المشكلة!! المشكلة ظهرت لديك لأنك استورت برنامج اظهار الجداول المخفية الى برنامج الاخ ابوخليل (ولم يكن الكود في برنامجه اصلا) ، لذا ، مع استيرادك للكود ، يجب ان "تستورد"/تضبط الامور الاحرى معه. ولكنك لو استوردت كائنات برنامج الاخ ابوخليل لبرنامجك ، لما كان في حاجة لتغيير الكود جعفر

بس الخطوة التالية (بالنسبة لي مب اليوم ، فانا مرهق وعندي كم شغلة احاول اخلصها ) هي ان نجعل البرنامج: 1. نعمل فيه زر لكي يختار اي قاعدة بيانات نختارها ، 2. ان نخفي الجداول لهذه القاعدة ، يعني بالرموت كنترول ، وبالطريقة هذه ، لا نجعل المفتاح مع القفل واذا تكرم احد الشباب بهذه المهمة (طبعا يمكن اخفاء بقية الكائنات ايضا) ، اكون شاكرا له مقدما ، فهذا عمل نتشارك فيه جعفر

لا الله يخليك ، لا تلغي اي شئ من الكود اللي لازم تعمله: في شاشة الكود Tools References واختار من القائمة Miscosoft DAO 3.xx Object Library وراح يشتغل الكود جعفر

تم اظهارهم بنجاح جعفر

أخي الكريم اذا كان الكود محمي ، فصاحب الكود لديه كلمة السر لفتح الكود ، إلا اذا كنت انت صاحب الكود ونسيت كلمة السر شروط المنتدى لا تسمح بالتعدي على حقوق الملكية الفكرية لصاحب البرنامج. جعفر

أخي ابو الآء برنامجك لا يخفي الجداول المرتبطة ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل جعفر Show_Hide_Tables.zip

أخي ابوخليل على الاكسس 2010 اللي عندي ، ما ظهرت لي اسماء اي جداول: جعفر

وعليكم السلام أخي أبوخليل ولي الشرف ان تمر علينا هنا الكود اللي وضعته انت ، هو بدلا عن (اضغط على اسم الجدول بالفأرة اليمين ، خصائص ، ثم تختار إخفي) ، وطبعا يمكن للمستخدم ان يظهر جميع جداول النظام ، وبالتالي سترى الجداول التي اخفيتها بالكود اعلاه. اما الكود الذي وضعه الاخ أسير الشروق ، فلا يمكن إظهار الجداول إلا بكود آخر ، فإظهار جداول النظام لن يُظهر هذه الجداول جعفر

أخي عبدالعزيز رجاء التجربة ، واذا كان هو اللي تريده ، اخبرني حتى اعمل عليه تعديل اخير وهو: بدل ان نجلب هذا الكم الهائل من البيانات (21690 سجل) الى النموذج ومن ثم تصفيته من النموذج ، فالافضل انه نصفيه من الاستعلام ونوصل الى النموذج الكم المطلوب فقط مع بعض الايضاحات عن كيفية تم العمل جعفر 14.1.البرنامج المميز.mdb.zip

وعليكم السلام أخي الآن اشتغل على موضوعك ان شاء الله جعفر

عفوا أخي ، من انت؟ جعفر

السلام عليكم أخي بعد البحث عن هذا الموضوع ، اتضح انه لا يمكن اخفاء الجداول المرتبطة بهذه الطريقة ، وهذا الرابط الاجنبي يعطي ظل اكثر على الموضوع http://www.utteraccess.com/forum/index.php?s=a6e80171c5960e148b04279d22dfa28f&showtopic=1526084&st=20 جعفر

في هذا الرابط الاخ رمهان يشرح معنى الكود: http://www.officena.net/ib/index.php?showtopic=56917 من مفهوم آخر: استبدل هذا السطر If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then بهذا If Left(tdf.name, 4) <> "msys" Then واستبدل If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then بهذا If Left(tdf.name, 4) <> "msys" Then جعفر

حأقترح حاجة ، بس انت وحظك بدل السطر And tdf.Attributes = 1 Then اكتب And tdf.Attributes = 1 or tdf.Attributes = 6 Then جعفر

عمل ممتاز جعفر

حياك الله أخي ابولآء انا انسان بسيط واحب البساطة ، المسألة جدا سهلة ، خلي الصورة بالحجم المطلوب ، وبالاسم المطلوب ، وكله عال العال ، وبدون أكسس الله يسلمك ، النجار عنده جميع الادوات للاستعمال ، لها السبب فهو لا يستخدم المطرقة لكل اعماله ، لهذا ، انا استخدم الاداة الصح ، للعمل الصح ، وفي الكثير من الاحيان ، هذه الاداة لا تكون برنامج الاكسس أخي ابو حجون نعم ممكن عمل هذا ، ولكنك لم تطلبه ، وانا نفذت بجلدي من الشغل الزائد لكن ، لا انصح بهذه الطريقة ، إلا اذا كانت جميع الصور بالحجم الصحيح جعفر

اخي عبدالعزيز لوسمحت تعطيني مثال ، بالكسل او بالصور ، ولكن اريد مثال للمطلوب جعفر