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

نزل القاعدة مشان نعدل عليها

المفرض تبدأ انت بجداولك وبداية برنامج ويشاركوا الاعضاء بالافكار والحلول .... لكن انظر المرفق ربما يفي بالمطلوب ..... kan.accdb

الحمد لله رب العالمين ........

نعم تفضل .... طلب_صرف_مواد2.accdb

انظر قد يفيدك ..... طلب_صرف_مواد2.accdb

هل هذا ما تقصد برأس النموذج ؟؟؟؟؟؟

تفضل ....... الطلاب.accdb

تفضل .... الطلاب.rar

ضع مثال مصغر لما تريد فعله ؟؟؟

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

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

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

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

ممتاز استاذ سليم معادلة ممتازة بارك الله فيك

شكرا

الحل هنا Salim_book.xlsx

بارك الله فيك اخى الكريم وبالتوفيق ان شاء الله

جزاك الله كل الخيرا علي كل ما تقدمه من مجهود واعمال ولك جزيل الشكر والتقدير . سيدي الفاضل السبب من عدم رفعي للملف هو اني محتاجه اتعمل vbn من الخبراء زاي حضرتك وكل يوم بتعمل من حضرتك معلومه جديده وبتطبقها في شغلي ولك مني وللمتندي العظيم فائق الاحترام والتقدير .😍😍

هذا مثال وطبق عليه عندك بيانات كثيرة ويحتاج شغل كثير اخفاء حقول (1).accdb

@عبد اللطيف سلوم غريبة :) ضايفها وين اختفت :)) تم الان zeyad.rar

اطلع على موضوع استاذنا جعفر فيه من الخير و البركة الكثير و الكثير. و سوف تجد به ظالتك بإذن الله و إذا عند استفسار سوف نساعدك

جرب هذا الملف من ملغاتي القديمة wprking_days_Vba.xlsm

الاخ الغزيز صالح الشكر موفور لحضرتك ودائما موفقك فى كل اعمالك

السلام عليكم حسب ما فهمت أنك تريد تصفح جميع المواقع بالضغط مرة واحدة على الزر: تفضل إليك هذا التعديل: WebAppFiller (1) (1).rar

نعم تستطيع و يا ريت ترفق مثال لتعديل عليه

بالتأكيد طبعا تفضل Book2.xlsm

تفضل وهذا كود اخر غير الموجود بالملف Sub testSave() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit End Sub وهذا كود ثالث Sub CommandButton1_Click() Application.Quit ThisWorkbook.Save End Sub وهذا كود رابع Sub SaveAndClose() ActiveWorkbook.Close SaveChanges:=True End Sub واخيرا كود خامس Private Sub CommandButton2_Click() Dim WB As Workbook If Not ThisWorkbook.Saved Then ThisWorkbook.Save MsgBox "Your data has been saved.", vbInformation, vbNullString End If For Each WB In Application.Workbooks If Not WB.Saved Then If MsgBox("You are about to exit the application. The workbook named """ & WB.Name & """ is not saved. Would you like to save """ & WB.Name & """ before it closes?", vbQuestion Or vbYesNo Or vbDefaultButton1, "Save Workbook...?") = vbYes Then WB.Close SaveChanges:=True DoEvents Else WB.Close SaveChanges:=False End If End If Next Application.Quit End Sub save & close.xlsm

وعليكم السلام عليك برفع الملف حتى تكتمل المساعدة

السلام عليكم اخي الكريم انا استخدم الكود التالي في خاصية القيمة الافتراضية لمربع النص وهو يقوم باحضار اخر تاريخ في الجدول وان لم يجد اي سجل في الجدول فيعطي تاريخ اليوم =Nz(DLast("[dadate]";"tbldaily");Date())

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

حسب الصورة المعروضة ...... المشكلة في عدم التصدير هو اسم الحقل ( المسميات العربية المركبة مشكلة في البرمجة ) مثلا العنوان الوظيفي . غيرها الى العنوان_الوظيفي وهكذا لجميع المسميات ....... غيرها واعلمنا بالنتيجة ...

مشكلة هذا الاستخدام تغير كل اسم فيه ي مثلا أمين يجعلها أمىن وهكذا ....... فاحذر منها ؟؟؟؟؟؟؟؟؟؟؟؟

ضع هذا في الاستعلام لديك ...... B: Replace([test];"ي";"ى")

أذن حسب معلوماتي . لا يمكن الا بالتحايل

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

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

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