Eng.Qassim

في النموذج لديك مربع نص مرتبط وفي تلك الحالة لن يعمل الكود فأما ان يتم تفريغ مربعات النص من داخل زر الحفظ واما تغيير مربع نص (مسلسل المعرف) الى كومبو بوكس لكن في هذه الحالة لن يظهر لك رقم المعرف وانت لاتحتاجه فهو رقم تلقائي ويمكن اخفاءه DatabaseB.accdb

@bumbاعتقد سببه انه لديك مربع نص منظم

احسنت اخي ..لكن لايحتاج الى استدعاء ان كان لديه نموذج واحد اما ان كان لديه عدة نماذج ويريد تنظيفها فيحتاج الى فنكشن واستدعاء

اعمل زر خاص لها للتنظيف

اعملها مع تحميل النموذج On load Form

وعليكم السلام اخي الكريم لايوجد برنامج جاهز ..حاول عمل ملفك الخاص ثم اطرح ماتشاء من اسئلة

انظر للمرفق عسى ان ينفعك Database - Copie_Q.accdb

انظر للمرفق عملته على عجالة فقط لتصل الفكرة عملت نموذج على برنامج الاستاذ خليل..وحين ادخال سنة احتساب الاندثار حسب طلبك ستظهر لديك قيمة الاندثار لكل سنة ومجموعها لغاية السنة التي اخترتها اهلاك.accdb

j = DateDiff("mm", rs1!FirstDate, rs1!LastDate) اذا كنت مطلعا على برنامج الاستاذ خليل فأستخدم الدالة ادناه بدل دالة الفرق في السنوات جربها على برنامجك علما ان بعض الاكواد سوف لن تكون ضرورية j = DateDiff("mm", rs1!FirstDate, rs1!LastDate)

اعتقد هذا ماتبحث عنه .. وهو مهم جدا لكل مبرمج مهتم بالمحاسبة

اتذكر هكذا موضوع للاستاذ @ابوخليلبعنوان اهلاك الاصول الثابتة

قد اغفلتنا امور الدنيا مما لايمكن ان نغفل عنه .. تهنئه لكم احبتي مشرفي الموقع والاساتذه الخبراء واعضاء المنتدى كل عام وانتم بخير .. ويجعلكم جميعا على خطى رسول الله صلى الله عليه واله وسلم

السلام عليكم استاذي @د.كاف يارمالذي سنستفيده من هذه الدالة فهي اعادت لنا التاريخ بين هاشتاك؟ هل ستعتبر لرقم في هذه الحالة

عفارم عليك استاذ محمد أبو عبدالله.عمل جميل لكني اتساءل مالفائدة من هذا العمل؟ فاذا كان القصد هو اختيار الاصناف من مربع التحرير فكيف سنعمل قائمة جديدة ؟

الظاهر انها كانت للاعلى ولم انسخها هههههه اعتذر جدا

هل تقصد جمع الحقل بشرط التواريخ جرب المرفق Calc_Q.accdb

السلام عليكم..استخدم هذا الكود في استعلام ليحول لك التاريخ الى رقم Format$([DateField];"yyyymmdd")

شكرا استاذ محمد أبو عبدالله لكن هناك نقص Dim strFolderPath As String

شكرا @د.كاف يارلكن هل يمكن مسح القديمة؟

استاذ محمد اي نسخة لديك من اوفيس وفتحت عندك؟

لدي اوفيس 2013 والوندوز والافيس 64 بت .. ولم يفتح عندي .. الضاهر انه على اوفيس احدث من 2013

السلام عليكم استاذ @عمر ضاحىمن المعلوم ان الموظف حين منحه اجازة معينة يجب ان يكون هناك تاريخ لنهاية الاجازة اي ان هذا الحقل يجب ان يكون فيه تاريخ لان النموذج خاص للاجازات حتى نتمكن من المقارنه في حالة مباشرته بعد تاريخ نهاية الاجازة بيعتبر غائب جرب الكود التالي رغم انه يحتاج اضافات لمعرفة عدد ايام الغياب .. قم بوضعه حين النقر على زر او في حدث النموذج الحالي If Me.txtDateBack = Me.txtDateEnd Then Me.txtstatVacation = "يعمل" If Me.txtDateBack > Me.txtDateEnd Then Me.txtstatVacation = "غياب" If Date < Me.txtDateEnd Then Me.txtstatVacation = "مجاز"

مشاركة مع استاذي @د.كاف ياروهي لاخفاء الجداول عند المستخدم بوضع الكود التالي حين فتح النموذ الرئيسي عند المستخدم Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs tdf.Attributes = acHidden Next tdf ولاعادة اضهار الجداول تستخدم acNormal بدلا من acHidden

حينما تقسم القاعدة وتعمل لها share مع عدد من الاجهزة تقوم بعمل نموذج خاص بالشفت لقاعدة BE الخاصة بالجداوال وكذلك تعمل نموذج للشفت لقاعدة بقية المستخدمين FEحتى لايتمكن احدهم من الدخول للقاعدة

استاذنا @الحلبيالمهم مشاركاتك القيمة التي ننتفع منها لكن لدي سؤال خارج الموضوع ... ماعلاقة (الحلبي ) بمصر ؟ احترامي الكبير لكل اوطاننا