أبوبسمله

اخى الفاضل قم بالدخول الى محرر الاكواد عن طريق Ctrl+f11 ومنها على Tools ومنها الو اختيار References ومنها اضغط على Browes لتختار الاداه من الملف ان شاء الله يشتغل معك بعد الاضافه بالتوفيق

اهلا بك استاذ على ان شاء الله يفيدك احد الاخوه فى تعديل الكود ليتناسب معك لاننى الى الان استعمل اوفيس 2003 بالتوفيق

اخى الكريم هل قمت باضافة الاداه المرفقه مع الملف المسماه YsVedPic.OCX ان كنت لم تضفها اضفها وجرب مره اخرى و ان كنت اضفتها ولم يعمل معك فلعل احد اخوه يوافيك بمثال اخر بالتوفيق

لم استطع الاطلاع لانى بستخدم اوفيس 2003 وقمت برفع مثالك هنا لتوفير للتسهيل لباقى الاعضاء لمشاركتك الحل ان شاء الله بالتوفيق البحث.rar

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

اتفضل هذا مثال لاحد الاخوه ان شاء الله تستفاد منه بالتوفيق BackupCompactRepair.rar

اتفضل هذا مثال لاحد الاخوه هنا بالمنتدى لا اذكر من هو حاليا بالتوفيق myPic.rar

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

للرفع

للرفع

للرفع

جزاك الله خيرا اخى جعفر فعلا كنت اعتقد بأنه يجب تنصيب الاوفيس 64 بت على الوندوز 64 بت شكرا لك على التوضيح

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

جزاك الله خيرا أخى جعفر تمام بارك الله فيكم اخوانى الكرام وجزاكم الله عنا خير الجزاء

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

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

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

إتفضل اخى الكريم ان شاء الله يكون ما طلبت داله اليوم بالتاريخ.rar

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

وزيادة فى اثراء الموضوع دالة IF لاكثر من 14 شرط هذا المرفق قد حملته من هنا من قبل 3 طرق مختلفه وعلى اكسيل 2003 بالتوفيق للجميع دالة_IF_لاكثر_من_14_شرط.rar

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

قمت بإنشاء تقرير أخر وهو تقرير خصم الراتب والعموله جلب الموظفين اللذين قامو باجازات اكثر من 15 يوم فى شهر 30 يوم او جلب الموظفين اللذين قامو باجازات اكثر من 16 يوم فى شهر 31 يوم او جلب الموظفين اللذين قامو باجازات اكثر من 14 يوم فى شهر 29يوم ولكنى لم افلح فى ضبط الكود Dim H, I As Long, Found As Range Dim lRow As Long Set WS = Sheets("ÊÞÑíÑ ÎÕã ÇáÑÇÊÈ æÇáÚãæáå") Str = WS.Range("B3").Value And WS.Range("d3").Value lRow = 7 Application.ScreenUpdating = False WS.Range("A7:C1000").ClearContents For H = 6 To Sheets.Count For I = 6 To Sheets.Count Set Found = Sheets(H).Columns("H:H").Find(Str) Set Found = Sheets(I).Columns("I:I").Find(Str) If Not Found Is Nothing Then If (Found.Offset(0, -1) > 4 And Sheets(H).Range("D5").Value >= 50) Or (Found.Offset(0, -1) > 3 And Sheets(H).Range("D5").Value < 50) Then WS.Cells(lRow, 1) = Sheets(H).Range("B3") WS.Cells(lRow, 2) = Sheets(H).Range("A1") WS.Cells(lRow, 3) = Found.Offset(0, -1) lRow = lRow + 1 End If End If Next H Next I Application.ScreenUpdating = True اعتذر لكم عن طلبات التعديل فليس لى خبره بكتابة الاكواد ولكن احاول 2New2.rar

جزاك الله كل خير اخى ياسر وبارك الله لك فى اهلك ومالك ورزقكك راحة البال

جزاك الله كل خير أخى ياسر تمام كده تم جلب الموظفين الاكبر من 50 ولهم اجازات اكبر من 4 يبقى لسه من هم اقل من 50 سنه ولهم اكثر من 3 ايام وجزاك الله عنى كل خير

مرحبا بك اخى ياسر قمت بتعديل الجزء التالى كما أشرت Set Found = Sheets(H).Range("D5").Value > 50 لكن يعطينى خطأ رقمه Object required (Error 424)