Eng.Qassim

خدعتني هذه الجملة .. ولم اكلف نفسي بتتبع الكود 🤣

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

وعليكم السلام استاذ احمد بصراحة لم استطع العمل على ملفك لانه 32 بت ارفق لك مثال وطبق عليه .. وان كان لديك اي استفسار فانا بالخدمة اهم شي ان تختار من Design.... web Browser control وتختار من ال tools المكتبة ... Microsoft Office 15.0 object library pdf Display.rar

حمد الله على السلامة استاذ محمد ..مشتاقون جدا لمشاركاتك الجميلة بالنسبة للدالة التي ذكرتها من مايكروسوفت تحسب الفرق بين تاريخين دون الجمعة والسبت ..وبالحقيقة استخدمها في عملي لحساب مدد المشاريع (ايام عمل ) بالنسبة للعطل فاعمل جدول خاص ثم احسب عدد العطل لاطرحها من القيمة الاولى ..صحيح انه فيه نقطة ضعف ان ايام العيد ربما تصادف الجمعة والسبت لكني متجاوز هذه النقطة هذا الشق المفروض انك جاوبت عليه حتى يكون البرنامج احترافي وممكن اي شخص يعمل عليه لكن تظهر لي مشكلة ..انه من تاريخ 01/06/2022 لغاية 12/06/2022 تظهر لي 8 ايام مع العلم اني استخدمت الاستدعاء الاول

ههههه والله انا فهمت هيك...على كل حال زيادة في المعلومات واثراء الموضوع

وعليكم السلام هذه الدالة من موقع مايكروسوفت ..اذا كان تنسيق اللغة عندك بالعربي ..اما اذا بالانكليزي فقم بتغيير اسماء السبت والجمعة بالنسبة للعطل الرسمية اجعلها في جدول منفصل ثم استدعي مجموعها لتطرحه من عدد الايام التي تظهر لديك Function Work_Days(BegDate As Variant, EndDate As Variant) As Integer Dim WholeWeeks As Variant Dim DateCnt As Variant Dim EndDays As Integer On Error GoTo Err_Work_Days BegDate = DateValue(BegDate) EndDate = DateValue(EndDate) WholeWeeks = DateDiff("w", BegDate, EndDate) DateCnt = DateAdd("ww", WholeWeeks, BegDate) EndDays = 0 Do While DateCnt <= EndDate If Format(DateCnt, "ddd") <> "السبت" And _ Format(DateCnt, "ddd") <> "الجمعة" Then EndDays = EndDays + 1 End If DateCnt = DateAdd("d", 1, DateCnt) Loop Work_Days = WholeWeeks * 5 + EndDays Exit Function Err_Work_Days: ' If either BegDate or EndDate is Null, return a zero ' to indicate that no workdays passed between the two dates. If Err.Number = 94 Then Work_Days = 0 Exit Function Else ' If some other error occurs, provide a message. MsgBox "Error " & Err.Number & ": " & Err.Description End If End Function

وعليكم السلام مشاركة مع اخي @مبرمج سابق وحسب فهمي ايضا .. استخدم الكود التالي لتنسب اسم التقرير للمتغير Reports(strReportName).Caption = "ct17R2"

اخي العزيز ..حاول ان ترفع ملفك على المنتدى لاني لم استطع تحميل الملف من الروابط

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

ربما هذا الموضوع يفيدك

نعم هذه المشكلة ظهرت عندي قبل فترة ..لكنها بعد فترة اعيدت التنسيقات

احسنت استاذي لا اعلم لماذا نفكر بالحلول الصعبة ..مع ان هناك حلول ابسط 😄 هل تعلم استاذ احمد باني كنت اعملها بداية تعلمي الاكسس ...الظاهر نسيتها مع الزمن

وعليكم السلام في مثل هذه الحالات نستخدم دالة Dlookup للسهولة TestCOMP.rar

وعليكم السلام لاخفاء الصور واظهارها في التقرير ضع الكود في Details...on Formatting جرب التعديل مثال الصور والتقرير.rar

استاذ @محمد القدسي اين الفرق حينما تبعث بملف حجمه 20 ميكا ... عن ملف حجمه 1ميكا او اقل ؟ صدقني لن تجد جوابا لسؤالك ... لان مايكروسوفت هي من عمل ذلك واتمنى من احد الاخوة ان يعارض كلامي الضغط يشبه عملية Group في الاستعلام ...لكن حينما تضع له كلمة مرور قبل عمل Group فانه لن يستطيع عمل تجميع

جيل الطيبين 😂

وهذا كود الاستاذ @Barna.. للاخوة الاعضاء الذين يحتاجونه اهم شي ان تجعل مصدر الصف = value list Random_Barna.rar

وعليكم السلام استاذ ابو عبد الله .. لدي كود random لايكرر الارقام ...لا اعلم ان كان يفيدك فقد جربته على 28 سجل random.rar

ههههه اصبحنا شيوخ ... ربي يعطيكم الصحة والعافية (شيخي العزيز)😄

حياك الله اخي @saffar انا اشتغلت مما فهمته من الصورة المرفقة ياريت ترفق مثال واقعي ومختصر ..يكون اقرب للفهم ..لاني اعتقد ان ملاحظات الاستاذ @خالد عبد الغفار.. في محلها

اضافة لما تفضل به استاذ خالد اضافة الى listbox عملت لك نموذج بحث متعدد multisearch.rar

وعليكم السلام.. هل هذا مطلبك؟ عملت نموذج فيه listbox Info list.rar

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

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

متابع... اود معرفة الهدف من ذلك ...