jjafferr

هذه امثله لأخوي @أبو إبراهيم الغامدي باستخدام HTML . ولكي تستفيد منه افضل ، يجب ان تدمجه مع . و . . واعتقد تقدر تستخدم Microsoft Forms 2.0 images ActiveX لعمل هذا ، ولكني لم استطع التوصل الى مثال!! جعفر

وعليكم السلام 🙂 انا فصلت هذه المشاركة عن الموضوع الذي كان فيه ، حتى يتم النقاش هنا🙂 هذه النقاط جميعا تتمركز حول طريقة عمل البرنامج 🙂 برنامج عملته انا ، في الشبكة ، كان يعمل عليه 10-15 شخص وبكثافة ، بين ادخال بيانات الموظفين وبحث وارشفة ، اكثر من 1,613,000 سجل ، الكائنات: 31 جدول ، 200 استعلام ، 67 نموذج ، 29 تقرير ، اكثر من 4100 سطر كود ولا يشمل مكتبات الوندوز ، ويتحكم في حفظ وإظهار صور بحجم حوالي 3 تيرا بايت في حوالي 10 الاف مجلد ، ولم يكن فيه بطئ ولا تهنيج ولا يتطلب ضغط واصلاح 🙂 خذها قاعدة: النسخة الاولى من البرنامج لا تكون الافضل ، لذا يجب عمل النسخة التالية والتي ستكون افضل بكثير من النسخة الاولى 🙂 واحد اهم اسباب بطئ البرنامج ، هو عدم وجود فهرسة للحقول التي بها معايير 🙂 جعفر

في النموذج ، ممكن ان تعمل Listbox ، ثم تختار منها الرتب التي تريدها ، ثم تعمل حلقة دوران لهذه القيم ، وتضعها في استعلام في الكود 🙂 جعفر

تفضل 🙂 اصبح جدولك: . وعلشان تنادي مسار التذاكر ، استخدم: Project_path = DLookup("[Folder_Path]", "tbl_msar_folder", "[Auto_ID]=1") جعفر 1432.1.الارشيف.accdb.zip

اذا كنت بحاجة الى تغيير دائم لهذا المجلد ، فالطريقة الافضل هي عمل جدول خاص ، واعمل فيه سجل واحد فقط ، وهو اسم ومسار المجلد (طبعا يمكنك عمل عدة مسارات و سجل لكل مسار) ، وتعمل نموذج خاص لتغيير هذه القيمة. ثم في جميع الاماكن في برنامجك ، تنادي المسار هكذا: Project_path = dlookup("[myScan_Path]","tbl_myScan","[ID]=1") جعفر

جرب هذه الخطوات: 1. لما تخفي الازرار ، اجعل طولها صفر كذلك ، ولما تظهرها اعطها الطول ، 2. اجعل الكود يخفي ويظهر خانات هذا العمود فقط ، وليس بقية الاعمدة كذلك ، 3. احذف المربعات الفارغة في اسفل عمود الازرار ، 4. قد تضطر الى تفكيك الاعمدة ، فتجعل كل عمود في مجموعة واحدة 🙂 جعفر

وعليكم السلام 🙂 اعمل هذا التعديل: بدل هذا السطر Project_path = Application.CodeProject.Path استعمل شيء من هذا القبيل Project_path = "\\DB_on_Server" بحيث \\DB_on_Server هو مسار حفظ البيانات على السيرفر او مجلد المشاركة جعفر

العفو اخوي احمد ، ملاحظتي كانت للتوضيح فقط ، وليس للتأنيب 🙂 جعفر

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

اخي احمد 🙂 هذا ثاني سؤال تضعه ، واخي ابو عبدالله يرد عليه بالطريقة الصحيحة 🙂 اذا لأي سبب ما قادر تحصل على الاجابة الصحيحة ، فرجاء ارفاق مرفق فيه بيانات كافية حتى يتم التعديل عليه 🙂 جعفر

عملك صحيح ، وعلشان تشغل استعلام الالحاق Appendfrom ويدون رسائل ، استعمل هذا الكود على حدث "عند النقر" في زر في النموذج: docmd.setwarnings false docmd.openquery "Appendfrom" docmd.setwarnings true جعفر

وعليكم السلام 🙂 اسهل طريقة هي: في الجدول: StoreTransaction الحقل: SerialTransfaerfrom ، اجعله مفهرس وغير قابل للتكرار. لن يسمح الاكسس بتكرار بيانات هذا الحقل 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة اذا اردتي المساعدة في عمل برنامجك اعلاه ، فيجب عليك ارفاق ما قمتي به ، واخبارنا عن الاماكن التي تعانين مشكلة فيها ، حتى يستطيع الاعضاء مساعدتك ، ولكن تذكري ، من شروط المنتدى وضع سؤال واحد في كل موضوع ، ويمكنك فتح مواضيع اخرى لكل سؤال 🙂 اما اذا اردتي ان يقوم احد الاعضاء بعمل برنامجك بمقابل ، فرجاء كتابة الطلب هنا: https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/ جعفر

الله ان شاء الله يسهل عليك 🙂 في الانتظار ان شاء الله ، وبمواضيع مستقله لوسمحت 🙂 جعفر

وعليكم السلام 🙂 تفضل جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى ، وللإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة التقرير له فرز Sort خاص به: . . جعفر

وعليكم السلام 🙂 الاكسس عنده ماكنة خاصة للملصقات ، يا بالإسم العالمي للملصق ، او اعمل واحد خاص بك بإستخدام زر Customixe: . . جعفر

ما شاء الله ، واقعا هذه اشياء جديدة علينا ، وفي انتظارها على احر من الجمر 🙂 اخي كريم ، نحن الآن في انتظار المادة #2 و #3 🙂 جعفر

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

حياك الله 🙂

من هنا ، في اعلى الصفحة

وعليكم السلام 🙂 اخي الفاضل ، ياريت تتوسع في شرحك بالتفصيل ، فكلما كان شرحك افضل وبمثال ، لوجدت الردود تكون اسرع ، ولكن لما اسؤال يكون مبهم ، فيتباطئ الاعضاء في الرد وينتقلون لموضوع آخر !! اذا كان سؤالك: ما هي طريقة اخفاء كلمة "Microsoft Access" من رسالة التنبيه هذه: . فالجواب ، انظر الى هذا المثال: . في الرابط: . جعفر

وعليكم السلام 🙂 ارسلت لك رسالة على الخاص بهذا الخصوص ، بس الظاهر انك ما قرأت الرسالة الى الآن 🙂 جعفر

السلام عليكم 🙂 1. تم عمل الحقل text_1 في الجدول ، 2. في النموذج ، تم تحويل حقل text_1 الى حقل نص عادي ، 3. لما تختار من القائمة Head_1 ، تظهر لك رسالة تطلب منك التأكيد على ملئ بيانات الحقل text_1 ببيانات الحقل Head_1 ، . وهذا هو كود تعبئة البيانات: Private Sub Head_1_AfterUpdate() Dim Msg, Style, Title, Response Msg = "ستقوم بتعبأة الحقل" & vbCrLf & _ " text_1 " & vbCrLf & _ "ببيانات الطالب من الحقل" & vbCrLf & vbCrLf & _ Me.Head_1 & " < " & Me.Head_1.Column(1) Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "هل انت متأكد" ' Define title. Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. DoCmd.SetWarnings False mySQL = "UPDATE Stu_select SET text_1 = " & [Forms]![تلاميذ محددين]![Head_1] mySQL = mySQL & " WHERE perm3=True" DoCmd.RunSQL mySQL DoCmd.SetWarnings True Me.Requery End If End Sub جعفر 1425.تحديد عناصر قائمة منسدلة وربطها بأخري.accdb.zip

متابع