jjafferr

1. قد لا يكفيك الاستعلام qry_Calc_Data ، وانما قد تحتاج الى الاستعلام qry_Calc_Data2 او حتى 3 ، حتى لا يعطيك الاكسس خطأ "الاستعلام معقد جدا" ، فقد يجب عليك توزيع الحقول على استعلامين او 3 ، وفي كل استعلام يجب ان يكون عندك الحقل Data_ID ، والذي سنستخدمه لربط الاستعلامات مع بعض ، ومع الجدوا Data . 2. طبعا لا ، لأنه هو الاساس في العمل ، وطريقة العرض ستكون عن طريق الاستعلام ، وذلك بدمج مجموعة استعلامات qry_Calc_Data والجدول Data ، وهذا الاستعلام سيكون مصدر بيانات النموذج او التقرير. 3. علشان تربط بيانات الجدول Data مع بيانات الاستعلام/الاستعلامات ، يجب ان يكون عندك حقل مشترك بينهم ، وبما ان هذا الحقل يأخذ بياناته من الحقل ID في الجدول Data1 ، فعملنا العلاقة بين الجدولين 🙂 جعفر

الطريقة هي: 1. استعلام الحاقي qry_Append حتى تُدخل البيانات في الجدول Data ، 2. ثم تستعمل الاستعلام qry_Calc_Data علشان يعطينا نتائج الحقول المحسوبة 🙂 انا لم اكمل الاستعلام qry_Calc_Data 🙂 جعفر 1218.new.accdb.zip

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

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

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

وانا اتفق معاك 🙂 جعفر

في الواقع ردي انا واخي اشرف متشابهين ، ولكن مختلفين 🙂 طريقتي هي عمل التنسيق في الجدول ، مما يعني ، ان اي استعلام او نموذج او تقرير جديد ، سيأخذ هذا التنسيق من الجدول مباشرة ، وسيُظهر 9 خانات + خانة الصفر اللي على اليسار ، ولكن وكما قلت ، في واقع الامر ، البرنامج يرى 9 خانات فقط. بينما طريقة اخي اشرف ، فيجب ان نضع هذا التنسيق في النموذج ثم في التقرير "يدويا" ، وسيُظهر 9 خانات + خانة الصفر اللي على اليسار ، ولكن في الجدول سيرى 9 خانات فقط. لكل طريقة ميزاتها وعيوبها ، وهنا يجب ان نعطي المستخدم طريقة لا يتلخبط بها 🙂 جعفر

اوووووه زين ذكرتني ان هذا القانون ينطبق حتى في شهر رمضان جعفر

وانا اذا فهمي صحيح ، اعمل حقل Label اسمه R ، واستعمل هذا الكود : Private Sub Form_Current() Me.R.Caption = "Record " & CurrentRecord & " Of " & RecordsetClone.RecordCount & " Records" End Sub جعفر

هممم هذا السؤال صعب الاجابة عليه !! فإذا عملت تصفية للحقل1 ، فعدد السجلات وترتيبها سيختلف من انك اذا عملت تصفية للحقل2 ، واذا عملت تصفية عن طريق الحقلين ، فهذا ترتيب آخر ، واحلاها ، انك بعد ان تعمل كل هذه التصفيات ، تقوم بعمل فرز تصاعدي عن حقل آخر 🙂 جعفر

وعليكم السلام 🙂 ممكن نستخدم الطريقة اللي في الصورة المرفقة ، . ولكن مع التغيير التالي: مجموع علامات الصح Section_A: iif([Section]=-1,1,0) مجموع بدون علامة صح Section_B: iif([Section]=0,1,0) جعفر

واذا اردت ان تعرف سبب الخطأ ، اي لماذا كان يعمل على اكسس 2003 ولم يعمل على اكسس 2016 : جعفر

السلام عليكم 🙂 اذا كان هذا الحقل دائما بحاجة الى صفر على يسار الارقام ، فيمكن ان : 1. في الجدول ، نجعل نوع هذا الحقل "رقم" طويل ، 2. في التنسيق ، تضع اصفار بالعدد الذي تريد "مع الصفر على اليسار" ، فإذا تريد 10 ارقام ، يكون التنسيق: 0000000000 3. الآن ، لما تُدخل الارقام (سواء في الجدول او الاستعلام او النموذج او الكود) ، لا تُدخل الصفر على اليسار ، وانما ادخل التسعة ارقام ، مثل : 503052054 والبرنامج سيُظهر لك : 0503052054 4. ولكن يجب عليك الانتباه ، ان هذا مجرد تنسيق ، والرقم الحقيقي المحفوظ في البرنامج هو التسعة ارقام ، والبرنامج ما يشوف غير هذه التسع ارقام ، لهذا السبب فالصفر الاخير لا وجود له إلا في عرض/اظهار الرقم 🙂 جعفر

السلام عليكم 🙂 ولإثراء موضوع : طلب كود ايقاف حدث فالامر الاقوى والمسيطر والذي يوقف الكود بغض النظر ، هو End 🙂 تقدر تنظر له انه فرملة احتياطية للوقوف الإضطراري ، او موت فُجائيّ للكود ، لأن الكود يتوقف عند الامر ولا ينتقل بعدها للسطر التالي 🙂 وطول سنوات برمجتي ، استعملته مرة واحدة فقط ، في برامج متشعب جدا ، لم اُحسن قفل بعض Objects ، ولم اعرف ايهم بسبب استعجالي ، فاستعملت الامر End وخلص الموضوع (طبعا بعديت اصلحت الكود وازلت الامر) 🙂 رجاء ، لا تستعملوه للبرمجة العادية ، وإنما فقط للحالات الخاصة والمستعصية 🙂 جعفر

ارفق اللي عندك من مشاركلتك الاخيرتين الاثنين ، وخلينا نشوف الصورة كاملة 🙂 جعفر

جرب هاي المرفق ، بعد ان حذفنا المجاميع من الاستعلام الاول 🙂 جعفر 1211.2.No_Match.accdb.zip

وعليكم السلام اخوي احمد 🙂 نأخذ نتيجة الاستعلام السابق ، ونستعمله في استعلام مجاميع جديد : . والنتيجة : . جعفر 1211.1.No_Match.accdb.zip

🙂

1. ادخل في صفحة VBE ، 2. . فتحصل على صفحة جديدة . 3. انسخ الكود من مشاركة اخي ابو تراب ، والصقه في الصفحة ، ثم احفظ الوحدة النمطية باسم مميز مثل mod_ExecuteFile : . 4. والآن من اي حدث ، نادي الوحدة النمطية هكذا : ExecuteFile "C:\Windows\System32\calc.exe" جعفر

نعم هذه مشكلة الاوفيس مع البرامج اللي ما تثق فيها !! جرب البرنامج الآخر : shell("C:\...\...\calc.exe",0) او shell("C:\...\...\calc.exe",vbhidden) وبنفس الطريقة تقدر تجرب المقترحات الاخرى ، مجرد انك تحفظ الكود في وحدة نمطية مستقلة ، ثم تستعمل الكود التالي لعملها : ExecuteFile("C:\...\...\calc.exe",0) او shell_n_wait("C:\...\...\calc.exe",0) جعفر

اسم الملف والمسار يجب ان يكون بين العلامتين "" ، هكذا : application.followhyerlink "C:\...\...\calc.exe" لجميع الاجابات اعلاه ، ومنهم shell و shell_n_wait وووو جعفر

الكود الذي اعطيتك ، والذي اعطاك ابو تراب ، يفتح البرنامج الآخر ولا ينتظر ان يُنهي البرنامج عمله ، وينتقل الطود للسطر التالي ، ولكن وفي بعض الاوقات ، تريد ان تفتح برنامج (او بمعنى اصح ، تريد ان تفتح برنامج ، وتكون قد ارسلت اليه المتغيرات المطلوبة مثل عمل QR Code مثلا) ، وتريد VBE ينتظر انتهاء البرنامج من عمله ، لهذا السبب نستعمل كود مثل Shell_n_Wait : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas بنفس طريقة استعمال Shell او ExecuteFile اللي عرضه اخي ابو تراب ، شوف سطر عمله : جعفر

وعليكم السلام 🙂 اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا: application.followhyperlink strFile جعفر

ابحث في المنتدى ، وسترى الكثير 🙂 جعفر

همممم رجاء الرجوع الى البرنامج الاصل الذي اخذت الكود منه ، فهذه الدوال خاصة بذلك البرنامج ، ولا نعرف عنها شيء 🙂 لأني شايف دالة IsNoPath كذلك 🙄 جعفر