jjafferr

وعليكم السلام 🙂 وانا ادلو بدلوي : DoCmd.OpenForm "frm_03" Forms!frm_03!Id.SetFocus 'لست بحاجة الى هذا السطر DoCmd.FindRecord Me.Id, , , , , , True . الطريقة : كأنك فتحت النموذج الآخر وعملت Ctl+F ، فعندك جميع الاعدادات في نافذة البحث ، في السطر الاخير من الكود 🙂 جعفر

انت تريد ان تخفي كائن/كائنات في النموذج ، لذا ، يجب ان تجعل التركيز على كائن/حقل/زر آخر ، ثم يمكنك ان تجعل الكائن مخفي 🙂 وبعض الاوقات ما تهمك رسالة الخطأ ، لأن الفأرة تكون على جميع انواع الكائنات ، فالنموذج عندك يعمل بطريقة صحيحة ، ولا تريد هذه الرسالة ، لذا يجب ان تصطاد هذه الرسالة ، وتخبر الكود بالمواصلة ، شيء من هذا القبيل: Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error GoTo err_Form_MouseMove '... 'the code '... Exit_Form_MouseMove: Exit Sub err_Form_MouseMove: If Err.Number = 2165 Then 'ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Form_MouseMove End If End Sub جعفر

بدل العلاقة بين الجدولين ، انا عملت العلاقة بين النموذج الرئيسي والفرعي ، ولكن ، تفضل . واضفت حقل لتسلسل العائلة/الاطفال . . في النموذج الفرعي ، ولما تكتب اسم من اسماء افراد العائلة ، وعند حدث "بعد التحديث" ، يحصل الاسم على الرقم التلقائي التالي ، بهذا الكود: Private Sub الاسم_AfterUpdate() 'Get the Next Seq number for this child Me.Childern_ID = Nz(DMax("[Childern_ID]", "tb2", "[Father_ID]=" & Me.Parent!id), 0) + 1 End Sub جعفر 1433.test.accdb.zip

السلام عليكم 🙂 . . . جعفر 1433.test.accdb.zip

الافضل ان ترى امثلة ، ولاحقا ضع سؤالك 🙂 : . . . . جعفر

وعليكم السلام 🙂 حسب علمي ، هناك 3 ساعات ممكن استعمالها: 1. ساعة الكمبيوتر ، 2. ساعة كمبيوتر آخر في الشبكة ، مثل ساعة السيرفر : . . 3. وساعة الانترنت ، واللي لازم تكون مرتبط بالانترنت علشان تحصل على الوقت : اخذ الجزء المطلوب من المرفق من هنا: جعفر

السلام عليكم 🙂 هذا الموضوع فيه الكثير من النصائح ، مع اخوي @kha9009lid : . الاستعلام هو العمود الفقري لقواعد البيانات 🙂 ولكل حالة وضعها ، فقد تحتاج الى مجموعة استعلامات لكي توصل لطلبك ، ولكن الاستعلام الفرعي يعمل عجائب وغرائب 🙂 . . هذا شيء طبيعي في كل شيء في حياتنا 🙂 البرنامج الذي ذكرته اعلاه ، وبعد خدمة 8 سنوات ، تم استبداله ببرنامج جديد من عائلة Net. ، وهو يفتقر الى احد ابسط الامور الموجودة في الاكسس ، بالنقر اليمين على الحقل يمكنك عمل فرز وتصفية بعدة طرق ، اعتمادا على نوع الحقل ، ويأتي هذا مجانا مع اكسس وبدون برمجة (وانا اتاسف لما اجد بعض المبرمجين يلغون هذه الخاصية من برامجهم) ، بينما في برامج Net. ، فأنت تتكلم عن برمجة خاصة لهذا العمل ، ولن يصل لمستوى الاكسس ، لأنهم لا يستطيعون عمله بالنقر على زر الفأرة اليمين ، وانما عن طريق حقول وازرار 🙂 اما جعل كائنات النموذج تتفاعل مع حجم النموذج او الشاشة resposive ، والذي يقوم به HTML ، فهذا ذو اهمية لبعض الناس (انا ما احتجت لها الى الآن) ، فالحمدلله ، الاكسس يمكنه استخدام HTML ، ولكن اذا عكسنا السؤال ، فهل برمجة HTML فيها قواعد بيانات !! في نهاية الامر الاكسس مجرد برنامج ، فيه ميزات وعيوب ، ويجب ان نقبل هذا 🙂 جعفر

وعليكم السلام 🙂 على زر تنفيذ الامر ، استعمل هذا الكود: docmd.setwarnings false docmd.openquery "اسم الاستعلام" docmd.setwarnings true جعفر

وعليكم السلام 🙂 ولإضافة اكثر من شرط في جملة الاستعلام ، وبسهولة: جعفر

وعليكم السلام 🙂 هذه المشكلة حدثت بسبب تحديث للوندوز وعمل مشكلة مع الاكسس: https://support.microsoft.com/en-us/office/error-in-access-when-opening-a-database-on-a-network-file-share-6cbc1560-62c2-46e7-9980-d079a46f5acc . . وهناك تحديث بتاريخ 2021-12-16 والمفروض ان يحل المشكلة ، ولكنه قد يأخذ بعض الوقت حتى يصلك !! فعليه ، يمكنك انزال التحديث مباشرة من موقع مايكروسوفت ، حسب نسخة الاكسس التي تملكها ، وقم بتحديث جميع الكمبيوترات ، الواجهة والجداول ، ثم قم بإعادة تشغيل الجهاز : https://docs.microsoft.com/en-us/officeupdates/office-updates-msi جعفر

هذه امثله لأخوي @أبو إبراهيم الغامدي باستخدام 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-إعلانات-شخصية-بأجر-للاعضاء/ جعفر

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

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