مهند عبادي

أخي الكريم اللاحقة Dat حسب علمي لا تستخدم فيما يتعلق بالأكسس . ويمكنك أن تعمل نسخة احتياطية للجداول فقط وذلك بتصديرها إلى قاعدة بيانات تنشئها جديدة وفارغة ثم يمكنك إذا أردت أن تغير لاحقة ملف قاعدة البيانات إلى .DAT أو أي لاحقة تريد بشرط أن تعيدها MDB عندما تري…

الأخ فيصل : إن أسئلة الأخ يمكن أن تصنف حول نفس الموضوع وهو نقل التركيز لعنصر في نموذج آخر أو نموذج فرعي ولذلك برأيي لا يعد مخالف لقواعد المشاركة الأخ عادل صنهات أضف كود إغلاق النموذج قبل كود نقل التركيز

إذا كان قصدك مجموع حقل معين ضمن النموذج ضع مربع نص جديد لعرض المجموع واكتب في مصدر عنصر التحكم : = Sum(iif([t1]<0;0;[t1]))

إذا كان الأرقام موجودة في مربعات اسمها T1 , T2 , T3 والمجموع نريده في المربع S نكتب : S = iif(t1<0,0,t1) + iif(t2<0,0,t2) + iif(t3<0,0,t3)

أخي أبو رغد .. استخرج الكود من الملف السابق المرفق .. وضعه عند تحميل النموذج الأول في البرنامج وفق الأبعاد التي تريدها

ضع لفتح النموذج عند الرغبة في الإدخال هذه العبارة : DoCmd.OpenForm "FRMTeam Players", , , , , , "yes" والآن غير حدثك إلى ما يلي : If OpenArgs<> "yes" and RecordsetClone.RecordCount = 0 Then MsgBox "لا يوجد بيانات ", vbInformation + vbMsgBoxRight, "" DoCmd.Canc…

بالنسبة للإجابتين 2 ، 3 : أنت من يجب أن يحدد أين تضع الكود حيث يلزم لك أن تنقل التركيز مثلاً بعد التحديث لعنصر ما أو بعد تعليمة الفترح للنموذج الآخر ، الأمر عائد لك الشرح بالنسبة للسؤال ال,ل ما زال غير مفهوم بالنسبة لي .. ربما يكون أحد الأخوة قد فهمه ويساعدك

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

تفضل أخي الكريم أرجو أن يفي بالطلب : Clearances_Department.rar

أخي الكريم لماذا لا تعمل ذلك في تصميم النموذج الفرعي من الاساس ؟ ذم يلزم أن تربط النموذج الفرعي بالرئيسي من خلال حقل رقم البوليصة

هذا مثال وجدته عندي عن ضغط قاعدة البيانات وإصلاحها والنسخ الاحتياطي Compact_Backup.rar

.. أنا لا أفهمك أو أنك تنسى شيئاً مهماً أي نموذج ينشئ جديد فهو ينشئ في زمن التصميم .. ولا يمكن تنفيذ الكود أثناء زمن التصميم أما أثناء تشغيل البرنامج فيمكنك أن تطلب تنفيذ الإجراءات التي تريدها ولكنك لا تستطيع التعامل سوى مع النماذج المفتوحة (حسب ما هو عمل الإج…

DoCmd.RunCommand acCmdCompactDatabase

Me.RecordSource = "اسم مصدر البيانات" Me.Text1.ControlSource = "اسم الحقل"

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

أخي نواف الملف المرفق لا يوجد به سوى جدولين واحد للفاتورة والآخر للعملاء اذا أردت المساعدة أرفق ملف يحتوي جداول الفواتير والمواد ونموذج فاتورة لكي يتم التعديل به

أخي الكريم ضع في نهاية حدث عند التحديث لكل مجموعة خيار هذا الكود : T2 = Nz(Frame1) + Nz(Frame13) + Nz(Frame22)

يمكنك ذلك باستعمال تعليمة Shell هذا مثال : shell "Calc.exe"

بإمكاننا أن نعمل كود عند تنفيذها يتم تطبيق هذا الإجراء على كل النماذج الفتوحة . إذا راقت لك هذه الفكرة هكذا تطبق : Dim F As Form For Each F In Forms 'نكتب هنا كود تنفيذ الإجراء على كل نموذج حسب الحاجة Next

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