Dream_Works

أخي الكريم أعتقد أن تصميم قاعدة بياناتك خاطئ و غير مفهوم احتمال تحتاج كود كالتالي في الحدث Before Insert Private Sub Form_BeforeInsert(Cancel As Integer) If Me.CurrentRecord > 15 Then MsgBox ("The Class is Filled") Cancel = True End If End Sub يمكنك وضع الكود المطلوب في حالة تجاوز الخمسة عشر طالباً داخل ال If Statement ... و احتمال توجد أخطاء في الكود لأنني لم أفهم المطلوب بالضبط

الله يعطيك العافيه برنامج جميل ... به أفكار جيدة ... و لكن لدي ملحوظة بسيطة , أزرار إغلاق النماذج لا تعمل

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

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

أرجو أن تقوم بالتصميمات الرئيسيه و من ثم يتم التعديل فيها من قبل أحد الأعضاء التصميمات الرئيسيه هي : (تصميم الجداول المطلوبة مع العلاقات فيما بينها ... و تصميم النماذج بأشكالها المطلوبة )

يمكنك عمل الآتي فقط بالكود امسح رقم 2 الموجود في For Loop و ضع مكانه UBound(Receieved) مسح رقم 3 الموجود في معادلة ال Denominator ووضع المعادلة التاليه مكانه UBound(Receieved) + 1 أرجو أن يكون هذا المطلوب

أرجو النظر في الملف الموجود على الرابط ... أرجو أن ينفع ________________.zip

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

الشرح : البرنامج يعمل استدعاء لدالة دائماً هي المسؤولة عن تعبئة جدول التعديلات مع تمرير بيانات التعديل المطلوبه لها WriteAuditUpdate(txtTableName, lngRecordNum, txtFieldName, OrgValue, CurValue) هذه الداله مسؤوله عن عمليات التحديث و يتم تمرير المتغيرات التالية إليها 1- txtTableName ... اسم الجدول الذي حُدثت بياناته 2- lngRecordNum ... رقم الصف ( إما أن تكون ترتيبه في الجدول أو قيمة حقل المفتاح الرئيسي لتمييز الصف الذي عُدلت بياناته ) 3- اسم العمود الذي عًدلت بياناته . 4- OrgValue .. القيمه القديمه أو الأصلية Original Value 5- CurValue ... القيمة الحديثة ... Current Value أعتقد أنه يجب عليك رؤيه هذه الداله لأنها المسؤوله عن عمل ما تريد ... كما توجد داله أخري مشابهه لها تقريبا لتسجيل حذف البيانات و موجوده في نفس الوحده النمطية أعتقد إن الانجليز يميلون أحيانا إلى التعقيد و التطويل و أنه يمكن عملها بطريقة أبسط من الملف الموجود

توجد أكثر من طريقه و هذه أبسطها : 1- ضع مربع نص غير منضم ( Unbound) في الفورم ... فلنفرض مثلا إنك سميته TxtNumber 2- ضع الكود التالي في الحدث OnCurrent Me.TxtNumber = Me.CurrentRecord أرجو أن يكون هذا المطلوب

شغلك كله صحيح و لكن عندما يطلب منك الملف .... قم بوضع اسطوانة الأوفيس ... ثم قم بالإشاره الى ملف ال Setup الموجود فيها

يمكن حسبة الرصيد بالاستعلام دون الحاجه الى وضعه بالجدول muwafaq1.zip

احتمال المشكلة لا تحتاج ل كود جرب فتح التقرير عند التصميم و قم بتصغير حجم ال Details Section قدر الإمكان مع عدم ترك أماكن فارغه بدون بيانات ثم احفظ التقرير و شغله

أرجو التأكد من مصدر المشكلة 1- إذا كانت الأوفيس : حاولى تشغيل أكثر من ملف قاعدة بيانات ... فإن لم تعمل الملفات كلها أو معظمها يعني المشكلة من الأوفيس و إذا اشتغلت قواعد البيانات الأخرى يعني المشكلة من قاعدة بياناتك ... و أنا أرجح السبب الثاني ... لذلك أرجو إرفاق ملفك إن كان تخميني صحيحاً

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

الله يعطيك العافيه ...

أخي الكريم أرجو التوضيح ما هو الحل الذي تقترحه بالضبط ؟ أعتقد إن الحلول المطروحه كافيه الحلول المطروحه هي : إنشاء الحقل المطلوب في الجدول و تعبئته بالكود بأحد الطرق التاليه 1- اسم مستخدم قاعدة البيانات عن طريق Current User ... لكنه يتطلب إنشاء اسم و صلاحيات لكل مستخدم في قاعدة البيانات 2- الحل الذي اقترحه العمده باستخدام اسم مستخدم جهاز الكمبيوتر ... مع محاولة منع المستخدم من تغييره مستقبلاً أعتقد أنه لا تُخفى عليك ضرورة وضع الكود المطلوب في جميع نماذج المستخدمين أرجو أن يفي هذا الملف بالغرض Test.zip

أشكرك أخي الكريم على هذا الشرح الرائع .... هل استخدمت برنامج SnagIt لعمله أو برنامج آخر ؟

برنامج جميل أخي العمده ... الله يعطيك العافيه ...

أخي الكريم أرجو ان أكون قد فهمت قصدك يمكن استخدام المتغير Current User بالكود لاستخراج اسم مستخدم برنامج الأكسيس الحالي .

تفضل تم عمل الآتي 1- وضع حقل مفتاح رئيسي في الجدول Pers 2- وضع علاقات بين الجدولين 3- عمل النماذج المطلوبة بال Wizard 4- وضع الكود المطلوب على زر Move 5- عمل Compact & Repair لضغط و إصلاح قاعدة البيانات بالتوفيق ... New_Application_Microsoft_Access.zip

أرجو رؤية المثال على الرابط التالي ساعة

الداله لن تعمل الا إذا كان النموذج الرئيسي مفتوح ... أي لا يمكن تشغيل النموذج الفرعي لوحده ثم تشغيل الداله . Forms("MainFormName").Controls("ControlName") = 4 حيث أن Mainformname هو اسم الفورم الرئيسي ControlName هو اسم مربع النص أو القائمة المنسدلة ... الخ ... الموجودة بالنموذج الرئيسي و المراد نقل القيمة إليها يجب وضع علامات الاقتباس في الكود بالتوفيق إن شاء الله

أرجو أن يكون هذا طلبك DbAverage.zip

يوجد أحد احتمالين 1- إما أنك أنت تضيف السجل الفارغ عن طريق الكود أو كان موجود في الجدول وهو احتمال مستبعد .... و يتطلب رؤية قاعدة بياناتك لمعرفة الخلل 2- أو أن السجل الذي تعتقده فارغاً هو السجل الذي يتيحه الأكسيس لإضافة بيانات جديدة ... يمكنك التخلص منه عن طريق : الذهاب إلى خصائص الفورم ووضع No في خانة AllowAdditions بالتوفيق