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

ابوخليل

أوفيسنا
  • Posts

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

  • Days Won

    237

كل منشورات العضو ابوخليل

  1. شكرا لكم احبتي على ثنائكم العطر تم نقل الروابط الى جدول اكسس مؤكد بحاجة لتحسين العمل وتسهيل البحث بعمل نموذج DataSearch.rar
  2. ضع المعيارين تحت بعض واحد في سطر : المعايير والثاني في سطر : أو او اكتب المعيارين في سطر واحد وافصل بينهما بالدالة OR
  3. في هذا الموقع قسم خاص بطلبات الأعضاء بمقابل هنا اعرض طلبك والذي تريد هناك ولا تنسى تضع وسيلة تواصل معك الموقع غير مسؤول عن ما يتم من اتفاق بينكما
  4. جزاك الله خيرا ,, ووهبك بمثل ما دعوت
  5. الخلاصة : وحتى يغلق الموضوع وينتهي النزاع : في هذا الموضوع خاصة لسنا بحاجة الى تقييم الافضل فصاحب الحاجة هو ادرى بحاجته ان اراد العدل والدقة محاسبيا للمستحقات سيختار ما تفضل به الاستاذ ابواحمد . وان اراد اعدادا صحيحة لتوظيفها في حسابات وعمليات اخرى سيختار ما تفضل به الاستاذ قاسم . أسأل الله الكريم ان يغفر لنا ولكم .
  6. السلام عليكم اهداني اخي العزيز @حسونة حسين ملف اكسل يحتوي على جميع مواضيع منتدى اكسس وبروابط مباشرة اضعه بين ايديكم لا تنسونا من دعوات صالحات *********************** ( إضافات للموضوع - Moosak ) قمت بعمل تصميم بسيط لنموذج البحث وأضفته إلى الموضوع الرئيسي بعد أذن أستاذنا أبو خليل 🙂 بمجرد الكتابة تظهر النتائج .. لاستعراض الموضوع يتم الضغط على العنوان مباشرة النقر المزدوج على مربع البحث يعيد إظهار جميع النتائج 🙂 يمكن البحث بكلمات متفرقة في الجملة .. Search_Officena_Access.rar ********************************************** Access.rar
  7. هههههههههه .. اضحك الله سنك صدقت .. والسبب انه اذهلني السطر الذي تفضل به اخونا قاسم رجعت له الآن ويا للهول فيما يخص عملي نعم يعجبني هكذا .. ولكني لست ندا لكما .. على قولتهم لا تمزح مع الجمال وانت حويشي
  8. استاذنا اذا لم يتح فلا بأس فليس من الاهمية بمكان .. الأهم هو معالجة المشكلة في ارسال الصور كما بين الأخوة
  9. ايش هذا !!! كنت اظن اني جايب الذيب من ذيله .. راحت عليك يابوخليل يا سلام عليك .. نعم كذا .. انا الذي سأرشح افضل اجابة بناء على مطلوب ابوهاله كعدد صحيح بدون كسر فيما يخصني داخل المثال قمت باستبدال الكود باجابتي السابقة الى السطر الذي تفضلت به ,, ووضعت قبله احتراز عدم ظهور النتيجة بالسالب واضفت الدالة الى استعلام جديد .. ليختار صاحب الموضوع الطريقة التي تناسبه لم اقل هذا وانما نسبته لصاحب الموضوع . اهل مكة ادرى بشعابها .. وما قصرت يابو احمد .. كتب الله اجرك months30Up.rar
  10. اختلف برنامجي في رمضان واحتاج الى ايام لتنظيم الوقت المتاح للمنتدى ، ولكن شدني النداء نعم انت نبهته ان هو اراد الناتج مع الكسور ووافق .. ورأيت التعديل .. كتب الله اجرك ابا احمد ، هو رأى نتيجة المهندس قاسم بلا كسور فكانت اقرب الى نفسه ولكن التطبيق من خلال الكود اكثر احترافية .. فلما عاتبته قام بالغاء افضل اجابة برجاء الحصول على نتيجة افضل . سأكون وسيط خير بينكم لعلي افوز بافضل اجابة ... دمجت الفكرتين وبفضل الله خرجت بهذا الكود آمل الاطلاع من الجميع والتقييم Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function months30.accdb
  11. @SEMO.Pa3x بعد التجربة اتضح ان المثال يستخدم واتساب ويندوز .. وليس واتساب ويب هل يمكن فتح الواتس من قوقل مباشرة
  12. غير الفاصلة ; الى الفاصلة , "RD" & [report_No] & Format([txt5],"mm" & Format([txt5],"yy"))
  13. اذا في النموذج ضع في الحدث الذي تراه مناسب لأحد الحقول ولنفرض ان الحدث بعد التحديث اذا اعتبرنا ان اسم الحقل المنضم txtNo txtNo="RD" & [report_No] & Format([txt5];"mm" & Format([txt5];"yy"))
  14. راجع تواريخك .. هذا لا يمكن .. انت كتبت هذا التاريخ عدة مرات .. ربما يقصد 1-3 وليس 30-3
  15. وجدت لك مثالا يساعدك تم تطبيق الدرس في الرابط اعلاه اخراج المستخدمين من التطبيق.rar
  16. يوجد حل جذري للمشكلة ويتطلب تصميم فورم يعمل مع اقلاع البرنامج ويستمر ويكون بشكل مخفي ويوجد به حدث على التايمر يتفحص وجود ملف بجانب قاعدة الجداول .. اذا لم يجده يعطي للمستخدم فرصة بعض الثواني ليحفظ عمله ثم يغلق هو آليا هذا رابط شرح لتطبيق العملية .. حاول ان تعمله وان استعصى عليك شيىء اطرحه هنا
  17. اي عيب واي اسلوب .. يظهر ان الخلل عندك ,, لو انت طالب عندي في الفصل عاقبتك ووقفتك على رجل واحدة . استاذ بذل وقته وجهده وعلمه في خدمتك .. وهذا ردك !!! علما انه لم يقل الا خيرا .. وصدقا . جميع امثلتك السابقة التي رفعتها مضروبة .. ما عدا الاخير وعلى شان انك جديد في المنتدى فانا اطلب من المهندس قاسم التغاضي والمسامحة .. .. نحن في الليلة الأولى من رمضان وايضا سنزودك بالحل والحل .. يوجد حدث في الحقل المذكور ( ماكروا ) فقط احذفه
  18. تم ضبط المرفق حسب المستخدم وقسمه الطلبية الآن في القسم الاداري والموظف يوزر = 10 وباسورد=10 الادمن حسب الوظيفة = admin بغض النظر عن القسم DataUser2.rar
  19. ابشر .. سأنظر فيها .. امهلني فقط اجد الوقت
  20. عمل جميل جدا ومتقن لكني اسأل لماذا انتظر ؟ اذا عمليات تجري في الخلفية والانتظار من اجل تكتمل فهذا جيد وحينها يجب الربط بين الشريط وبين الزمن الذي تستغرقه العملية
  21. القائمة او نموذج فرعي هذا الذي اعلمه
  22. اللهم اهله علينا بالأمن والإيمان وسلامة القلوب والأبدان
  23. لأن العنوان الحالي مختلف لذا رأيت ان افرد له عنوانا يخصه تفضل هنا
  24. السلام عليكم خاص لقاعدة البيانات المنقسمة قد يحدث مشكلة لقاعدة بياناتك على الخادم وحينها تضطر الى الدخول للموقع وعمل ضغط واصلاح يدويا في هذا الموضوع ارفقت نموذج ووحدة نمطية تقوم نيابة عنك وبضغطة زر باخذ نسخة اولا ثم الضغط والاصلاح نسختين .. mdb و accdb انقل لبرنامجك النموذج والوحدة النمطية غير اسم الجدول المحاط بالمربع الأحمر الى احد جداولك المرتبطة Private Sub zer1_Click() Call BKUpdb Call CompactSer End Sub نسخة جداول واصلاح.rar
×
×
  • اضف...

Important Information