Foksh

أخي الكريم من غير مرفق قد يواجه من يحاول مساعدتك مشاكل في تصور وتخيل اسماء الحقول والجداول ...... الخ فمثلاً ، ما هو ( 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

عندك شرط Is Null في الاستعلام مصدر بيانات التقرير . وعدي الجملة في الايتعلام ألى التالي :- <> "Approved" and <> "Closed"

🤗

قد يكون ردي متأخراً ، واعتذر عن عدم المتابعة مني ومن صاحب الموضوع ، ولكن أعتقد افضل طريقة ولضمان عدم تلف العلاقات بين الجداول هو استيراد البيانات من الجدول المحدد وليس استيراد الجدول كاملا استناداً وتأييداً لكلامي أستاذنا @kanory . هذه نقطة ، والثانية هي مجرد فكرة خطرت ببالي من فكرة النسخ الإحتياطي للجداول واستعادة النسخة ، قد نستطيع فيما بعد بتوظيف الفكرة هذه لعمل استيراد للجداول حتى لو كانت مرتبطة بعلاقة 😅 هذه الجداول شكلها بنت عالم وناس 😂🤪

تفضل أخي الكريم محاولتي ، New Microsoft Access Database (1).accdb

أخي الكريم إليك تجربتي الشخصية . اذهب إلى محرر أوامر الـ VBA ، واضغط Ctrl+G . اكتب هذه الأوامر واحداً تلو الآخر في الجزء السفلي الذي ظهر معك بعد النقطة السابقة . CommandBars("Property Sheet").Enabled = True ثم CommandBars("Property Sheet").Top = 0 ثم CommandBars("Property Sheet").Left = 0 وأعلمني بالنتيجة

هذا هو ما أبحث عنه يا أستاذ @Moosak نقاط الضعف من وجهة نظر مستخدمين آخرين غيري جزاك الله كل الخير ، جاري العمل على تغييرات وإضافات إن شاء الله أن ترقى للمستوى المطلوب .