ابو عبد الرحمن اشرف

اخي الفاضل الكريم كتبتها كده وما اعطاني شي لان المتبقي عبارة عن حاصل جمع وطرح حقول اخري مذكورة متأخرات ومستحق ومدفوع فاريد كتابة تلك المعادلة اذا كان المتبقي اللي بيساوي كذا اكبر من الصفر انتبة المتبقي: Last((([متأخرات]+[due])-[ExpAmount])) اخي الحبيب نعم التحذير يتعامل مع تاريخ الاستحقاق ولكني وجدت ان هناك من يكون عليه ايجار قديم من الفترة السابقة وحلت علية فترة استحقاق جديدة فبالتقرير يظهر ان عليه باقي ايجار ولكن لا يظهر التحذير لان تاريخ الاستحقاق لم ينتهي بعد وهو عبارة عن تاريخ نهاية الغقد +1 فاردت ان بكون التنبية مبني علي المتبقي وليس علي فترة الاستحقاق

المتبقي: Last((([متأخرات]+[due])-[ExpAmount])) تحذير: IIf([تاريخ الاستحقاق]<=Date();"انـتــبه";"") هذين الحقلين موجودين في تقرير اريد في حقل التحذير بدلا من تاريخ الاستحقاق يكون اذا كان المتبقي اكبر من الصفر انتبة هل هذا صحيح تحذير: IIf([Last((([متأخرات]+[due])-[ExpAmount]))]<0();"انـتــبه";"") يعطيني رسائل كثيرة تفيد بات هناك خطأ فما الدالة الصحيحة بارك الله فيكم

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

يتم كتابة تاريخ معين بدلا من now() ام يتم كتابة التاريخ بين القوسين تشفير.accdb

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

علمت خطوات بسيطة في كيفية تحويل قاعدة البياتات وهي 1-الذهاب الي محرر الاكواد ثم الضغط علي debug ثم اختيار compile ويقوم بمراجعة التعليمات البرمجية حدث عندي كل هذا واعطاني تلك الرسالة فما معناها ينهااااااااار ده مواااال كبير يا استاذنا طيب هل من الممكن تحويل قاعدة البيانات بمديول ويتم عمل زر امر به بمجرد الضغط عليه يتم التحويل 'Function accdeConvert() Dim app Dim strDBName Dim strADEName Option Compare Database Set app = CreateObject("Access.Application") strDBName = CurrentProject.Path & "1.accdb" strdeName = CurrentProject.Path & ".accde" app.SysCmd 603, CStr(strDBName), CStr(strdeName) Set app = Nothing Follow Kill strDBName End Function Function Follow() FollowHyperlink strADEName End Function

وكيف يتم تحويل قاعدة البيانات الي accde او mde اخي الحبيب

انا عن نفسي اتمني ذلك اخي الفاضل الكريم

تم عمل توجيهات حضرتك وكانت النتيجة كما هي تغير مكان الزر عند عرض النموذج عن مكانه في تصميم النموذج والي حضرتك المرفقات

حااااضر اخي الحبيب الان سأطبقها وبالنسبة للدعوة الجميلة اللهم امين يارب العالمين

هراجع الاتجاهات في النموذج والازرار وهبلغ حضرتك بالنتيجة باذن الله تعالي

انا حاولت فتحها ولم افلح ممكن لاني مش فاهم فكرة التشفير لا ادري بانتظارك اخي الحبيب في الغد

وحده وحده عليه اخي الحبيب وافني بالشرح لتلميذك المبتدأ

اخي الحبيب الغالي اعلم انكم جميعا ما تقصرون وتبذلون قصاري جهدكم في تلبية رغبات الاعضاء احتسابا لله تعالي فبارك الله فيكم جميعا ولكني كنت اعتفد ان امر تعديل الشاشات(الشكل العام فقط ) امر هين وبسيط للخبراء امثالكم ولكن حضرتك اخبرتني ان الامر يحتاج ايام وتفرغ فاعانكم الله جميعا ووفقكم لما يحبة ويرضاه وساحاول تعديل شاشة شاشة وما يقف امامي ساعرضه عليكم اول مشكلة عند وضع زر اغلاق او اضافة او اي كان عند وضعه في مكان ما بالنموذج عند التصميم يختلف مكانه تماما عند تشفيل النموذج فممكن الا يظهر الزر اصلا او يظهر فوق عناوين او ما شابة المهم انه ينتقل الي مكان اخر فلماذا هذا iloveimg-compressed_3.zip

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

@kkhalifa1960 @kkhalifa1960 اخي الكريم هذا الملف المتواضع اتمني ان تلقي نظرة عليه فاكيد يحتاج الي تعديلات كثيرة من اهمها شكل النماذج والشاشات الرئيسية وبعض المشاكل في فترة الاستحقاق وكيفية عمل تقرير للعقود التي علي وشك ان تنتهي او العقود التي انتهت منذ مده يحددها المستخدم

@kkhalifa1960 سامحني اخي طبعا هي افضل اجابة وبارك الله فيك اخي المشكلة عندي الان ان الجدول به حقليين للتاريخ واحد للمصروفات والاخر للايرادات فالخاص بالمصروفات هو (تاريخ الفاتورة) وهذا الذي حضرتك نفذت عليه فكرة الترحيل والخاص بالايردات وهو( المدة من ) وهو لم ياتي ذكرة بالمعادلات او الحدث هناك امر اخر اخي عند تشغيل الملف يغلق اتوماتيكيا ويخرج ولم استطيع التعامل معه الا بعد غيرت امتداده الي mdb فما تفسير ذلك

@kkhalifa1960 اليك الجدول اخي الفاضل Database1.rar

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

@kkhalifa1960 اخي الكريم الفاضل اشكرك علي صبرك وتحملك لي الجدول كان به 6 سجلات بها اعوام 2012 2013 2023 فعند اختيار عام 2013 قام بالغاء 2013وما قبله وابقي علي 2023 وهذا هو المطلوب اخي بارك الله فيك شاكر لك جدا اخي

الجدول الاصلي قبل اي تعديل كان به 6 سجلات بعد الضغط علي انشاء الجدول اصبح الجدول الجديد به 6 سجلات بعد الضغط علي ترحيل ايضا اصبح في الجدول الجديد 6 سجلات مع الغاء تلك السجلات من الجدول الاصلي

اخي الكريم عند الضغط علي انشاء الجدول برمجيا ينشأ الجدول به كل سجلات الجدزل الاصلي وذلك قبل الضغط علي زر الترحيل ؟

اعتذر اخي حضرتك ذكرت اسم الجدول المرحل منه وانا لم انتبه tbl_Main

تم تنفيذ كلام حضرتك فانشأ جدول به 6 سجلات الحدول الخاص بي به حقل المده من وحقل المده الي وبه حقل تاريخ الفاتورة او البيان من عام 2001 الي عام 2022 ( خذ نسخه جديدة من البربامج ) بعد فك الضغط عنها اخي الملف الخاص بحضرتك غير مضغوط تفضل أخي الشرح على الفورم ووافني بالرد DRelayDataByDate.accdb

اخي الفاضل الجدول المطلوب ترحيل البيانات منه في البرنامج ما هو هذا Copy Of tbl_Main ام هذا tbl_Main حتي اضع الجدول الخاص بي مكانه وتجربة الامر