د.كاف يار

جرب هذي =Sum([iAmount])-[Sum_Amounts]

هاتف المرفق يابو الحسن =Sum([iAmount])-[Sum_Amounts]

استخدم هذا الكود Application.FollowHyperlink "مسار المجلد او الملف"

طيب الحمد الله على البركة موفق خير انشاء الله في خدمتك في اي وقت

اقترح عليك تنشئ جدول فيه اسماء النماذج و تضيف عمود صلاحية الوصول و تعمل حلقة تكرارية للشجرة عند الفتح هذا في رأي افضل حل و اسهلها

حل ممتاز لكني للأسف ما شفته غير بعد ما خلصت تعديل اعتمدت على الفرضيات بإستخدام Select Case نوعا ما النتيجة لا بأس بها 1390.nabil2322.zip

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

هنا اقترح عليك تستعين بالله عز وجل ثم عملاق الأكسس الأستاذ الكبير @jjafferr لأني صرت مثل الي حضر الفريت و عجز عن صرفه هههههه اكيد بنلقى الحقل الكبير توجد عدة محاولات اخرها بأننا سوف نضطر الى اضافة عمود الاسم لكل جدول و لكن هذا آخر الحلول

لهذا لتقريب وجهات النظر اتفضل DATE ERROR.accdb

جرب هذا التعديل و لا تنسى بأنك لم ترفق كامل المكتبة يتعين عليك نقل التعديل لبرنامج الاساسي لكي تجد النتيجة Nz(DLookUp("[nass]";[TAB_Books_X]![BookNO];"[Mno] LIKE '*" & [TAB_Books_X]![MNO] & "*' And [Hno]=" & [TAB_Books_X]![HNO]);"-") MusndWZwayid 7.accdb

تفضل طلبك طبق الكود على باقي الأزرار 1390.nabil2322.accdb

هذه الطريقة جيدة نوعا ما لكنها مجهدة سوف يضطر لإنشاء عدد من النماذج مساوي لعدد الجداول و عددها تقريبا 7 او 8 جداول الفكرة لدي بإختصار أن يكون هنالك نموذج واحد فقط SubForm يتم من خلال التنقل في التبويبات انشاء عناصر جديدة داخل النموذج مع حذف العناصر السابقة ان وجدت من استعلام سابق بإختصار يكون SubForm ديناميكي و يمكن الاستغناء عن الفورم من الاساسي بحيث عند التنقل بمجرد الضعط عل التبويبة يتم انشاء نموذج جديد وفق المعطيات السبب من كل هذا ان المطور لو اراد مستقبلا اضافة عدد جديد من الجداول فلن يحتاج لإنشاء نموذج لكل جدول

تفضل التعديل Test (1).accdb

تفضل هذا التعديل اخي الكريم في داخل الاستعلام Nz(DLookUp("[nass]";[TAB_Books_X]![BookNO];"[Mno]='" & [TAB_Books_X]![MNO] & "' And [Hno]=" & [TAB_Books_X]![HNO]);"-") MusndWZwayid 7.accdb

خطأ في العلاقة اتفضل التعديل DATE ERROR_2.rar

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

تفضل هذه مبادرة من طرفي حاول تكمله و اذا استصعب عليك شي كلنا في خدمتك Smart_Gym.zip مجلدات الصور.zip

تفضل التعديل التعديل الجديد - سيتم ارسال المعلومات لملف الوورد - سيتم حفظ التعديلات كنسخة جديدة بصيعة ( Word + PDF) - pdf5.zip StudentFile2021-06-15041817.docx StudentFile2021-06-15041817.pdf

غيير اسم الخط في مربع النص في الوورد الى Wingdings 2 و اجعل القيمة المرسلة حروف كما هو موضح ادناه Wdoc.Bookmarks("ChekBox1").Range.Text = IIf([chekBox1]=-1,"P","O")

تفضل التعديل DATA145.zip

تفضل التعديل 1390.nabil2322999.zip

هو طلبه كان يريد المساعدة في انشاء نموذج بالمواصفات التي ذكرها

تفضل هذا التعديل DATA143.zip

اتفضل التعديل DATA142.zip

اتفضل التعديل يابو الحسن DATA14.zip