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

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

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

السلام عليكم و رحمة الله استخدم هذا الكود Private Sub CommandButton1_Click() Dim ws As Worksheet, x As Integer Dim L1 As Long, L2 As Long Set ws = Sheets("Sheet1") L1 = ws.Range("A" & Rows.Count).End(3).Row L2 = ws.Range("B" & Rows.Count).End(3).Row x = L1 - L2 If x = 0 Then Exit Sub ws.Range("B" & L2 + 1).Resize(x) = Me.TextBox1.Value End Sub

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

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

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

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

في أحد برامجي التي بها حقول كثيرة جعلت تنسيق الصفحة على الحجم A3 بالعرض فشملت جميع الحقول.. وعند الحاجة للطباعة يتم تصدير الصفحة بصيغة PDF وحينها يسهل طباعتها بحجم A4 .

كان طلبك تنسيق الارقام ولكن هناك مشاركة ربما فيها ما تريد https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=214255&key=963ce63aa311dfeead73411430b422e6

ربما هكذا احسن Private Sub TextBox1_AfterUpdate() [d3] = Format(TextBox1, "dd-mm-yyyy") End Sub Private Sub TextBox1_Change() '[d3].Value = TextBox1.Value End Sub Private Sub TextBox2_AfterUpdate() [d3] = Format(TextBox2, "dd-mm-yyyy") End Sub Private Sub TextBox2_Change() '[d4].Value = TextBox2.Value End Sub

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

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

وعليكم السلام 🙂 كانت لي محاولة هنا ، قد تستفيد منها جعفر

يا هلا ومرحبا jo 🙂 الخطوتين: 1. الالتزام بالقائمة: نعم ، 2. حدث "عند عدم الوجود في القائمة" ، وتضع هذا الكود Private Sub Combo0_NotInList(NewData As String, Response As Integer) MsgBox "لابد من الاختيار من القائمة" Response = acDataErrContinue Me.Combo0.Undo End Sub . وتستطيع الحصول على هذا الكود وغيره من مساعد الاكسس: . جعفر

الف مبروك اخى قاسم

غريب فعلا غريب جربته اكثر من مرة عندي ويعمل بشكل جيد ربما نسخ الاكسل عندك!! انا أعمل على نسخة 2019 الجمعية الشهرية (2) (3).xlsm

شكرا لك يا غالي الله يعطيك العافيه بس المرفاق لازم اذن لتحميل وقدمت من امس وما وافقت عاليها اذا تحمل بي مديا فلير يكون افضل وشكرا

انظر الصورة وضع الرسالة المطلوبة في الحدث

شي جميل ورائع جدا جدا جدا وأشكركم كل الشكر الجزيل وانا لي فتره طويله أحاول عمل هذا الشي الرائع ولكن لاني لا اعرف جيدا طريقة كتابة الأكواد كدت اياس من هذ البرنامج الرائع ولكني اشكر الله لأن وفقني للعثور على هذا المنتدى الذي يحتوي على هذه الهامات العلمية واولا هذه الهامات المعطائة والمحسنة والتي لا يبخلون بما رزقهم الله وانشاء الله ان مسعداتكم هذه هي زكات ما أعطاهم الله من معرفة وقدرات واسأل الله ان يزكي باعمالكم هذه نفوسكم وان يزيدكم من علمه @kkhalifa1960 @jjafferr @abdah

أخي مرفق برنامج جاهز مجمعه من منتدانا أفيسينا وأنا بستخدمه في جميع برامجي أدرسه جيداً واستخدمه كما تشاء ووافني بالنتيجة MahdiPermissions.rar

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

تفضل أخي مع زيادة التقارير employees2.rar