jjafferr

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

تم دمج الموضوعين

وعليكم السلام هذا مجرد تنسيق تعمله في اعدادات الحقل في النموذج ، وسترى اللي تريده في نموذج اخي وضاح frmSales ، الحقل Percentage_Discount جعفر