أبو آدم

ما قبل @@ يظهر بخط عريض

يقول معظم أهل هذا العلم أن الاصح ان يحمل كل اجراء معالج الاخطاء الخاص به شكرا

اولا ، استخدام معالج الاخطاء Error Handler يعطي رسائل موجهة و منسقة للمستخدم تشعره بحدوث خطأ و تعطيه التفاصيل المتاحة و في حال عدم استخدام معالج الاخطاء يقوم VBA بتوجيه رسائل الخطأ ، بالمتاح من المعلومات و يوجهك نحو محرر الأكواد للتعرف على موقع الخطأ لتصويبه ثانيا ، يمكن في بداية كل كود أو في أي مكان مختار ولتعطيل معالج الاخطاء و رسائل النظام ان تستخدم العبارة ( الكود ) On Error Resume Next و حين ترغب باعادة تفعيل معالج الاخطاء تستخدم مثلا On Error GoTo PROC_ERR ويكون في ذيل الكود PROC_ERR: MsgBox "Error " & Err.Number & " " & Err.Description Resume PROC_EXIT ثالثا ، لمعالجة كامل النماذج او التطبيق ، فالامر قيد البحث في مكتبتي ... و اوافيك بالرد

حياك الله و شكرا للمرور الطيب والتقييم

سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb

سؤال : هل يمكن تنسيق صندوق الرسائل MsgBox بحيث يصبح السطر الاول بخط عرض Bold و يتبعه سطر فارغ ثم سطر ثالث ، حتى يصبح ملفتا للنظر أكثر ؟ جواب : نعم ، وبالمرفق تطبيق ذلك شكرا والله من وراء القصد NA_FormattedMsgBox.accdb

تفضل بشرط تدقيق تطابق تكرار حقل واحد فقط Private Sub OrderID_AfterUpdate() Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!ID = Me!OrderID Then MsgBox " السجل مكرر ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه" Me.Undo Cancel = True DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

اخوتي في مرفق التأمينات يتم تعديل المبلغ و ليس صافي المبلغ

مرفق NA_Sample_Up.accdb

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

تفضل التطبيق و الله من وراء القصد شكرا Na_NavButton.rar

للعلم بداية ولكن ليس لاحواله نهاية ... فوددت مشاركتكم بهذا سعيا لعموم الفائدة هذا تصور عن احوال أزرار التنقل باختصار شديد .... Private Sub cmdLast_Click() Navigate acLast End Sub Private Sub cmdNew_Click() Navigate acNewRec End Sub Private Sub cmdNext_Click() Navigate acNext End Sub Private Sub cmdFirst_Click() Navigate acFirst End Sub Private Sub cmdPrevious_Click() Navigate acPrevious End Sub Private Sub Navigate(intWhere As Integer) On Error GoTo CannotGo DoCmd.GoToRecord , "", intWhere Exit Sub CannotGo: Beep End Sub

شكرا

لم تنجح معي اخي العزيز ؟

شكرا للمرور و المتابعة

أخي عدنان تفضل مجموعة من المواضيع https://www.officena.net/ib/search/?q=ارشفة&type=forums_topic&nodes=89&sortby=newest

شرفتموني بمروركم الطيب وثنائكم المحبب أحسن الله اليكم و شكر لكم

اخوتي الفضلاء اقدم لكم من باب التسلية و الفائدة طريقة لتغيير اللون الاسود الرتيب للخطوط عند عرض السجلات في الجداول او الاستعلامات او ListBox او Combobox وذلك باستخدام الخاصية Format للحقل بوضع #[Red] او [Blue]# و ينطبق ذلك على الالوان الرئيسية Black / Red / Green / Yellow / Blue / Magenta / Cyan / White و بالتطبيق نلاحظ بان حقول التاريخ لا تعمل بشكل جيد و تتأثر بفورمات اللون وتعرض التاريخ كعدد صحيح . و ارفق تطبيقا بسيطا و نترك الباقي لخيالكم و ابداعاتكم و حاجاتكم متمنيا عموم الفائدة و الله من وراء القصد NA Colour All.rar

أخي وليد للحصول على عدد السجلات بدون تكرار ( كما فهمتها انا ) انك تريد و في مربع نص في النموذج استحضار ( مثلا ) عدد العملاء من جدول و بدون تكرار هل هذا صحيح

نعم

إنشاء نسخة احتياطية من BE ( قاعدة البيانات المرتبطة / التي تحتوي الجداول ) أو أي قاعدة اخرى ، مع حماية النسخة الاحتياطية بكلمة سر كطلب الاخ محمد القدسي و تطبيق العبد الفقير لرحمة ربه نارت لبزو / أبو آدم https://www.officena.net/ib/topic/81933

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

الملف accde تم تشغيل القاعدة لدي مباشرة ولم يطلب اسم مستخدم او كلمة سر ؟؟

يا اخي محمد التطبيق لا ينسخ القاعدة الحالية ، التطبيق ينسخ اي قاعدة تشاء ، والنسخة محمية بكلمة سر رجاءا تمعن قليلا بالمرفق قبل الرد ، ما ارفقته هو تطبيق حرفي ( تفصيل) لما طلبته ، ويمكنك تغيير الاسماء لقواعد البيانات في الكود لتتوافق مع تطبيقك. هناك قاعدة بيانات في المجلد تمثل BE التي تسميها القاعدة الخلفية ، وهنا اسمها Data.accdb هناك مجلد لحفظ النسخة الاحتياطية اسمه Backup و انت تعمل ضمن القاعدة NA_Backup_BE_and_set_Password التي تمثل FE التي تحوي النماذج و غيرها بالضغط على زر الامر Back Up في النموذج ، يقوم بحذف اي نسخة احتياطية سابقة بنفس الاسم في المجلد Backup ، ثم ياخذ نسخة احتياطية من القاعدة Data ويسميها DataX.accdb و يحفظها داخل المجلد Backup ، ثم يتم حماية القاعدة DataX.accdb بكلمة سر هي 123 . وجميع هذه المراحل وضحتها في التطبيق بموجب رسائل. اذا قمت بتشغيل القاعدة Data تعمل بشكل عادي اذا قمت بتشغيل القاعدة DataX تطلب كلمة سر ، استخدم 123

الاخوة الفضلاء مرفق تطبيق للنسخ الاحتياطي لاي قاعدة بيانات مع حماية النسخة الاحتياطية بكلمة سر ضمن الاجراءات حذف اي قاعدة بيانات في مجلد النسخ الاحتياطية ( يحمل نفس الاسم ) التطبيق أظنه يغني عن الشرح و حال لزوم الشرح نقوم بذلك ان شاء الله و الله من وراء القصد ... BE BackUp & PW.rar