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

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

ابشر اخي ابا جودى ولايهمك شوف الان Database21.accdb

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

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

السلام عليكم اخواني الكرام قمت بتصميم هذا البرنامج لتصميم وطباعة الباركود فاعطوني رأيكم دام فضلكم اضف الخطوط الموجودة في المرفق الى مجلد الخطوط وشغل البرنامج 1- يمكنك تصميم اللصاقة المناسبة من التقرير 2- يمكن طباعة عدد محدد من اللصاقات ومن اي لصاقة يبدأ الطباعة 3- يمكن اختيار اتجاه الطباعة افقي او عمودي 4- يمكنك تحديد هوامش ورقة a4 حتى تتناسب مع اللصاقة المطلوبة تحياتي للجميع من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً , باركود.rar

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

لا عليك اخى الحبيب وانا ايضا من المبتدئين لا تقلق لست وحدك من يطلب العلم

على الرغم من قدم تاريخ السؤال حتى ان تاريخ اخر زيارهأكتوبر 25, 2017 لصاحب السؤال الا اننى اود المشاركة مع استاذى الجليل واخى الحبيب الاستاذ @ابو ياسين المشولي date.mdb

تمام التمام بشركم الله تعالى بأعلى درجات الجنان والان يا دكتور @حلبي صار معك حلين 1- ما تقدم به استاذى الجليل واخى الحبيب الاستاذ @ابو ياسين المشولي والذى يعتمد على الاكواد 2- المرفق الذى اضفته والذى يعتمد على الاستعلام ماشاء الله رزقك واسع يا دكتور

جرب هكذا هنا اسم اليوم والتاريخ dd/ddd/mmm/yy وهنا التاريخ +th dd/"th"/mmm/yy date.mdb

شوف هذا Database21.accdb

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

فكرة جميلة @ابا جودى Between Nz([forms]![f1]![STR];"01/01/1900") And Nz([forms]![f1]![IND];"01/01/2100")

السلام عليكم بعد اطلاع على ملف المدل من قبل الاستاذ / @د.كاف يار وجدت حساب يوم الجمعة يوم السابع في اسبوع ولكن في حوسبتنا يوم الجمعة سادس يوم في اسبوع رغم اختيار يوم السبت كاول يوم السبوع قي اعدادا الاقليمية ، فحبيت اشارككم التعديل على حساب يوم الجمعة ك سادس يوم من السبوع و اهمال حساب وقت خروج المؤظف قبل 2:30 Overtime2019.accdb

ابو اشرف اذا ما ضبط اي حل ارفق المثال يمكن يكون محتاج شوية حنان ههههه

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

السلام عليكم و رحمة الله تعالى و بركاته الأستاذ عبد الله طلب طريقة استعمال الحلقات التكرارية بالعد التنازلي و هذا يعني استعمالها بدون دوال إضافية مثل الدوال الشرطية للحلقات التكرارية ستة أشكال و قد شرحتها جميعها في هذه السلسلة: دروس VBA أكسس و هذا حل لسؤال الأخ عبد الله بخمسة أشكال من الحلقات التكرارية: الأول: الدالة For Dim i As Integer, k As Integer k = 4 For i = k To 1 Step -1 MsgBox i Next i الثاني: الدالة Do While Dim i As Integer i = 4 Do While i >= 1 MsgBox i i = i - 1 Loop الثالث: الدالة Do Until Dim i As Integer i = 4 Do Until i < 1 MsgBox i i = i - 1 Loop الرابع: الدالة Do.....Loop Until Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop Until i < 1 الخامس: الدالة Do.....Loop While Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop While i >= 1

تفضل محمد.xls

بعد اذن الأستاذ أحمد-هذا حل اخر لإثراء الموضوع بدون أعمدة مساعدة serial Number.xlsx

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

و هذا تحديث وحدة النمطية لعرض تاريخ 1،21،31 بشهر( 01st,21st ,31st ) و 2،22 (2nd,22nd) و 3، 23 (3rd,23rd) و الباقي th date.mdb

عمل رائع أستاذ / عبد الله قدور مشكور وجزاك الله خيراً

اضغط على الخط ضغطتين ثم اختر تثبيت يقوم بتثبيت الخط في مجلد الخطوط او انسخ الخط الى المجلد المسار التالي C:\Windows\Fonts

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

شاكر تشجيعك

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

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

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

اتفضل عن طريق الكود هذا Dim varFilter As Variant varFilter = Null If Not IsNull(Me.X) Then varFilter = "[nume] LIKE '*" & Me.X & "*'" End If ' كود البحث بين تاريخين If Not IsNull(Me.STR) Or IsNull(Me.IND) Then varFilter = (varFilter + " AND ") & "[dateTraining] Between STR And IND" End If With Me.frmsub.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With Database21.accdb

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

الله يحفظك اخي حربي العنزي

تفضل هذا الحل Overtime2019.accdb

في المرفقات 311.accdb

تفضل لك ما طلبت تنسيق شرطى بشرطين.xlsx

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

السلام عليكم اخي الكريم @ازهر عبد العزيز هذا التطبيق الذي تحدثت عنه وهناك تطبيقات اخرى ايضا لكن فقط تفتح الجداول لا اكثر

الآن تم تغير الاتي : اللون بالكامل إضافة رسائل تنبيه عند محاولة إضافة موظف أو ترحيل موظف أو تكرار موظف إضافة تقرير عام عن التسكين التجربة توضح اكثر وإليكم الصور إليكم المرفق الجديد واعتقد إن شاء الله النهائي اتمنى الاستفادة للجميع Askan.rar

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

تفضل جمع مدة على تاريخ.xlsx

تقريبا نفس المعادلة ولكن هناك اختلاف بالتنسيقات كما ترى بالصورة

وعليكم السلام-تفضل المصنف2.xlsx

اخى الكريم الملف يعمل معى تمام ربما تكون قمت بتغيير مسمى الصفحات او ان تستخدم نسخة اقل من اوفيس 2010

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

وعليكم السلام-تفضل ااااااااا.xlsm

وعليكم السلام لك ما طلبت اخر عملية حسابية.xlsx

لو ممكن تحديد على الملف ما هو المطلوب بالضبط ؟

اخى الكريم هذا برنامج خاص بالتقسيط للاستاذ حسام خطاب وكلمة السر هى كلمة الصقر ولمزيد من الشرح ها هو رابط يوضح كيفية العمل على البرنامجhttps://excel-egy.com/forum/t2732 برنامج امراقبة الاقساط للاستاذ حسام خطاب.zip

تفضل حسابات (2).xls

أهلا بك اخى الكريم فى المنتدى تفضل الأجهزة الكهربائية.xlsm

تفضل طبعا بعد اذن استاذنا مهند حسابات.xls