أبوبسمله

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

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

غريبه هذه الرساله اول مره أراها سوف احاول فيها مره اخرى عند عودتي من العمل بإذن الله أو يساعدنا احد اخواننا واساتذتنا ويمكنك ازاله علامه الصح مؤقتا كما أشار عليك الأخ الفاضل

يا استاذ @أكسس وبس بدل ما ترفع صوره ارفع مثالك او ملفك افضل واسرع

برجاء القرائه جيدا بالتوفيق

السلام عليكم اخى @محمد القدسي على ما فهمت من سؤالك واعذرنى لقله فهمى اتفضل حاجه بسيطه على قد حالى ان شاء الله تكون ماتريد تم انشاء وحده نمطيه Function strFind(txtFind As Integer) Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT tablesnadat.firstnosanad " & _ "FROM tablesnadat " & _ "WHERE tablesnadat.firstnosanad <=" & txtFind & " And tablesnadat.endnosanad >= " & txtFind Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do Until rs.EOF strFind = rs.Fields(0) ' Debug.Print rs.Fields(0) rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing End Function وتم استدعائها بالاستعلام كالتالى strFind([firstnosanad]) وتم استدعائها فالنموذج للحقل الملون بالاحمر Exfirstnosanad بنفس الطريقه =strFind([taslsolnosanad]) بالتوفيق اخى exambledata.accdb

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

تمام لديك الاكواد غير ما تشاء بالتوفيق

ازاي طيب امال ايه العلامه المطلوبه؟ بالرغم ان سؤالك كان عن هذه العلامه

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

لا ارى بالملف المرفق الخطأ الذى بالصوره المرفقه منك بالمشاركه السابق مثال.accdb

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

تسلم عينك معلمنا وشيخنا الجليل ابوخليل اللهم آمين واياكم وجميع اخوانى واساتذتنا جزاهم الله عنى وعن كل طالب علم خير الجزاء

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

ابشر معلمنا العزيز @jjafferr بعد حذف اوفيس 2003 تم العمل بنجاح ولكن الا يمكن العمل بوجود النسختين مع بعضهما ؟

مرحبا معلمنا وشيخنا الجليل @ابوخليل 💐 نعم لتوفير الوقت والجهد ورؤيه ما يريده السائل بوضوح والنظر فيه والتعلم معهم فمازلت احبو عالطريق لاتعلم جزاك الله خيرا وبارك الله لنا فيكم معلمينا الاعزاء اخوكم الصغير احمد

وعليكم السلام سواء فى الماكرو او محرر الاكواد استعمل التالى لايقاف الرسائل التحذيريه DoCmd.SetWarnings False ' ضع هنا استعلام الالحاق DoCmd.SetWarnings True بالتوفيق

وممكن كده Left([Num];InStrRev([num];".")-1) & Right([Num];Len([num])-InStrRev([num];".")) بالتوفيق

وعليكم السلام هل هذا ما تريد ؟ Replace([num];".";"")

للاسف لم يعمل عندى وان شاء الله سوف اوافيك بالنتيجه عند تجربته على جهازى بالعمل وبه نسخه اوفيس واحده بارك الله فيك وجزاك الله خيرا معلمنا العزيز جعفر على تعبك معنا 💐

تمام ولكن النطاق الذى تقصده من اول تاريخ والذى يقصده هو والله اعلم مثلا هو مسجل من تاريخ 27/1/2021 الى 27/2/2021 هو يريد البحث عن هذا السجل باى يوم يقع داخل هذا النطاق اى يوم 28/1 او 29/1 فيظهر له هذا السجل هذا ما فهمته وربما اكون قد فهمت خطأ ولكن بما ان الاستعلام لاظهار فعن نفسى ساحلها باضافة حقل نعم ولا ويتم تحديثه بناء على اخر يوم انتهاء وبذلك ساقوم بالتصفيه بناء على حقل نعم ولا لمعرفة المنتهى من الغير منتهى تقبلوا تحياتى ومرورى

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

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

مشاركه مع معلمنا العزيز جعفر جزاه الله خيرا راجع الرابط التالى

بالنسبه للنسخه السابقه عندي وجربتها فلم تعمل ملاحظه التطبيق يعمل معي جيدا عالملفات المعموله بإصدار ٢٠٠٣ فقط هذا للتوضيح اما الإصدارات الأعلى فلايعمل ويظهر عندي عند محاوله فتحه انه بيفتح الملفات ع إصدار ٢٠٠٣ وليس إصدارها ٢٠١٩ إن شاء الله خير بارك الله فيك وجزاك الله كل خير معلمنا العزيز