صالح حمادي

إطلع على الملف و وافني بالنتيجة

مرحبا بك أخي الأستاذ رمهان أخي بوعبد الله تفضل هذا ملفك بعد التعديل RealisationRe 7.rar

الله يحفظك يا غالي

السلام عليكم و رحمة الله و بركاته تحياتي أستاذي و صديقي العزيز الوزير الذي قام بكل شيء تقريبا لإتمام هذا البرنامج. تحياتي لك أستاذ عبد الفتاح كيرة شكرا جزيلا على هذه الفديوهات الرائعة التي تقدمها. بعد إذنكم جميعا. أخي بوعبد الله محفوظ هنالك بعض الأخطاء تعيق سير البرنامج. في الجدول tblRealisation يجب تغيير عرض عنصر التحكم للحقول Heure و Operateur من مربع تحرير و سرد إلى مربع نص في العلاقة بين الجداول tblOperateur و tblRealisation يجب أن يكون الربط بين الحقلين Operateur من الجدول الأول و Operateur من الجدول الثاني. نفس الشيء بالنسبة للجدولين tblOperateur و tblReintegrataion. و لقد قمت بإجراء التغييرات اللازمة على الملف المرفق. و هو يعمل بشكل جيد. يبقى سؤال وحيد أخي: و هو هل تريد أن تبقى خاصية enable للحقل Operateur دائما false أم أنك تريد تغييرها في بعض الشروط. RealisationRe 7.rar

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

الله يحفظك يا أستاذ مواضيعك جميلة و مهمة

شكرا أستاذ خليل و أستاذ عبد الفتاح

جزاك الله خيرا أستاذ عبد الفتاح

if me.frtxt<14 and me.frtxt>27 then msgbox"السلام عليكم و رحمة الله و بركاته" end if في مكان السطر الثاني تكتب الأمر الذي تريده

نعم عزيزي هذا هو المطلوب شكرا جزيلا. لكني لم أجد الطريقة التي أفعل بها. يا ريت تشرح لي الطريقة أخي إذا أمكن ذلك.

للرفع...

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

السلام عليكم و رحمة الله و بركاته أخي. أخي لك جزيل الشكر على الملاحظات التي تقدمها. أعتقد أن الذي يعتمد على رقم الفاتورة لا يهمه أمر تسلسل الأرقام فهو ليس لديه مشكلة مع الترقيم التلقائي. أخي و أستاذي رمهان مشكور على المداخلة و يسرنا تعقيبك على هذه المواضيع فهذا يجعلنا نستفيد منك الكثير جزاك الله كل خير. بارك الله فيك على التعديل الذي أجريته فقد مكننا من تحسين الكود و عمل البرنامج. فقط أضيف هذا الكود لإخفاء الرسائل التحذيرية الخاصة بالحذف. DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True ليصبح الشكل الجديد للبرنامج كما في المرفق: تعويض الترقيم التلقائي.rar

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

و فيك بارك الله بالتوفيق إن شاء الله

و فيك بارك الله أخي بوعبد الله. هل لديك اسئلة أخرى أخي راح جاوبك عليها إذا كان بمقدوري

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

السلام عليكم. أخي يجب عليك أن تحذف ربط الحقول الرئيسية و ربط الحقول التابعة في خصائص النموذج الفرعي كما توضح الصورة التالية: RealisationReintegration - 5 - Copy.rar

السلام عليكم و رحمة الله و بركاته. الكل يعلم أن هناك مشاكل عديد تحصل عند حقل من نوع ترقيم تلقائي، و من أهمها التسلسل عند حذف سجل معين يختل التسلسل الرقمي. لذلك اقترح حلا ربما يكون مناسبا لتعويض حقل الترقيم التلقائي. هذا الحل يقوم بما يلي : 1- إضافة رقم تلقائيا و متسلسلا كلما أضفنا سجل جديد. 2- يقوم بإعادة ترقيم جميع السجلات عند حذف سجل معين من أجل الحفاظ على التسلسل الرقمي. الكود كالتالي: في حذث الحالي للنموذج نكتب: Me.الرقم = CurrentRecord في حدث عند النقر لزر الحذف نكتب: On Error Resume Next DoCmd.RunCommand acCmdDeleteRecord Me.Requery DoCmd.GoToRecord , , acNext For i = 1 To Me.Recordset.RecordCount Me.الرقم = CurrentRecord Next i DoCmd.GoToRecord , , acLast لكم التعليق و الإضافة أو إكتشاف الأخطاء و تحسينها. تقبلوا تحيات أخوكم صالح حمادي... تعويض الترقيم التلقائي.rar

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

للرفع...

الله يعطيك العافية بالتوفيق إن شاء الله

تفضل هذا هو الملف كما طلبت. Fixed_asset.rar

سوف أطلع على المرفق...

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