ابوخليل

Private Sub Form_Current() الحدث في الحالي للنموذج يجعل الكود يعمل باستمرار

جرب هذا في النموذج Private Sub Form_Current() If Me.ANC = 1 Then If Me.TR > 16 Then Me.TR.ForeColor = 255 If Me.TR < 10 Then Me.TR.ForeColor = 16711680 ElseIf Me.ANC = 2 Then If Me.TR > 18 Then Me.TR.ForeColor = 255 If Me.TR < 7 Then Me.TR.ForeColor = 16711680 Else Me.TR.ForeColor = 0 End If End Sub

الوحدات النمطية : Public IsUserID As String ' اعلان عن متغير عام يأخذ قيمة المعرف داخل النماذج أو التقارير Public Function RelinkIspic() 'اعلان عن اسم الوحدة النمطية Dim i, x, r As String 'اعلان عن متغيرات نصية r = IsUserID 'المتغير هذا يساوي قيمة المعرف i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) ' المتغير هذا يساوي المكان البعيد الذي تتواجد به قاعدة بيانات الجداول x = Left(i, InStrRev(i, "\")) & r & ".jpg" 'اسم الملف ونوعه في المكان البعيد RelinkIspic = x 'لا تحتاج شرح End Function'اغلاق '============================================================== Public Function RelinkIsshar() Dim i, x, r As String r = "shar" ' اسم الملف i = mID(CurrentDb.TableDefs("tblNames").Connect, 11) x = Left(i, InStrRev(i, "\")) & r & ".jpg" RelinkIsshar = x End Function كما نلاحظ الوحدتين النمطيتين طبق الاصل الاولى ترجع الملف بمعلومية متغير والثانية بمعلومية اسم الملف ويتم الاستدلال على المسار بواسطة الجدول المرتبط به البعيد وكل ما علينا عمله هو نداء الدالة RelinkIspic في الاول والدالة RelinkIsshar في الثاني والمثال المرفق سيوضح الطريقة بشكل عملي حيث يشتمل على : 1- الوحدة النمطية والكودات الخاصة بربط الجداول آليا عند تغيير مكان مجلد قاعدة الجداول 2- الوحدة النمطية الخاصة برفع الملفات واستبدالها ، وستلاحظون كيف وظفنا ()RelinkIspic داخلها 3- وحداتنا النمطية الخاصة بهذا الموضوع وعملها في عرض الملفات وتوجيه النسخة الاحتياطية بعد فك الضغط عن المرفقات وتشغيل الواجهات سيطالبك البرنامج بربط الجداول وهذا كل ما عليك فعله فقط . يمكنكم بعد التطبيق بنجاح نقل المجلد فقط وتغيير مكانه للتجربة ملحوظة : بسبب نظام وندوز قد يحتاج بعض اصدارات اكسس لتفقد المكتبات وتعديلها لا تنسون اخيكم من دعوة صالحة في ظهر الغيب . أسأل ربي الكريم ان يجزيني بكرمه وفضله . قراءة مسار الشبكة آليا وربط الجداول والنسخ الاحتياطي.rar

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

تفضل Dim rs As Recordset Dim db As Database Set db = OpenDatabase("D:\backup\project.accdb") Set rs = db.OpenRecordset("projectFiles", dbOpenDynaset) rs.MoveFirst rs.MoveLast Rcont = rs.RecordCount Set rs = Nothing Set db = Nothing باعتبار Rcont هو متغير رقمي / أو اسم حقل في النموذج

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

بعد اذن اخواني واحبتي طلبك موجود هنا وموضوع خاص به هنا وستجد فوائد متفرقة في الرابطين

لما نجعل الواجهات خالية من اي صور او ايقونات ونجعل هذه خارج البرنامج نحصل على واجهات صغيرة الحجم انا مثلك ارسل برامجي عبر البريد وخاصة قوقل درايف وتحديثاتي كثيرة جدا ، وما يزعجني حقيقة حين اضطر الى التعديل على قاعدة الجداول

المشكلة هنا ..

عليكم السلام التعديل على الجداول او الاستعلامات ممكن اما غيرها فلا. دائما ينصح بتقسيم قاعدة البيانات ، من اجل المرونة في تطوير وتحديث الواجهات عند العميل

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

استفسار هل ميكروسوفت وضعت جدولين للتاريخ الهجري واحد لاكسس وآخر مختلف لاكسل ؟

تم التعديل يتم تصدير التقرير : "حدثت " الى اكسل last2.rar

بل انت رجل مبارك لم تطرح سؤالا الا وخرجت لنا بفائدة جليلة

هههههه حلوة التقرير هو مثل نافذة الغرفة ، لما ننظر منها : ساعة غيم ، وساعة نجد السماء صافية بمعنى ان التقرير يعرض الموجود في الجداول فلما نعدل في الجداول يظهر في التقرير ما علينا .. المهم نعرف ما المقصود بالتعديل على التقرير

مع اني لم افهم تماما مقصدك من تعديل التقرير ، ولكني سأنقل المرفق للاطلاع والنظر

السلام عليكم ((( التصدير الى اكسل بنفس شكل تصميم التقرير ))) انت صعبت على اخوانك المسألة ، فتصميم ورقة اكسل يجب طرحه في منتدى اكسل

اكتب طلبك في موضوع جديد مستقل

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

اذا ما نفع في المعلمات نعلن على العموم تفضل تم التعديل مع تعديل طفيف على الدوارة داخل الكود Tel-test2.rar

وعليكم السلام أعلن عن المعيار في المعلمات

السلام عليكم اخواني الكرام المنتدى تعليمي ، نتعلم من خلاله ونبحث عن حلول للصعوبات التي تواجهنا اخي الحبيب : يمكنك مراسلة صاحب البرنامج لاجراء ما تريد من تعديلات يغلق ،،،

اخي الكريم يجب الاهتمام بكتابة العنوان المناسب الذي يصف الموضوع

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

ولكنها تعمل عندي db4.rar