Foksh

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

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

يا 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

يوجد جملة شرطية ليس لها نهاية بتوضيح أكثر ، عندك كود If ولم يتم إنهاء حدوده بالعبارة End If

تم تحديث ملفات الروابط وإصلاح بعض الأخطاء ، والتعديل لبعض الملاحظات ...... ما زلنا قيد التطوير

مشاركة مع أستاذي الكبير @ابوخليل ، تفضل أخي الكريم @moho58 ، مشاركتي المتواضعة baseF.accdb

لا اعتقد اني فهمتك بشكل صحيح ولكن جرب التعديل التالي . Datab.accdb

محاولة مني جرب هذا الكود تعديلا على مشاركتك الأولى . strSQL = "UPDATE Test SET crn = '" & cityCode & "' & LEFT(crn, LEN(crn)-2) & '00';" DoCmd.RunSQL strSQL