دروب مبرمج

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

تفضل التعديل baset.zip ملاحظة في محلها فعلا يوجد تعارض لديه ارشيف صور غير مرتبط بجدول يريد اضافة الصورة لمربع النص في التقرير و لم يتم تحديد صورة معينة لكني جعلت آخر صورة تم اضافتها في المجلد هي الاساسية فعلا يجب على صاحب الموضوع التمعن جيدا في كلامك لأنه هو المنطق بعينه شكرا لك

انشئ جدول للصلاحيات يرتب هذا الجدول بجدول المستخدمين لديك ليكون على النحول التالي توزيع الصلاحيات حسب طبيعة عمل كل مستخدم على النظام انشئ مديول جديد و الصق فيه التالي Public User_NO As Integer Public Function User_Addition() Dim Prmiss As Variant Prmiss = DLookup("Addition", "User_Prmiss", "User_ID=" & User_NO) User_Addition = IIf(Prmiss = -1, True, False) End Function Public Function User_Edite() Dim Prmiss As Variant Prmiss = DLookup("Edite", "User_Prmiss", "User_ID=" & User_NO) User_Edite = IIf(Prmiss = -1, True, False) End Function Public Function User_Delete() Dim Prmiss As Variant Prmiss = DLookup("Delete", "User_Prmiss", "User_ID=" & User_NO) User_Delete = IIf(Prmiss = -1, True, False) End Function و في النموذج في حدث عند الفتح ضع التالي ' صلاحية الإضافة Me.Form.AllowAdditions = User_Addition ' صلاحية التعديل Me.Form.AllowEdits = User_Edite ' صلاحية الحذف Me.Form.AllowDeletions = User_Delete مرفق مثال على ذلك bbb.accdb

تفضل هذا الاقتراح الفكرة هي كالتالي :- - يكن التعديل في جدول مشابه للجدول الرئيسي و مرتبط بالنموذج - في حال وجود تغييرات سيتم تحديث السجلات التي طرأ عليها تغيير bbb.accdb

لست بحاجة لها و في اعتقادي بأنها ليست مجدية و السبب انها بهذه الصورة لا تقوم بإعلامك عن مكان الخطأ في الكود او اثناء تنفيذ الكود و دائما افضل الطريقة التالية On Error GoTo errorhandle \\\\ هنا في تضع الأكواد التي تريد تنفيذها /// errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description ' رسالة الاعلام عن الخطأ Resume errorhandleexit

ضع هذا كود الوظيفة هذا في الموديول Public Function SetFilePath(SetFileName As Variant, SetFolder As Variant) SetFilePath = CurrentProject.Path & "\" & "SysFiles" & "\" & SetFolder & "\" & SetFileName End Function و في التقرير في مصدر الصورة استدعي الوظيفة اعلاه =SetFilePath([Forms]![نموذج1]![List31];[Forms]![نموذج1]![ID]) تمام كذلك تفضل هذا التعديل baset.zip

تفضل التعديل حدد مكان وجود القالب و اسم و موقع حفظ الملف الجديد بهذا الشكل SendData.zip

تفضل مثال ارسال البيانات.zip

تفضل التعديل Emp_0.2.accdb

تفضل التعديل Emp.accdb

تفضل مثال ارسال البيانات.zip

افضل طيقة بأن تقوم بتصميم التقارير على ملف وورد مرفق مثال لإرسال البيانات من الاكسس الى الوورد سيتم حفظ ملف الوورد بصيغتين Word و PDF RepToWord.zip

تفضل التعديل base1.accdb

تفضل هذا التعديل base1.accdb

نعم بالإمكان الاتصال بقاعدة البيانات الخارجية من خلال الاكسس و الأمر يسيط جدا باستخدام معالج الاكسس للاتصال بقواعد ODBC تعال القي نظرة على هذا الاختيار بعدها روح لهذا الاختيار و قوي قلبك معايا بدون خوف الآن راح نضيف جملة الاتصال او عنوان الاتصال بقاعدة البيانات الخارجية كمل الخطوات للنهاية و مبروك عليك الاتصال بقاعدة البيانات و اي سؤال لا تتردد و افتح موضوع جديد يخص الاضافة و الحذف و التحديث عشان نكمل الفكرة للأخير

تفضل هذا التعديل 01.accdb

تفضل هذا الكود بإختصار لإنشاء استعلام حسب رغبتك Dim qdf As QueryDef, Query As Variant, SetTop As Integer ' المعطيات الاساسية لبناء جملة الاستعلام SetTop = 2 Query = "SELECT TOP " & SetTop & " sales, dname, * FROM sales ORDER BY sales DESC" ' حذف الاستعلام السابق لإنشاء استعلام جديد DoCmd.DeleteObject acQuery, "NewQuery" ' لإنشاء استعلام جديد حسب المعطيات اعلاه Set qdf = CurrentDb.CreateQueryDef("NewQuery", Query) qdf.Close Set qdf = Nothing

اخي الكريم ملاحظة بسيطة جداً انا و اعوذ بالله من كلمة انا فما أنا لا طالب في مدرستكم و متابع جيد لجميع اطروحاتكم فأنا فعليا نتاج لجميع اطروحاتك استاذي @ابو جودي فليا بكل ما تعنيه حروفي تعلمت منك طيلة السنوات الماضية و لم اكن عضوا في المنتدى بفضلكم تحولت من زائر الى عضو رغم متابعتي الدقيقة لجميع الاكواد في المنتدى الى أن تحويل النص الى رقم بهذه الطريقة CLng([sales]) لأول مرة اراها رغم دراستي المستفيضة في جملة SQL

تفضل هذا التعديل select top.accdb

تفضل التعديل Bank.zip

تفضل و اكمل الباقي حسب حاجتك test.accdb

شكرا على التنبيه مرفق الملف بعد التعديل Form1.accdb

مجرد اسئلة للوصول الى جواب سؤالك س1 / ما لو رغب عميلك في زيادة فترة التجربة ؟ س2 / لو كان اسلوبك في بيع برنامج بإشتراك شهري كيف ستتحكم في ايقاف و تمديد العمل على برنامج ؟ اذا يجب ان يكون البرنامج تفعالي اكثر و تكون انت المتحكم مجرد اقتراح لبعض الحلول - انشاء جدول على سيرفر خارج SQL - يتم من خلال الاتصال بجدول اضافة تاريخ تفعيل الفترة التجريبية تاريخ نهاية الفترة التجريبية تاريخ تمديد و مدة الفترة التجربية السبب في ما سبق قد يستطيع بعض المستخدمون الدخول للكود و التعديل عليه او الغائه و هذا خطر جداً ❌🛠️ لكن اذا قمت بربط الحماية بلغة اخرى مثل ASP او API فستكون الحماية خارج نطاقة البرنامج و ستمنع عمليات القرصنة 👺 اذا الجواب بالمختصر ان الحماية ستكون خارج البرنامج و دخال السيرفر الخارجي الخاص بك كذلك تمرير البيانات من القاعدة الى السيرفر و العكس و كذلك داخل القاعدة يجب ان تكون مشفرة في ما لو تعرضت للعبث لن يستفيد منها المقرصن 🤦‍♂️

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

تفضل التعديل inputbox-pas0.2.accdb