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

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

مساهمة مع استاذي خالد إذا كانت المادة غير موجودة في القائمة ستخرج رسالة هل تود إضافة المادة أم لا . أما مطلوب الحذف تم أيضا Sub.mdb

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

وعليكم السلام ورحمة الله وبركاته ATabsVer16.accdb

وعليكم السلام ورحمة الله وبركاته ضع في الاستعلام احد المعياريين <>"," او not "," مرفق ملفك بعد التعديل تحياتي Nouveau Microsoft Access Base de données.rar

وعليكم السلام-تفضل دالة طرح السنوات.xlsx

تفضل تم عمل كل طلباتك Book2.xlsm

الحمد لله ذي الرضا المرغوب، يعفو ويصفح ويغفر الذنوب... يملي ويمهل لعل العاصي يتوب، يعطي ويرضى ويحقق المطلوب... يُطعم ويَسقي ويستر العيوب، يغني ويشفي ويكشف الكروب... نحمده تبارك وتعالى حمدًا هو للذات العليا منسوب... ونعوذ بنور وجهه الكريم من شر الوسواس الكذوب... ونسأله السلامة فيما مضى وما سوف يأتي من خطوب... اما بعد موضوعنا هذا الشهر يشغل بال الكثيرين الذين يلجؤون للاقتراض التمويلي لشراء منزل او سيارة او اقامة مشروع ما ، وما يترتب علي هذا القرض من فوائد وبدون الخوض في الناحية الشرعية سوف نتاول كيفية حساب القرض الفائدة المركبة هي إحدى طُرُق احتساب الفوائد البنكية على القروض، وحيث أن الفائدة هي مقدار الزيادة على أصل المبلغ على أساسٍ سنوي، فإن الفائدة المركبة هي تركيب للفائدة وزيادة قيمتها – وليس نسبتها – على أصل القرض في كل سنةٍ من عمر القرض. وبما أن عوائد الفوائد هي المصدر الرئيسي لإيرادات البنوك في شتى بلاد العالم؛ فإنه يتم اتِّباع طريقة الفائدة المركَّبة على القروض وليس على الودائع؛ حتى يستفيد البنك من مقدار الفرق الهائل بين ما يدفعُه من فوائد للودائع للعملاء؛ وبين ما يأخذُه على القروض من فوائد. إجمالي المبلغ النهائي مع الفوائد يساوي أصل المبلغ مضروبا ب 1+معدل الفائدة مرفوعاً لعدد الفترات الزمنية. مثال : اقترض أحد الأعضاء من بنك أوفيسنا التجاري مبلغا وقدره 1000 وحدة نقدية بفائدة سنوية 10% لثلاث سنوات. يصبح المبلغ بنهاية المدة 1000 × ( 1.10 ^3 ) = 1000 × 1.331 = 1331 وبذلك تكون الفائدة المركبة بعد 3 سنوات 331 وحدة نقدية في حال كانت الفائدة بسيطة تكون قيمتها بعد 3 سنوات 300 فقط حيث تحسب على أصل المبلغ فقط دون اعتبار الفوائد المتراكمة ولحساب قيمة القرض باستخدام الدالة PMT =PMT(a,n,p) حيث a هي قيمة الفائدة (المتراكمة) في الفترة ، في هذه الحالة هنا الشهر n هي عدد الأقساط المتساوية ، في هذه الحالة هنا 36 p هي قيمة القرض ويوجد شروحات علي المنتدي لشرح الدالة بالتفصيل وشرح القيمة الحالية للفوائد المتراكمة . تسهيلا للبعض اعددت فورم بسيط يقوم بحساب القرض والفائدة المتناقصة (( وبدون الخوض في الأحكام الشرعية المتعلقة بالقروض )) شرح الفورم .... (1920x1080) اضبط تباين الشاشة على loan_calculator2.xls loan calculatorV1-2019.xls

تفضل لقد أضفت زرا آخر يقوم بإختبار حالة القاعدة هل هي مفتوحة أم مغلقة التحكم في نماذج قاعدة بيانات خارجية.accdb

الأستاذ هشام .. وعليكم السلام ورحمة الله ما فهمته هو ان لديك ثلاث شعب (إحصاء ـ رياضيات ـ إحصاء تطبيقي) .. تمام ؟ ولديك أيضا قاعتين ( 2309 ـ 1607 ) .. تمام ؟ وجد فى الجدول بعض المسافات الزائدة سواء فى حقل Course_name أو Room مما يؤثر بدوره فى عملية التجميع والفرز .. وقد تم حذفها فصار التقرير 3 صفحات وليس 4 أرجو أن يكون المطلوب بالتوفيق Rep2.accdb

ما عليك سوى تغيير سطر في الكود السطر من MsgBox driveObject.serialnumber الى Range("a1") = driveObject.serialnumber وسينسخ في الخليةA1

كان عليك من البداية استخدام خاصية البحث بالمنتدى -تفضل تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel

جرب المرفق Sub.mdb

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

حسب ما استوعبت 🙂 Insert2.accdb

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

السلام عليكم بعد اذن استاذنا ابو تامر جرب المرفق CONSULTATION_A.xlsm

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

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

مثال مهم لتغيير لون التاب كنترول محصله من موقع اجنبي لكنة يعمل فقط لحد اوفيس xp هل ممكن تعديل الكودات كي يعمل على أوفيس 2010 ومرفق قاعدة البيانات Files555.zip

جزاك الله كل خير اخى واستاذى ابو ياسين نحن بانتظار مشاركتكم حتى نتعلم منكم ونستفاد اخى ابو ياسين حقل ما قبله فى الصفحه الاولى المفروض يكون 0 وحقل الحالى تمام 3865 حقل الكلى المفروض يكون 3865 هذا بالنسبه للصفحه الاولى الصفحه الثانيه ما قبله المفروض يكون 3865 والحالى 698 تمام الكلى مظبوط 4563 واين حقل bb مش لاقيه خالص بشوفه فالخصائص ولكن لا اجد اى حقول فى انتظار تعديلكم ومشاركتكم للاستفاده والتعلم اخى واستاذى تقبل تحياتى وجزاك الله كل خير طبتم واهتديتم

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

على راسي أستاذنا الغالي التحكم في نماذج قاعدة بيانات خارجية.accdb

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

مشاركة مع الاستاذ محمد تفضل : اختار الكورس ثم اختار عدد السجلات ثم انقر "ابدأ" بالتوفيق DATA_BASE.accdb

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته احياناً وبعد انهاء البرنامج نحتاج الى تغيير الوان نماذج البرنامج اما كتغيير او تحديث او ... الخ فقمت بتصميم شىء بسيط ممكن ان نسميه Themes الفكرة ببساطة اننا نقوم بانشاء جدول يتكون من اسم Theme وثلاث حقول يتم فيه وضع الوان FormHeader و FormFooter و Detail وفي النموذج الرئيسي للبرنامج نقوم باختيار Theme فيتم وضع هذا الاختيار في متغيير ويتم تطبيق هذه Theme على كافة النماذج بعد وضع كود عند التحميل كما يوجد نموذج باسم frmThemes يمكننا من خلاله التحكم باسم Theme والوان FormHeader و FormFooter و Detail لتغيير الالوان في نموذج frmThemes اضغط DblClick على مربع النص الذي تريد تغيير لونه لتظهر قائمة الالوان البرنامج يمكن تطويره اكثر ليعمل على TextBox و Command كما يمكن ان يشمل التقارير لذلك فأرجو من الله ان ينتفع به كل طالب علم لا اطيل عليكم مرفق البرنامج بسنختين mdb و accdb DB_Themes-accdb.rar DB_Themes1-mdb.rar تحياتي

تم معالجة الامر بعد تنسيق الجداول في الصفحة الاولى لحسن عمل الماكرو تغيير اسماء الشيتات الى اللغة الاجنبية لنسخ الكود ولصقه بدون ظهور احرف و كلمات غريبة الكود Option Explicit Sub All_in_One() Dim A As Worksheet, B As Worksheet Dim i%, x%, m%, ro%: m = 1 Set A = Sheets("SheetA"): Set B = Sheets("SheetB") B.Range("ِA1").CurrentRegion.ClearContents With A x = .Cells(3, Columns.Count).End(1).Column For i = 1 To x Step 5 ro = .Cells(3, i).CurrentRegion.Rows.Count B.Cells(m, 1).Resize(ro, 4).Value = _ .Cells(4, i).Resize(ro, 4).Value m = m + ro - 1 Next End With End Sub الملف مرفق MY_sheet.xlsm

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم جرب المرفق واعلمني بالنتيجة DATA_BASE.accdb تحياتي

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

السلام عليكم جرب المرفق حذف جميع سجلات الذي اخترنا من قائمة ....rar تحياتي

نعم فهمت بشكل صحيح شكرا أستاذي أخي الكريم هذا الجدول سيتم تعبئته بالأهداف وتقييم الموظفين ونحن بحاجة لجميع الخلايا حيث تم دمج الخلايا حتى تكون في الطباعة كلها موجود وبشكل A4 وشكرا على التنسيق

عليكم السلام و رحمة الله و بركاتة اتمنى ان اكون فهمت طلبك حدول التقييم.xlsx

اللغي التنسيق الموجود في الخليه من A1:F27 عن طريق conditional Formatting في ملف الاستاذ سليم حاصبيا

جرب الان بس انا مافهمت بخصوص التقرير الاخضر انت ترغب يطبع السجل الحالي او كافة انا عملته يطبع الحالي وبامكانك تعديلة الى كافة السجلات من خلال الدخول على مصدر التقرير وحذف المعيار من الحقل الاول Permit to Work.rar

ربما كان المطلوب File_1.xlsx

فورم ادراج البيان عند تسجيلة فى الشيت بالكمبوبوكس فيديو 3 حذف الفيديو

بعد إذن الأستاذة الأفاضل عمر الحسيني و العيدروس جرب هذا لعله يفي الغرض CONSULTATION_A.xlsm

عليك السلام ورحمة الله وبركاته المطلوب غير واضح من فضلك أكتب النتيجة المتوقعة لكي يتسنى للأعضاء مساعدة محاولة منى مبدئيًا جرب هذا بحيث تخنار الاسم يظهر بياناته في الجدول rappr.xlsx

السلام عليكم ما رأيك في انشاء استعلام مصدره جدول = tabl1 نقوم بحساب الكمية = Qty الموجودة في جدول tabl2 T1: DSum("Qty";"tabl2";"barcode=" & [barcode]) ثم نقوم بطرح الموجود في المخزن من الكمية المصروفة Balance : Nz([SAVE])-Nz([T1]) جرب الاستعلام Query1 الموجود في المرفق واعلمني بالنتيجة Qty in table - Qty on form.rar تحياتي

اتفضل اخى الخطأ كان فى الكود التالى كنت حاطت >= Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Prev = Nz(DSum("[Price_Bought]", "TFSAI_JRD", "[ID_Sanf]<'" & Me.ID_Sanf & "'"), 0) End Sub بس كده انت جايب المجموع بس بدون ضرب الكميه كما قلت سابقا مجموع كل 111_صفحه.accdb شوف كده بعد اضافه ضرب حقل الكميه هل ظبط معك ام لا اخى مجموع كل 115_صفحه.accdb

تفضل شرح مبسط في الكود تم انشاء جدول الذي اسمة الجدول3 في الشيت A_2.xlsm

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

السلام عليكم بعد اذن استاذنا الحبيب احمد زمان هذا تعديل بسيط على الكود Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR, A, Rw Set App = WorksheetFunction Set TS = Sheets("تأخير") TS.Range("A6:S500").Clear TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS On Local Error Resume Next A = App.Match(.Name, TS.Range("J:J"), 0) If Err <> 0 Then If App.CountIf(.Range("N:N"), "<0") = 0 Then GoTo 9 Rw = TS.Cells(TS.Rows.Count, "J").End(xlUp).Row + 1 TS.Rows(2).Copy TS.Range("A" & Rw) TS.Range("A3:Q5").Copy TS.Range("A" & Rw + 1).PasteSpecial xlPasteFormats TS.Range("A" & Rw + 1).PasteSpecial xlPasteValues TS.Range("J" & Rw + 1).Value = .Name Err.Clear End If TR = App.Match(.Name, TS.Range("J:J"), 0) + 3 For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 17 If Not IsNull(TS.Cells(TR, FC).Borders.Value) Then TS.Cells(TR, FC).Borders.Weight = xlThin TS.Cells(TR, FC) = .Cells(FR, FC) Next FC TS.Cells(TR, 19) = .Name TR = TR + 1 End If Next FR End With 9 Next FSN Set TS = Nothing: Set FS = Nothing: Set App = Nothing End Sub

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

عودا حميدا استاذنا الكريم ضاحى -أحسنت موضوع فى غاية الأهمية بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله كلها اعمال رائعة

تفضل Suivi des Créances1.xlsm

تفضل Suivi des Créances1.xlsx

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

السلام عليكم ورحمة الله تعالى وبركاته واجهت مشكلة كبيرة عند حساب الايام بين تاريخين تاريخ البدء وتاريخ الانتهاء على سبيل المثال وكان ما يهمنى هو عدم احتساب الجمعة والسبت ضمن هذين التاريخين على اعتبار انهم عطلة اسبوعية ثم خطر ببالى كذلك عدم احتساب الاعياد والمناسبات الرسمية بحثت وظللت ابحث وسهرت ولم انم منذ الأمس بسبب هذه المعضلة ولكن لم اجد اى حل فى اى منتدى حتى تفضل على الاستاذ ابو خليل جزاه الله عنا كل الخير ان شاء الله ولكن بصراحة هذا الحل لم يرضى طموحى فذهبت للبحث مرة اخرىووجدت فى موقع مايكروسوفت هذا الحل الذى أحدث خطأ فنجم عنه خلل فى الحسابات وحاولت فهم الية العمل وظللت اجرب واحاول وأخيرا بفضل الله سبحانه وتعالى الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل توصلت لحل وقمت بتجربته مرار وتكرارا وبعد أن تأكدت من صحة ودقة معالجة البيانات قررت ان ارفعه على هذا الصرح الشامخ ملاحظة يمكن الاستفاده من هذا المرفق فى الاتى 1- حساب ايام العمل الفعليه بدون ايام الاجازات الرسمية والعطلة الاسبوعية --- العطلة الأسبوعية بالنسبه لى انا كانت الجمعهة والسبت ممكن تعديلها ☺ 2- حساب الاجازة التى تخصم من الرصيد فيستثنى منها ايام الاجازات الرسمية والعطل الاسبوعية كذلك للعلم تعدل بيانات الاجازات الرسمية والتواريخ من خلال القاعدة طبقا لكل دولة حتى لا يتم احتساب هذه التواريخ أحبكم فى الله وانتظر ردكم بعد التجربة ActualDaysCalcult.rar