نجوم المشاركات

بسم الله الرحمن الرحيم الحمد لله ولا اله الا الله والله اكبر ربنا لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك سبحانك لا علم لنا الا ما علمتنا سألت سؤال وهو ازاى اعرض كل التقارير من خلال نموذج رئيسى انا منمتش من امبارح لانى كنت محتاج جدا للموضوع ده وبفضل الله رب العالمين ربنا انعم وتفضل على بالوصول لنتيجة رائعه ونظرا لافضال اهلى المنتدى على ولاساتذتى الكرام لهم كل الشكر والتقدير اهدى عملى المتواضع هذا اليكم حتى تعم الفائده النموذج المرفق يحتوى على - صلاحيات مشتخدمين -صلاحيات استخدام العناصر لكل مستخدم على حده -البحث والفلترة والتظليل لنتائج البحث وظهورها بلون احمر ايا كان موقع الحروف والارقام والبحث متعدد ومتقدم -نموذج لعرض كل قاعدة البيانات من خلاله بكل سهوله وايضا من خلال هذا النموذج يمكن عمل تصدير لاى تقرير بجميع الصيغ كما يمكن معاية التقرير قبل الطباعه ثم طباعة التقرير اتمنى ان تجدوا ما يسركم وينفعكم ان شاء الله لعلم كل ما ورد فى المرفق حصرى لمنتادنا فقط لان تصميم القاعده بتلك الكيفية ومعالجة البيانات من بنات افكارى طبعا ادين بالفضل لكل استاذ جليل او اخ كريم تعلمت منه او على يديه سواء بطريق مباشر او غير مباشر المرفق عباره عن ملف تيكست به رابط تحميل من المدياي فاير File size: 2.73 MB =================================================================== READ IT.txt مثال شامل.rar

أخواني في المنتدى.. محاولة بسيطة مني في تبسيط عمل الكود وجعله مرن مع خيار التراجع. إليكم المرفق: sub total loop.rar

For i = rowdiv To lastRow Step rowdiv 'اكتب هنا الكود المناسب Next اخي الزباري لماذا المرور على كل العامود خلية خلية في حين يمكنك استعمال هذه For Netx في الكود ملاحظة اخرى يمكنك استعمال هذا الكود البسيط للتراجع Sub salim_way() On Error Resume Next lastRow = Range("b1").End(xlDown).Row Range("a2:a" & lastRow).SpecialCells(4).EntireRow.Delete Range("c2:c" & lastRow).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete End Sub ارجو تقبل هذه الملاحظات و ذلك من اجل كود اسرع و متكامل وخدمة للاخرين حيث بمكن ان يكون هناك بيانات كبيرة مما يوفر الوقت

منوّر يا أباحمزة تحياتي

السلام عليكم ورحمة الله اكتب المعادلة التالية فى الخلية "B2" ثم اسحب نزولا =SUMIF(Sheet1!$A$1:$A$24;$A2;Sheet1!$B$1:$B$24)

السلام عليكم احبتي بعد التمعن قليلا نتج معي التالي : 1. عند تجربتي لم استخدم المفتاح انتر بعد الادخال وانما استخدمت الماوس فلم تظهر المشكلة وعند التجربة قد قمت بحذف الكود الزائد وهنا اعتقدت ان المشكلة تكمن في الكود بينما المشكلة تظهر عند استخدام الانتر وحصرا فقط عندما يكون الادخال في السجل الاخير . وهنا اعتذر منكم احبتي 2. كانت هي ليست مشكلة وانما من الطبيعي انه عند الوصول للسجل الاخير بالنموذج الفرعي ثم الضغط على انتر ان يتقل التركيز للرئيسي ومن ثم سجلا جديدا لان الخيارات في الاكسس ومن خيار اعدادات العميل تجد الانتقال للحقل التالي لسلوك مفتاح الادخال . كما يمكن اظهار نافذة tab order لمعرفة تسلسل التاب فالنموذج الفرعي هو احد العناصر للنموذج الرئيسي . المقترحات : 1. وضع خاصية دورة للنموذج الرئيسي ومن التاب غير ذلك الى = السجل الحالي . فهنا عند الضغط على انتر بعد الرسالة وانت في السجل الاخير لا يذهب للرئيسي وسجل جديد الا اذا كنت محتاج وعمدا انه بالضغط على الانتر باستمرار ان يلف على سجلات الفرعي وعند الاخير يبدا بسجل تالي في الرئيسي وهكذا 2. الاستاذ اباجودي قام بتغيير موقع الحدث وعلى مستوى النموذج الفرعي وقبل التحديث فلافضل الاستفادة من الباراميتر cancel وبوضع cancel=true بديلا للتراجع والغاء الحدث 3. الاستاذ صالح حمادي استخدم الانتقال للسجل الاخير مما اجبر الاكسس عدم الذهاب للنموذج الرئيسي وهنا لو كان التعديل في وسط السجلات سيذهب دائما للاخير مما يجعلك تعيد البحث عن السجل الآنف تعديله وبصعوبة قليلا اتمنى ان ظهر السبب استاذنا محمد ايمن لعله يبطل العجب ولكم اجمل التحايا

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

استاذ الزباري انت انسان رائع اشكرك من كل قلبي بارك الله فيك

السلام عليكم ورحمة الله تم استبدال المعادلة بكود لنسخ البيانات المطلوبة Book1.rar

تفضل اخي حسين AMAN جديد.rar

نورك مغطى على كل الانوار أخى الفاضل الزباري .. تحياتى

وهنا عملت استعلام لجمع ايام الغياب على اعتبار ان الذي لم يوقع انصراف يعتبر غائب calc time emp3_ v0.03.rar

السلام عليكم ورحمة الله انسخ هذا الكود فى موديول جديد وخصص له زر Sub SumCols() LR = Range("A" & Rows.Count).End(xlUp).Row + 1 For R = 2 To LR Step 2 x = 0 For C = 8 To 1 Step -1 x = x + Cells(R - 1, C) Cells(R, C) = x Next Next End Sub

السلام عليكم فرق بين الطريقتين ( حصر التواجد / حصر التأخر ) حصر التواجد لم اعمل به من قبل وهو ما تعمله انت الآن لن تعدم فائدة : انظر في الاستعلام qry_actual_time رصدت فيه التأخر calc time emp2_ v0.03.rar

المرفق: فاتورة ديناميكية 6.rar

اطلعت على الجداول والاستعلامات اما النموذج فيحدث مشكلة عند ضغط الازرار ( نتيجة التحويل ) انا نقلت لك تجربتي .. وهي تجربة وحيدة .. لم اقتبسها من احد .. وقد تكون طريقتك افضل المهم : النتائج .. اذا كانت صحيحة ودقيقة ، وان تكون العملية امام المستخدم سهلة ومرنة ولو كشفت لك الايام طريقة افضل فيمكنك التحول بكل يسر وسهولة

والافضل من ذلك هذا الكود اليسبط Sub Macro1() Range("AZ1:AZ300").SpecialCells(xlCellTypeFormulas, 23).ClearContents End Sub للعمل حسب الماكرو عندك استبدل السطر المذكور بهذا If Cl.HasFormula Then

السلام عليكم ورحمة الله تم الوصول الى الحل وتأخر الرد بسبب انقطاع الانترنت فى حالة وجود نيجة خطأ فى خلايا المبلغ يرجى الضغط على CRTL + SHIFI + ENTER اليك الملف test1.rar

التفسير الميسر مجزأ وذلك لخدمة الأعضاء لعمل برنامج التفسير الميسر اكسيس.rar رجاء الدعاء

محاولة :) جرب test2.rar

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

اهلين اخوي ابا جودي انا بدأت من الصفر في الاكسس من تقريبا 5 او 6 شهور ولا زلت متعلم لا ابحث لما هو جديد ... فقط الذي اريده لينجز مهام عملي بسرعه ... بعد التعب اصبت باحباط عند المشاركه من البطئ والحماية كيف احمي مجلد البرنامج من العبث ؟ كل المستخدمين يجب ان امنحهم الصلاحية الكاملة للمجلد ونسخة الاختصار التي لديهم ... لو واحد ضغط كلك يمين يأتيه خيار ( فتح موقع الملف ) !! ولا اضمن احد فيهم تمنيت لو كان هناك في الاكسس خيار للببلش كتطبيق ذاتي ومن هنا اجبرت ان ابحث لحل دخلت في بحر السيرفرات وال my sql وكيف تجعل التطبيق ذاتي والتحزيم وفغرت حتى الان والان ... بطلت ان اتعلم شي حتى تعود لي الرغبه واحد من الشباب انتقدني لاني عملته بالاكسس ... وقال لو ذهبت للفجوال بيسك افضل وفيه خيار للببلش اخبرني كيف شاركت برنامجك ؟ باذن الله حين انجز البرنامج انا ايضا سارفقه هنا لو لا الله ثم الاعضاء لما انجزته وخصوصا ابو خليل في بداية المشوار

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

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

سبب هذة المشكلة ان الكمبيوتر الثاني يستخدم نسخة اوفيس اصدار 64 بت وعليك استخدام PtrSafe قبل كلمة Function لحل المشكلة وعلية يصبح الكود المعدل كما يلي Private Declare PtrSafe Function apiShowWindow Lib "USER32" _ مع تحياتي

السلام عليكم اخ ابو جودي احذف من الكود السطر التالي Form_SearchList.txtSearch2.Value = vSearchString كذلك يمكن اختصار الكود Me.txtSearch2.Value=Me.txtSearch.Text Me.SearchList.Requery

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

السلام عليكم نعم تنجح المعادلة مرفق الملف وبه الطريقتين والتواريخ غير مرتبة sumifs_sumproduct.rar

لا ياأخي هذه خاصة بالـ 2007 ومابعده يمكنك الإستغناء عنها بالدالة SUMPRODUCT كما أشار حبيبنا أبوأحمد في مشاركته ضع في نفس المثال السابق المعادلة التالية =SUMPRODUCT(--(B2:B13<=G2),--(B2:B13>=F2)*C2:C13)