Hamada Tornado

السلام عليكم اعضاء المنتدى الغالى كنت اريد كود يقوم بألغاء محتويات السجل الحالى (بالنموزج الاساسى والفرعى ) (Undo) اى يقوم بتفريغ الخلايا وكود اخر يقوم بأغلاق البرنامج دون حفظ السجل الاساسى او السجل الفرعى الملف مرفق Ezn.rar

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

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

شكرا اخى الغالى ارفقت لك التقرير وهو يحتوى على تقريران يومية يوم 18/6/2015 ويوم 20/6/2015 عند طباعه يوم 20/6/2015 يطبع التقرير بدون اى اخطاء وعند طباعه تقرير يوم 18/6/2015 يظهر خطاْ وذلك لان رصيد اول المده بيساوى صفر report Error Type.rar

هيا فعلا الطريقة دى افضل بس كان عندى سؤال هو ليه لما اعمل مثلا ميزانية عمومية و فى الداله اللى حضرتك حاطتها او غيرها لما احطها فى زيل التقرير لا تعمل وذلك عندما يكون العملية الحسابية تساوى مثلا صفر +5 فالمفروض الناتج يساوى 5 بيجيبلى #type! مع العلم عند وضع الداله فى ال detail تعمل بطريقة صحيحة وشكرا لك اخى الغالى على الاهتمام

الحمد لله بالبحث فوصلت الى الحل على احد المواقع الاجنبية وحبيت اشاركه معاكم هنا نقوم بأنشاء وحده نمطية Public Function NullToZero( TheValue as Variant) 'This function converts Null to Zero 'It also converts Non Existing Data to Zero On Error Goto NullToZero_Err If ISNull(TheValue) then NullToZero = 0 Else NullToZero = TheValue End if Exit Function NullToZero_Err: 'This function would only generate an error 'if the data in TheValue doesn't exist at all. NullToZero = 0 Exit Function End Function ونقوم بعد ذلك بأضافه NullToZero مصدر البيانات قبل الداله المراد استخدامها للـ Text Box مثلا =Sum(NullToZero([InvoiceAmt]) و هذا الكود يقوم بألغاء رساله الخطأ لداله Sum و Avg

كل سنه وانتم طيبين اريد مساعده فى الغاء رساله #Error عند القيام بالطباعه واذا كان هناك لا يوجد بيانات بالتقرير فتظهر رساله #Error

شطرا لك اخى الغالى

السلام عليكم ورحمة الله وبركاته اريد ان اسأل عندى مشكله عندما اقوم بعمل تقرير لدفتر اليومية يحتوى على المتحصلات و المدفوعات (كل منها فى جدول منفصل اى ان هناك جدول للمدفوعات و جدول للمتحصلات) فكيف استطيع ان اقوم بعمل تقرير تكون بياناته تم اخدها من جدولين منفصلين وليس رابط بهم اى علاقة محاوله فاشلة : قمت بعمل تقرير و ضفت الجدولين فى الريكورد سورس ولاكن تم عمل ازدواج للخلايا ما العمل