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

برنامج يمكنك من متابعة السيارات بالشركه سواء الزيت او البنزين يارب ينال اعجابكم الباسوورد 2545 1918844418_.accdb

الخلايا المدمجة من جديد (تقوم بارباك اي ماكرو و اي معادلة) تم ازالة الخايا المدمجة التي يسري عليها الكود انظر الى الملف واضغط فقط على الزر في صفحة Repport Rawateb.xlsm

استاذ @jo_2010 عندما نرغب في تنفيذ زر امر من خلال زر اخر فلدينا عدة طرق اذا كان كلا الامرين في نفس النموذج ممكن استخدام الامر Command18_Click Command18 هو زر الامر المراد تشغيلة الطريقة الثانية Call Command18_Click اما اذا كان الامر المراد تنفيذ في نموذج رئيسي ونرغب في تنفيذة من نموذج فرعي او العكس Form_invoices2.Command18.SetFocus SendKeys "{Enter}" وهنا نقلنا التركيز لزر الامر ثم ارسلنا امر انتر والطريقة الاخرى بدون نقل التركيز وتفيدنا في حالة كان زر الامر غير قابل للتركيز كان يكون مخفي او ان التركيز حاليا في نموذج منبق ونرغب في تنفيذ امر بعد اغلاق النموذج المنبثق فيمكن ولكن بعد اجراء تغيير على زر الامر ليكون عام وليس خاص تغيير زر الامر من Private Sub Command18_Click() الى Public Sub Command18_Click() ثم يكون الكود على النحو التالي Call Form_invoices2.Command18_Click امل ان يكون فيما سبق رد على استفساركم استاذي الفاضل

أكثر من مرة اكرر لا لزوم لدمج الخلايا حيث توجد معادلات الحل هنا HISHAM_1.xlsx

Form_ff.صفحة1.SetFocus نفس الكود السابق وبدون الحاجة الى ارسال امر مفتاح enter

وعليكم السلام شوف هل يناسبك هذا التعديل لم اعتمد على حقل السند وجعلتهولك تكست وغير ممكن جزاه الله خيرا اخى واستاذنا رضوان على هذا الكود تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق من 2018.rar

السلام عليكم مشاركة مع اخي رعد داود https://www.flaticon.com/most-downloaded http://www.iconarchive.com/tag/download http://www.iconarchive.com/browse.html https://www.freepik.com/popular-icons تحياتي

جرب هذا الملف MY_test (4).xlsx

تفضل لك ما طلبت Data.xlsm

في العادة يكفي نقل التركيز للتبويب المطلوب ولكن لكونك تستخدم نماذج فرعية فالامر يختلف قليلا Form_general.زر_التنقل7.SetFocus SendKeys "{Enter}" اولا نقلنا التركيز للتبويب ثانيا ارسلنا امر انتر لفتح التبويب الملف مرفق HR_Update.accdb

أ.Eng. Abdullah جرب التالى ووافنى بالنتيجة objXLApp.Visible = False objXLApp.Application.Visible = False

عد الجمايل

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

وعليكم السلام الفكره عمل سجل للسيارات واعطالها

تم معالجة الامر Example3.xlsm

السلام عليكم اخي العزيز هذه المرحلة الاولى لعمل البرنامج ( اريد ملاحظاتك عنها) 1- حساب عمر الموظف من تاريخ التولد باليوم والشهر والسنة ( يفيد هذا لحساب سن التقاعد بصورة آلية ) علما انني حددت سن التقاعد 60 سنه ةيظهر حقل حالة الموظف باللون الاحمر اذا كان سن التقاعد 60 وغيرها باللون الاخضر. 2- حساب سنوات الخدمة باليوم والشهر والسنه ( يفيد هذا لحساب الخدمة الوظيفية ) 3- يمكن اجراء حسابات الراتب بالشكل الذي تريدها اعلمنا ملاحظاتك تحياتي Database1.rar

موضوع شبيه فى الاكسيس

هل التقرير من جدول او استعلام؟؟ إذا الجدول فان صيغة شورت ديت يظهر لك التنسيق يوم شهر سنه وإلا فكما قال لكم الاستاذ، ابو خليل اعمل تنسيق حقب جديد في الاستعلام

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

السلام عليكم ,,, المعادلات الخاصة بإيجاد القيم كلها رقمية ولذلك لا يتم التعرف علي الرقم مع وجود اي علامة قبله او بعده وشكرا . test.xlsx

استاذى kha9009lid خالص الشكر على الحلول التى تقدمها لى شكرا خالص ياعبقرى وسؤال على الماشى هل يمكن التعامل مع (عنصر تحكم علامة الجدولة ) الموجود فى ادوات التصميم بنفس طريقة التعامل مع تبويبات النموذج اكرر شكرى يالستاذنا الجليل

شكرا اخي خالد على الرد انا اريد هده العمليات في حقل واحد و حمد االه لقد حل المشكل وللإفادة هدا هو الكود )))qte_e2: Somme(VraiFaux([type facture]="achat";[QTE_E];VraiFaux([type facture]="retour";[QTE_E]*-1;0

و هذا رابط موضوع مثيل فى الوورد

أ.Eng. Abdullah جرب هذا الكود لفتح وغلق ملف اكسيل بالتوفيق Dim objXLApp As Object Dim objXLBook As Object Set objXLApp = CreateObject("Excel.Application") objXLApp.Visible = True Set objXLBook = objXLApp.Workbooks.Open(مسار الملف مثلا"D:\library\library.xlsm") objXLApp.Application.Visible = True objXLBook.Save objXLBook.Close objXLApp.Quit

السلام عليكم زر "تقرير الطباعة" لم يكن مرتبطا بكود الطباعة Printing بل كان مرتبطا بالكود sama الخاص بـ "كشف حساب عميل"... تم التصحيح في المرفق وأرجو أن يفي الغرض المطلوب... entag tam - Copy - Copy.xlsm

مشاركة مع اخي الاستاذ خالد اذا كان مصدر التقرير استعلام ، اعمل عمود جديد وضع هذه القيمة فيه واجعله هو مصدر بيانات الحقل date1 : format([textedate];"dd/mm/yyyy") باعتبار textedate هو حقل التاريخ الموجود في الاستعلام اذا توصلت للحل والا كما اشار عليك الاستاذ خالد بارفاق مثالك

اخي العزيز ارفق لنا ملفك لغرض التعديل او مثال انظر الخيارات الاقليمية في وندوز : لوحة التحكم / المنطقة واللغة وانظر في اعداد وخصائص التاريخ تحياتي ضبط التاريخ 1.bmp ضبط التاريخ 2.bmp

تفضل اخي حسب مافهمت من سؤالك اتمنى يكون المطلوب تحياتي اعلمنا النتائج اخي الكريم test 2.rar

تفضل اخى الكريم فمثلا هذه هى معادلة جلب اسم الموظف من رقمه =INDEX(staff!$B$3:$B$7,MATCH(C1,staff!$A$3:$A$7,0)) اول جزء من المعادلة وهو Index لابد ان يأتى بعدها عمود البيانات المطلوبة , وبما ان عمود اسماء الموظفين الموجود بصفحة Staff هو العمود الثانى أى عمود B ويبدأ من الخلية B3 ..فاصبح نطاق هذا العمود من B3:B7 او الى اخر خلية تريدها وبها بيانات فممكن الى B500 فليس هناك مشكلة فى هذا أما بالنسبة للجزء الثانى من المعادلة بعد وضع هذه العلامة , أو المنقوطة ; حسب اعدادات الكمبيوتر لديك فهناك باقى شرط المعادلة لإيجاد الناتج وهو Match ثم بعد القوس يتم وضع رقم الخلية للبند ان نبحث به وهو رقم الموظف بصفحة Info وتكون فى المعادلة C1 ثم يتم وضع فاصة , وبعد ذلك يوضع نطاق عمود أرقام الموظفين من الصفحة الأخرى Staff ويكون العمود الأول A وكما اتفقنا يبدأ نطاق الجدول من الصف الثالث فتكون A3 : A500 مثلا ثم بعد ذلك وضع فاصة كمان , ثم الرقم 0 صفر وبعد ذلك غلق قوسين الأول لـ Match والثانى يخص جزء Index وبكده تكون انتهت المعادلة بارك الله فيك

اخي العزيز الشكر لله تعالى فقط لدي ملاحظات للعمل ولدي خبرة في مجال الرواتب والتقاعد والحمد لله 1- عند عمل قاعدة بيانات للموظفين وحسب علمي ان الموظف الذي يحال على التقاعد اما بسبب عمره تجاوز 60 عام او خدمة وظيفية لاتقل عن 25 سنه 2- هذه الامور توضع في البرنامج اساسا ( عمر الموظف و سبب الاحالة للتقاعد والخدمة الوظيفية و تاريخ المباشرة بالوظيفة ..... وهكذا ) هي تكون المعيار اساسا لغرض الاحتساب تحياتي لك واتمنى لك كل التوفيق (اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )

بارك الله فيك اشكرم اخي الكريم

أخى العزيز بهذه الطريقة يمكن عمل استعلام للشهر الاخير فقط بمعيار (استحقاق التقاعد) نعم لابد من وجود معيار بالاستعلام Q حتى يقوم بفرز السجلات كما تريد انظر للمرفق aa.rar

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

Video_2020-02-20_164500000.rar

السلام عليكم اخي العزيز ممكن عمل ذلك عن طريق خصائص الزر اضغط على الزر - ثم اذهب للخصائص - ثم تنسيق - ثم اختر لون المرور- ثم اختر اللون الذي يناسبك من قائمة الالوان تحياتي

اخي nawafabufars هل تقصد هكذا نموذج التقرير الشهري إدارة التقنية 2020 (1).xlsx

الحل 1.xlsx

وبما انك تعلم ان المنتدى تعليمى من المقام الأول ولبس لتقديم وعمل البرامج الجاهزة فكان عليك القيام بتصميم الملف الذى تريده بنفسك واذا تعثرت فى شيء فعليك برفعه هنا ولكن هذا برنامج بمقابل مادى اذا احببت برنامج إدارة شركات السفر و السياحة وهذا برنامج اخر مشروح داخل هذا الفيديو برنامج إدارة مكاتب السياحة و السفر , لمحة عامة - AHMAD's TTS

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

سيدي الفاضل عصام المحترم: تمام زي العسل / ولا استطيع رد الجميل لك الا بالدعاء وقد دعوت لك في ظهر الغيب ( بان تحتويك الدنيا بالفرح في كل امر . وان ترعاك عين الرحمن لابد الدهر . وان يبارك لك الله في اهلك وفي مالك ويرفع لك منزلتك بين البشر . اللهم امين)

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

السلام عليكم أخي الكريم تفضل ما أردت وفي نفس الجدول وبدون استعلام ولكن لن يعمل على اصدار اوفيس اقل من 2010 Database1.rar

أخي العزيز / herni يمكنك استخدام دالة COUNTIF عن طريق المعادلة التالية : =COUNTIF($A$1:$A$25;E5) ثم تقوم بسحبها للأسفل جرب المرفق أخي العزيز جدول الموظفين.rar

اسعد الله اوقاتكم الاخوة / الاساتذة المحاسبين القانونيين / مراجعي ومدققي الحسابات ( الجارية والختامية ) مرفق ملف " برامج المراجعة الشاملة لجميع البنود " من اعمال الاستاذ : إعداد وتحرير وتصميم: محمد فوزي سلام ارفعه بدون اي تعديل وهو ملف اكسل بدون اكواد او معادلات ( ملف ملاحظات ) ولكنه برأي ( كمحاسب قانوني ) مهم جدا لكل المهتمين بأعمال مراجعة الحسابات اتمنى ان يعجبكم عند دخول السادة المحاسبين سيعرفون ما بداخله بدون شرح وفقكم الله ياسر الحافظ " ابو الحارث " برامج المراجعة الشاملة لجميع البنود.rar

اســـــــــــــــــتاذنا الكبير عادل حنفي : شكرا لمرورك وتشجيعك سررت جدا بمرورك وكنت قلت في السابق اتمنى ان نكون عند حسن الظن ولكن الظروف ؟؟ احيانا تجبرني على الانقطاع بعض الشيئ اشكرك مجددا وفقك الله ياسر الحافظ " ابو الحارث "

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

السلام عليكم =========== هذا حل اخر بالمعادلات Book1.rar

السلام عليكم ورحمة الله أستسمح أخي طارق وأقدم ثالث وسيلة باستخدام COUNTIF أنظر المرفق st3.rar

السلام عليكم أول وسيلة وأسهلها الجداول المحورية مع خيار التجميع أنظر المرفق st1.rar