Khalid Jnb

تقضل اخي الكريم عند إدخال تاريح الميلاد يحولها الي عمر (باليوم والشهر والسنة) في النموزج Database1.rar

السلام عليكم تفضل اخي الكريم اتمنى ان يكون هو المطلوب رسالة تنبيه.rar

كل عام وجميع الاخوة بالمنتدى بالف خير من الجميل ان نبدأ العام بتهنئة بكود اكسس تحياتي للجميع test.rar

السلام عليكم شكرا لك احي العزيز على هذه المشاركة للعلم انه لايوجد شيء اسمه حماية مطلقة ابدا . هذه الطريفة لاتخفي الملفات بصورة نهائية حيث يمكن اظهارها عن طريق ازالة علامة الصح من (إخفاء ملفات نظام التشغيل المحمية ) hide protected operating system files

السلام عليكم اولا : لماذا لاتجعل القيمة الافتراضية للحقل = صفر ولا تحتاج الى استعلام تحديث ثانيا : تفضل اخي الكريم عملت لك استعلام تحديث بالملف يجعل القيم الفارغة بالجدول = صفر اعلمنا النتائج aceess55.rar

السلام عليكم اخي العزيز اصبح التركيز (SetFocus) على هذا الحقل ويمكن تغييره بعدة طرق منها: 1- عن طريق ترتيب الجدولة. اضغط بزر الماوس الايمن في مكان فارغ بالنموذج في طريقة عرض التصميم(كما في الصور) : 2- عن طريق الكود البرمجي. كما في الملف المرفق (يوجد نموذجين بالملف احدهما افتراضي والاخر برمجي) Me.[اسم الحقل].SetFocus test.rar

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

السلام عليكم اخي العزيز عزالدين المنصوري 1- عملت لك ملف فيه رسالة تنبيه لمدة 5 ايام اعتبارا من كل 1 لغاية 5 من كل شهر مع وميض احمر متقطع في حالة عدم تجديد الاشتراك. 2- عملت لك (msgbox) عند تحميل البرنامج . اعلمنا النتائج تحياتي رسالة تنبيه.rar

السلام عليكم احدى الطرق تعمل زرين واخد للنسخ والاخر للصق تحياتي Option Compare Database Option Explicit Private Sub Command5_Click() Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب نسخه DoCmd.RunCommand acCmdCopy 'هنا تتم عملية نسخ القيمة الموجوده في الحقل End Sub Private Sub Command10_Click() Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب لصقه DoCmd.RunCommand acCmdPaste 'هنا تتم عملية لصق القيمة المنسوخة سابقا End Sub

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

السلام عليكم اتصور ان الرسالة تبين انه انت استخدمت رموز محجوزة للنظام والله اعلم

احي العزيز من الافضل ارفاق مثال للعمل عليه تحياتي

السلام عليكم تقضل اخي الكريم صيغة الدالة DSUM بدون شرط اتمنى يكون المطلوب =DSum("[TotalP1]";"استعلام_فاتورة _مشتريات_راس";"") =DSum("[TotalS2]";"استعلام_فاتورة_المبيعات_راس";"") ادارة محل1.rar

السلام عليكم انظر للصورة اخي الكريم

السلام عليكم بعد اذن الاستاذ Khalf مثال بدالة Dlookup تخياتي نظام وارد2.rar

اخي العزيز انظر للرابط https://www.officena.net/ib/topic/62366-كيفية-عدم-تكرار-اكثر-من-حقل-في-بيانات-اكسس/ نقس الموضوع

السلام عليكم من خصائص الحقل بالجدول اجعلها (نعم (التكرار غير مقبول))

السلام عليكم اخي العزيز الحسن لم اجد سوى هذه الطريقة حول اخفاء واظهار حقل تجميع قيمة الدفع وهي تعمل 100 % تحياتي DBdb.rar

اخي العزيز صيغتها كالتالي = nz([NN];0)

اخي العزيز اذا كان قصدك ارجاع القيم الفارغة الى صفر استحدم الدالة NZ تحياتي

السلام عليكم انظر للملف المرفق اخي الكريم وحسب ماطلبت اعلمنا ملاحظاتك تحياتي test.rar

انظر للمرفق اخي الكريم/اتمنى يكون طلبك DBdb.rar

اخي العزيز جلبت القيمة من الاستعلام مجموع كل الدفعات PayAmount كنت اضن هذا طلبك الاول

تفضل اخي الكريم تحياتي DBdb.rar

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