Foksh

مشاركة الأستاذ @ابوخليل كانت بنفس الفكرة التي ترغب بها ، يبدو أنك لم تنتبه للسطر 🤗 mytxt = rs!HRA حيث HRA هو اسم الحقل في الجدول .

سنشرح الفكرة والأكواد .. بداية قمت بإنشاء متغيرين في أول الأكواد ، هما :- Private Const TimeoutMinutes As Integer = 1 قمت بإنشاء متغير ثابت ( Const ) يسمى ( TimeoutMinutes ) ، ويتم تعيين قيمته إلى 1 تعبيراً عن دقيقة واحدة. ( وطبعاً تستطيع تغييره كما تريد ) سنستخدم هذا المتغير لتحديد المدة الزمنية (بالدقائق) التي يجب أن يمر ولا توجد فيها حركة للماوس حتى يتم اعتبار النموذج في وضع الخمول . Private LastMouseMoveTime As Date هنا سنقوم بإنشاء متغير خاص (Private) يسمى ( LastMouseMoveTime ) ويتم تحديده كنوع ( Date ) لأنه سيتم تخزين قيمة بصيغة وقت . يُستخدم هذا المتغير لتخزين الوقت الأخير الذي حدثت فيه حركة الماوس على النموذج. الآن بدأت في حدث عند التحميل لتثبيت قيمتين ، هما :- أولاً المتغير الخاص لتكون قيمته كمتغير الوقت الذي تم فتح النموذج فيه LastMouseMoveTime = Now ثانياً قمت بتشغيل الأمر كل دقيقة بالسطر التالي Me.TimerInterval = 60000 وفي حدث تحريك الماوس ، قمت بجعله يأخذ قيمة الوقت الحالي مرة أخرى كحدث عند التحميل LastMouseMoveTime = Now وفي حدث الوقت سيتم التحقق من أن الماوس لم يتم تحريكه منذ آخر قيمة تم تسجيلها في المتغير آخر حركة للماوس سابقاً ، بالكود التالي تخطي الخطأ لأنه سيتقوم بمهمة تغيير في النموذج عند مرور الوقت ، فوجب تلافي الخطأ لأنه لن يؤثر على النموذج On Error Resume Next سيتم التحقق من آخر مدة زمنية لتحريك الماوس ما إذا تخطيناها أم لا. If Now - LastMouseMoveTime > TimeValue("00:00:" & TimeoutMinutes * 60) Then اذا تحقق الشرط وكان الوقت المسجل في المتغير أقل بدقيقة من الوقت الحالي فستظهر رسالة ولك حرية حذفها بالمهمة التي تريدها . MsgBox "تم تسجيل الخروج بسبب عدم تحريك الماوس", vbInformation بعد الرسالة سيتم اغلاق آكسيس . طبعاً تستطيع هنا أن تعدل الأحداث كما ترغب . DoCmd.Quit End If

وهذه مشاركتي البسيطة مع الأستاذ خليفة Sleep Mode.accdb

وضح هذه الجزئية ، وان شاء الله يوجد امكانيات

أشكرك على مرورك وكلامك الطيب 🥰 ولك بالمثل من دعائكم 🤲

تفضل اخي الكريم @حسين العربى تم إضافة كود بسيط يجعل الدالة في المديول تطبق نفسها على جميع العناصر التي من النوع TextBox في الحدث عند التحميل للتقرير باستخدام هذا الكود :- Private Sub Form_Load() Dim ctl As Control For Each ctl In Me.Controls If TypeOf ctl Is TextBox Then Call getTextPrts (ctl) End If Next ctl End Sub وفي المديول تم إيقاف السطر التالي mytxt = rs!HRA ليتم التطبيق على جميع الحقول. ، طبعاً تستطيع تطبيق نفس الفكرة على جميع النماذج والتقارير لديك. وهذا الملف مع التعديلات 🤗 color All.accdb

اخي بشار ، وصلت فكرتك .

اخي الكريم ، عضويتك تسمح لك بارسال رسالة ، فيا حبذا تعديل مشاركتك بالغاء رقم الهاتف حتى لا يتعرض الموضوع للإغلاق 😊

يا Bshar 😂 في اول مشاركة كانت الحقول باسماء مختلفة ، وتم انشاء الكود بناءً على المعطيات ، وفي التعديل الأخير الفكرة مختلفة تماماً. على العموم ، أكد لي ما فهمته قبل ما أروح لفكرة السجل ١٨ !!!!!! no_a و no_p و no_c كيف سنحدد رمز التفعيل ؟ على أي أساس نريد انشاء كود البحث !! هذه النقطة وضحها اولاً معلش استيعابي صباحاً يكون محدود وما أفكر غير بالفطور أولاً 🤣

تفضل هذا التعديل الصحيح chartofaccounts.accdb

ما الفكرة التي تدور في رأسك 😅 اشرح بوضوح حتى نطبق افكارك على الملف.

انشىء استعلام مبني على الجدول . قم باختيار الحقول التي تريد عرضها في النتيجة. حدد شرط عند اسم العامل أو رقمه الوظيفي ( حسب حاجتك ) في حقل التاريخ ضع الشرط التالي ، حيث FF1 تمثل التاريخ الأول ( من ) ، و FF2 تمثل التاريخ الثاني ( ألى ) BETWEEN [FF1] AND [FF2] وفي التقرير اجعل مصدر بياناته الاستعلام الذي انشأته 😅

أخي الكريم من غير مرفق قد يواجه من يحاول مساعدتك مشاكل في تصور وتخيل اسماء الحقول والجداول ...... الخ فمثلاً ، ما هو ( delete account_no ) على العموم جرب هذا التعديل ، و أخبرني بالنتيجة Private Sub btnDeleteAccount_Click() Dim accountNo As String accountNo = Forms![chart_of_account]![account_no] If DCount("account_no", "entery_tbl", "[account_no]='" & accountNo & "'") = 0 Then DoCmd.RunSQL "DELETE FROM [chart_of_account] WHERE [account_no]='" & accountNo & "'" MsgBox "تم حذف الحساب بنجاح." Else Docmd.CancelEvent MsgBox "لا يمكن حذف الحساب لوجود حركة عليه." End If End Sub

أخي الغالي @حسين العربى . تفضل بزيارة هذه المشاركة لمعلمنا @ابوخليل في هذه المشاركة

على العموم الحمد لله انك لقيتي الحل . وفي المرات القادمة حاولي إرسال مرفق أختنا الكريمة حتى يتضح للمشاركين المشكلة وإيجاد الحل المناسب

اين هو المرفق يا صديقي خلاص لقيته ، تفضل مادة مكررة.accdb

أيضاً هذه فكرة أخرى للأستفادة من الحقل Numbr في جدولك ، بحيث تكون قيمته هي المدة التجريبية التي بناءً على الفرق ( بعدد الأشهر ) سيتم اغلاق النموذج . Sub AutoCloseFormAfterDuration() Dim tableName As String Dim fieldName As String Dim dateFieldName As String Dim durationInMonths As Variant Dim recordValue As Variant Dim currentDate As Date Dim recordDate As Date Dim diffInMonths As Integer tableName = "table1" fieldName = "numbr" dateFieldName = "datss" durationInMonths = Nz(DLookup(fieldName, tableName), 0) If IsNumeric(durationInMonths) Then recordValue = DLookup(dateFieldName, tableName) If Not IsNull(recordValue) Then currentDate = Date recordDate = DLookup(dateFieldName, tableName) diffInMonths = DateDiff("m", recordDate, currentDate) If diffInMonths > durationInMonths Then MsgBox "انتهت الفترة التجريبية", vbExclamation, "تحذير" DoCmd.Close acForm, Me.Name End If End If End If End Sub

أخي الكريم تفضل طلبك بطريقتي Test Foksh.accdb

أختي الكريمة ، إذا كنتي تستخدمي الـ VBA لكتابة السطر السابق فيفترض أن يكون الكود كالتالي :- BB = FormatNumber([Forms]![frm_enter]![txt_muk_type], 0)

مشكور على الهدية أخي الكريم ، وزادك الله من فضله وكرمه وجوده وعلمه 💐 DoCmd.GoToRecord , , acNewRec

هل لديك برنامج Acrobat Reader ؟؟

اخي الكريم ، المشكلة الأولى لم ألحظ وجودها ، فقط عليك ادراج البيانات في جميع الحقول في النماذج الفرعية. المشكلة الثانية حسب ما فهمت هو بسبب الربط بين النموذج الرئيسي والفرعي الأول. جرب هذا التعديل للمشكلة الثانية Database2 (1).accdb

تفضل اخي الكريم . 12345.accdb

نعم تستطيع ذلك اخي @imad2024 ما لم تلق الإجابة من أحد الأخوة ، سأزودك بنموذج من برنامجي لأرشفة الكتب الإلكتروني ، حالما أصل للبيت بإذن الله تعالى 😊 طبعاً لعرض الكتب داخل النموذج يلزمك أن يكون لديك أحد برامج عرض ملفات الـ PDF كأكروبات ريدر أو خلافه .

Private Sub Form_BeforeUpdate(Cancel As Integer) If IsNull(Me.P_Odate) Then MsgBox "الرجاء إدخال تاريخ البدء", vbExclamation, "" Cancel = True ElseIf IsNull(Me.exbict) Then MsgBox "الرجاء إدخال تاريخ الانتهاء", vbExclamation, "" Cancel = True End If End Sub