Eng.Qassim

وعليكم السلام استاذ جمال.. بصراحة انا ضيعت ملفك القديم ..لكن يخطر في بالي شيء كهذا If total <= 500 Then op1 = 1 Else op1 = 2 End If total اجمالي الطلبية op1 = 1 نقدا op1 = 2 صك

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

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

بالتوفيق يارب

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

انا عملت كما كان في سؤالك..! تفضل التعديل...ابو بسملة حصل افضل اجابة وتركها برأسي 😄 qryMax.rar

كلامك صحيح اخي ابو احمد ..منذ اكثر من 10 سنوات وانا احاول تصحيح الخطأ الذي وقع به الاداريين معي (وليس المحاسبين) وضاعت علي سنتان من خدمتي انت الخير والبركة استاذنا ابو خليل

ولمن اراد الفائدة ..ملف استاذ ابو خليل ..مع استعلام بسيط ويظهر نفس النتائج DateDiff("m", date1, date2) * 30 + (Day(date2) - Day(date1)) months30.rar

عذرا ..انه خطأي..لقد توهمت بالمرفق الصندوق.rar

في خدث عند التحميل مع ملاحظة تغيير هذا المسار بمسار القاعدة لديك

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

اعمل استعلام جديد وضع هذه الجمله في صفحة ال SQL select * from qryAll where q_Date in (select max(q_Date ) from qryAll) لكن انتبه ..انت ارفقت الصورة التي ليس لها علاقة بالتعديل الاخير لي او لاستاذي ابو بسملة

ما انا قلت لك ..ضع النقطة الحمراء على حدث النموذج عند الخطأ ثم استخدم f8 لتسير خطوة خطوة على الكود ..فسترى انه يقرأ رقم الخطأ 2169

اذا اردت ان لاتنسخ القاعدة مرة اخرى ..يجب العمل ذلك بنفسك.. حينما تضع القاعدة على الحاسوب ..انسخ مسار القاعدة وضعها في الكود التالي ..في النموذج الذي يفتح اولا On Error GoTo frm_loadErr_handler DoCmd.Maximize DoCmd.OpenForm "frm_login" Dim PD As Variant Set PD = CurrentDb If PD.Name = "C:\Users\userName\Desktop\prevent copy.accdb" Then DoCmd.OpenForm "form1" Else MsgBox " لاتملك الترخيص" DoCmd.Quit End If frm_loadExit: Exit Sub frm_loadErr_handler: MsgBox Error.descreption, vbExclamation, "!ErrorNo.." & Err.Number Resume frm_loadExit

هل جربت الملف الذي ارفقته؟

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

جرب الان حينما تقف على كود النموذج عند حدث الخطأ سترى رقم الخطأ وهو DataErr = 2169 وهذا حله بكود تجاوز هذا الخطأ If DataErr = 2169 Then Response = acDataErrContinue End If اختبار.rar

ممكن ان يكون هذا الحفظ مبني على استعلام حذف سجل قبله ..فتأتيك رسالة التحذير

وعليكم السلام ... جدول المشتريات والمبيعات تأخذ اسم الصنف والسعر من كارت الصنف عبر علاقة بينهم ..وعند اختيار الصنف في اي حركة سيتم اضافته لجدول المشتريات او المبيعات عذرا ..الان انتبهت ..هل القصد من السؤال هو استخراج الكمية المتبقية؟

تفضل data360.rar

تفضل هذا المثال تكرار.rar

مشاركة مع اساتذتي الكرام لكني عملتها على السنة الواحدة data360.rar

مشاركة مع استاذي الحبيب @ابوبسمله حسب id وحسب التاريخ grouping.rar

انا متأسف جدا لانك ربما أسات فهمي ..انا قلت وضح مشكلتك في الملف بشكل واضح حتى يتسنى للاخرين مساعدتك رمضان كريم وكل عام وانت بخير

لا اعلم .ربما حصل خطأ مني في الارسال barkah2.rar