اذهب الي المحتوي
أوفيسنا

أبوبسمله

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3463

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    32

 نوع المحتوي 

كل منشورات العضو أبوبسمله

  1. أبوبسمله
    برجاء القرائه جيدا بالتوفيق
  2. أبوبسمله
    السلام عليكم اخى @محمد القدسي على ما فهمت من سؤالك واعذرنى لقله فهمى اتفضل حاجه بسيطه على قد حالى ان شاء الله تكون ماتريد تم انشاء وحده نمطيه 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
  3. أبوبسمله
    هتلاقيك مش ضابط الاكواد ممكن تغير الاعدادات كما اشار عليك الاخ الفاضل ولكن هتعمل هذه الخطوات كلما نقلت القاعده لجهاز اخر او اتفرج عالفيديهوات اللى ارفقها الاخ الفاضل فالمشاركات السابقه ايضا وستعرف الطريقه الصحيحه لوضع الكود سواء فالماكرو او فى محرر الكود بالتوفيق
  4. أبوبسمله
    تمام لديك الاكواد غير ما تشاء بالتوفيق
  5. أبوبسمله
    ازاي طيب امال ايه العلامه المطلوبه؟ بالرغم ان سؤالك كان عن هذه العلامه
  6. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله كل خير اى فاصله تقصد ؟ هل تقصد الفاصله المنقوطه هذه ; ام ماذا وضح لنا ولمن ياتى بعدنا ويطلع عالموضوع بالتوفيق
  7. أبوبسمله
    لا ارى بالملف المرفق الخطأ الذى بالصوره المرفقه منك بالمشاركه السابق مثال.accdb
  8. أبوبسمله
    لا يوجد مشكله بالدخول من حساب الفيس اخى واستاذى العزيز @محمد طاهر فاننى اقوم بالمشاركه منه حاليا جزاكم الله عنا كل خير
  9. أبوبسمله
    تسلم عينك معلمنا وشيخنا الجليل ابوخليل اللهم آمين واياكم وجميع اخوانى واساتذتنا جزاهم الله عنى وعن كل طالب علم خير الجزاء
  10. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اخى الفاضل بدل ان ترفق لنا صوره ورابط لموقع آخر قم بارفاق ملفك مباشره بالتوفيق
  11. أبوبسمله
    ابشر معلمنا العزيز @jjafferr بعد حذف اوفيس 2003 تم العمل بنجاح ولكن الا يمكن العمل بوجود النسختين مع بعضهما ؟
  12. أبوبسمله
    مرحبا معلمنا وشيخنا الجليل @ابوخليل 💐 نعم لتوفير الوقت والجهد ورؤيه ما يريده السائل بوضوح والنظر فيه والتعلم معهم فمازلت احبو عالطريق لاتعلم جزاك الله خيرا وبارك الله لنا فيكم معلمينا الاعزاء اخوكم الصغير احمد
  13. أبوبسمله
    وعليكم السلام سواء فى الماكرو او محرر الاكواد استعمل التالى لايقاف الرسائل التحذيريه DoCmd.SetWarnings False ' ضع هنا استعلام الالحاق DoCmd.SetWarnings True بالتوفيق
  14. أبوبسمله
    وممكن كده Left([Num];InStrRev([num];".")-1) & Right([Num];Len([num])-InStrRev([num];".")) بالتوفيق
  15. أبوبسمله
    وعليكم السلام هل هذا ما تريد ؟ Replace([num];".";"")
  16. أبوبسمله
    للاسف لم يعمل عندى وان شاء الله سوف اوافيك بالنتيجه عند تجربته على جهازى بالعمل وبه نسخه اوفيس واحده بارك الله فيك وجزاك الله خيرا معلمنا العزيز جعفر على تعبك معنا 💐
  17. أبوبسمله
    تمام ولكن النطاق الذى تقصده من اول تاريخ والذى يقصده هو والله اعلم مثلا هو مسجل من تاريخ 27/1/2021 الى 27/2/2021 هو يريد البحث عن هذا السجل باى يوم يقع داخل هذا النطاق اى يوم 28/1 او 29/1 فيظهر له هذا السجل هذا ما فهمته وربما اكون قد فهمت خطأ ولكن بما ان الاستعلام لاظهار فعن نفسى ساحلها باضافة حقل نعم ولا ويتم تحديثه بناء على اخر يوم انتهاء وبذلك ساقوم بالتصفيه بناء على حقل نعم ولا لمعرفة المنتهى من الغير منتهى تقبلوا تحياتى ومرورى
  18. أبوبسمله
    مشاركه مع اخواني واساتذتي جزاهم الله خيرا أرى أن تستخدم حقل واحد لبدايه الاجازه وحقل مده الاجازه رقم وحقل نعم ولا فالاستعلام هتعمل حقل نهايه الاجازه محسوب باضافه المده عالتاريخ وللتصفيه هنستخدم حقل نعم مغلقه ولا لسه مفتوحه اخي واستاذي محمد شغلك صحيح ولكن تقريبا وحسب فهمي للسؤال هو يريد إظهار السجلات الواقعه بين تاريخ البدايه والنهايه فاذا لاحظت هو مسجل سجل واحد وعاوز لما يستعلم بأي يوم ضمن هذا النطاق يظهر هذا السجل والله أعلى واعلم
  19. أبوبسمله
    وعليكم السلام اخى الفاضل ارفق مثال لما تريد وما توصلت له وما توقفت عنده لتجد المساعده من قبل اخوانك واساتذتنا جزاهم الله خيرا بالتوفيق
  20. أبوبسمله
    مشاركه مع معلمنا العزيز جعفر جزاه الله خيرا راجع الرابط التالى
  21. أبوبسمله
    بالنسبه للنسخه السابقه عندي وجربتها فلم تعمل ملاحظه التطبيق يعمل معي جيدا عالملفات المعموله بإصدار ٢٠٠٣ فقط هذا للتوضيح اما الإصدارات الأعلى فلايعمل ويظهر عندي عند محاوله فتحه انه بيفتح الملفات ع إصدار ٢٠٠٣ وليس إصدارها ٢٠١٩ إن شاء الله خير بارك الله فيك وجزاك الله كل خير معلمنا العزيز
  22. أبوبسمله
    اممممممممممم كده بقى المشكله هتكون ايه عندى وعند استاذ محمد الحلوانى ؟
  23. أبوبسمله
    للاسف معلمنا العزيز لم يعمل ايضا معى ولكن هناك امل طالما اشتغل مع اخى واستاذى خالد ع 2019 يتبقى ان نعرف اى نواه وكذلك اشتغل معى على 2003 فان شاء الله نصل عما قريب للحل باذن الله اخى واستاذى العزيز @kha9009lid اوفيس 2019 اى نواه ؟
  24. أبوبسمله
    نسختان 2019 ؛ 2003 لا نعم وأوقفت عمل الايرور حتى يقف ع السطر ووقف على هذا الجزء إذا كان هناك أي شيء آخر اقوم به وضحلي وساقوم بعمله معلمنا العزيز
  25. أبوبسمله
    انت تامر معلمنا العزيز فالكود السطر سامحني ع عدم الجوده فإنني استعمل الموبايل لسوء خدمه الإنترنت بالمنطقه ومتقطعه
×
×
  • اضف...

Important Information

  I accept