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

اخي العزيز

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

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

تحياتي