jjafferr

انا عملت لك الوحدة النمطية في تقريرك ، ونتيجة عمل الوحدة النمطية تشوفها في الحقل Me.iTime في المرفق في مشاركتي السابقة.

الاكسس يعمل بهذه الطريقة حياك الله اخي محمد جعفر

السلام عليكم هذا الرابط به جواب على سؤال البطء: . هذا التفكير غير صحيح ، حيث انك تضع الكود مرة واحدة في برنامجك ، بغض النظر عن طوله ، انا استخدم هذه الوحدة النمطية في جميع برامجي ، لربط الواجهة مع الجداول ، وطولها 1000 سطر : . بالاضافة الى المكتبات الاخرى جعفر

السلام عليكم أخي وضاح ومرشد ارجو تستفيدوا من هذا الرابط: جعفر

السلام عليكم بعض الاوقات نحتاج عمل معادلة/كود لحقل ما في نموذج/تقرير ، فلاحظت بعض المبرمجين يضع الكود في مصدر بيانات الحقل في النموذج ، مما يسبب ان ينفتح النموذج ، وبعد لحظات نرى نتيجة المعادلة في الحقل (اي ان نتيجة المعادلة لا تظهر بفتح النموذج) ، بينما لو انهم وضعوا هذه المعادلة في اي من الاحداث السابقة التي يقوم بها النموذج ، لوجدوا نتيجة المعادلة جاهزة مع فتح النموذج. عليه ، رأيت ان اضع بين يديكم تجربة لمعرفة تسلسل الاحداث في النموذج ، ومتى يقوم النموذج بعمل معادلة الحقل. يمكن ان نرى تسلسل احداث اي عمل في الاكسس ، من رابط المايكروسوفت هذا : https://support.office.com/en-us/article/Order-of-events-for-database-objects-e76fbbfe-6180-4a52-8787-ce86553682f9 النموذج ، وبه نموذج فرعي ، ونرى ان النموذج الرئيسي به معادلة ادخال رقم عن طريق InputBox ، والنموذج الفرعي كذلك ، ولكن لحرف ، ونرى اني عملت كود خلف جميع الاحداث في النموذجين الرئيسي والفرعي . . وهذا شكل الكود . هذه البيانات في الجدول ، مصدر النموذج الفرعي . وهذه كائنات البرنامج ، حيث يأخذ النموذج الرئيسي بياناته من الاستعلام qry_Names . وهنا نرى تسلسل الاحداث: . هذا معناه ، انه المعادلة يمكن عملها في اي من التسلسل التالي (كل حدث يستطيع اخذ بياناته من الحدث الذي يسبقه) : في الاستعلام مصدر البيانات > حدث فتح النموذج > حدث تحميل النموذج > حدث تغيير حجم النموذج > حدث الحالي > في مصدر بيانات الحقل. جعفر Order_of_Events.mdb.zip

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

وعليكم السلام انا اعرف انك ما تريد هذا الجواب ، لكن مافي جواب ثاني انا اعرفه للذي تريده ، استعمل السطرين القبل الاخير في حدث قبل التحديث لحقل الخصم: MsgBox " اعـلـى درجـة خـصـم الـمسـمـح لـهـذا الـمـسـتـخـدم هـو " & " ( " & Me.n1 * DrXes & " ) ", , " لــيــس لــديــك صــلا حــيــة بـالخــصـم اكـثـر " ', , vbOKOnly, "وضــاح الـنـوبـه : الصــــلاحيــات " Cancel = True Me.Alhasm.Undo Else جعفر 804.التركيز.mdb.zip

شكرا اخوي حربي ، انت الآن تأكد ان الرابط ينطبق على طلبك ، حاول فيه ، تراه مو صعب ، ولما تعلق معاك القضيه ، نكون في خدمتك ان شاء الله جعفر

طيب ، ونتائج البحث وين تطلع؟ في النموذج الفرعي ، صح؟ اذن المثال في الرابط ينطبق على طلبك 100%

تم تعديل Forms!form!qn الى Forms!vill!qn ولم اجد في الكود اي شيء يقوم بتغييره ، كما وضعت Call qn_AfterUpdate في الحدث "الحالي" ، وجربت اضافة صورة ، ولم تحدث مشكلة. ولم افهم قصدك عن text ، فالرجاء توضيح طلبك بمثال من نماذجك وجداولك جعفر 798.1.Lastvery.mdb.zip

والله يا اخوي علي ، اخوي mohammad awawdeh اعطاك طريقة الحصول على التنبيه ، وانا اعطيتك طريقة اظهار الرسالة في المكان اللي تريده ، فاجمع بينهم ، وتحصل على اللي تريده جعفر

أخي هشام ، تسلم ايدك شكرا على هذا المجهود ، ولكن احد اهم النقاط في البرنامج ، هو النقطة رقم 4 ، وهو عمل ورقة/sheet جديدة لكل جدول/استعلام كما اني احبذ ان تجعل رابط تنزيل البرنامج من هذا الموضوع شكرا لك مرة اخرى جعفر

شكرا

وعليكم السلام تفضل هذه طريقة جعفر

وعليكم السلام تفضل ، هذا الرابط يعطيك مرفق يعمل المطلوب https://www.access-programmers.co.uk/forums/attachment.php?attachmentid=66936&d=1500895234 ولكني لا اعرف عنه شيء ، ولا جربته ، يعني ما اقدر ارد على استفساراتك لاحقا جعفر

وعليكم السلام ارفق لي هنا هذه الجزئية فقط من برنامجك ، واخبرني بالتفصيل كيف اوصل للخطأ الذي تتكلم عنه. جعفر

حياك الله نعم ، استعمل السطر الاخير ، ولكنه 3 مرات ابطأ من الكود الاصل. جعفر

وعليكم السلام في احد الاوقات ، النهاية قبل البداية ، فيجب مراجعته (انا عدلت عليه في القاعدة المرفقة) اولا نحسب فارق الوقت بالدقائق . ثم في التقرير ، عندنا حلقين للنتائج (لأنك قد تختار الاقصر): Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) 'الطريقة المفضلة Total_Miutes = DSum("[Minutes]", "qry_CT") H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.iTime = H & ":" & M 'الطريقة اعلاه في سطر واحد ، وهي ابطأ Me.iT2 = Int(DSum("[Minutes]", "qry_CT") / 60) & ":" & Round(((DSum("[Minutes]", "qry_CT") / 60) - Int(DSum("[Minutes]", "qry_CT") / 60)) * 60) End Sub جعفر 800.حساب فترات الوقت.accdb.zip

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

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

السلام عليكم ما شاء الله وبارك الله فيك ، تابعت جزء من الفيديو ، ويبدو ان عمل جميل نحس بالفخر لما نشوف مساعدة الاعضاء تُترجم الى مثل هذا العمل جعفر

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

وعليكم السلام اخي الفاضل ، عنوان موضوعك مخالف لقوانين المنتدى ، لذا يرجى مراعاة: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف اما ردا على سؤالك ، فاعدادات الوندوز عندك يجب تضبيطها ، هكذا جعفر