jjafferr

اذا كنت بحاجة الى تغيير دائم لهذا المجلد ، فالطريقة الافضل هي عمل جدول خاص ، واعمل فيه سجل واحد فقط ، وهو اسم ومسار المجلد (طبعا يمكنك عمل عدة مسارات و سجل لكل مسار) ، وتعمل نموذج خاص لتغيير هذه القيمة. ثم في جميع الاماكن في برنامجك ، تنادي المسار هكذا: 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

متابع

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

ممكن ولكن بعد ان تقوم بتعديل التالي: لذا، يجب عليك ان تجعل هذا الحقل مرتبط بحقل في الجدول

نعم يؤديان نفس المهمة ، ولكنها ليسا لزيادة السرعة 🙂 البرنامج يستطيع القيام بالمعادلات بشكل سريع ، ولكنك عندما تطلب منه او تسمح له بأن يُظهر/يعرض نتائج هذه المعادلات على الشاشة ، فالعرض يأخذ وقت ، وخصوصا اذا عندك اوامر اعادة عرض البيانات مثلا ، لذا ، بإستخدام الامر Me.Painting = False او DoCmd.Echo False ، فإننا نطلب من البرنامج بعدم إظهار/عرض التغييرات على الشاشة ، وانما إظهار/عرض النتائج النهائية فقط والتي تكون بعد الامر Me.Painting = True او DoCmd.Echo True ، لهذا السبب تلاحظ سرعة في الاداء 🙂 جعفر

بس انت سابقا قلت: . للتعديل: بدل هاي Me.text_1.RowSource = "SELECT " & Me.Head_1 & " FROM Stu_select WHERE stu_code='" & Me.stu_code & "'" استعمل هاي Me.text_1.RowSource = "SELECT " & Me.Head_1 & " FROM Stu_select" . جعفر