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

السلام عليكم-تم التوفيق لإضافة رفع ملفات الإكسيل ذات الإمتداد 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

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

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

في المرفق في المشاركة الاولى تحياتي لك

شاكر تشجيعك

السلام عليكم ورحمة الله تم تعديل معادلات التنسيقات الشرطية في العمودين A و B بحيث يتم مباشرة تلوين خلايا العمود A التي تحوي قيما غير موجودة في العمود B (الأصفر) وتلوين خلايا العمود B التي تحوي قيما غير موجودة في العمود A (الوردي أو لون آخر) دون الاعتماد على قيم خلايا العمودين E و F... بن علية حاجي تنسيق شرطى بناء على قيم.xlsx

جرب مثلا البحث بين التاريخين 04/08/2019 و 05/08/2019 ثم اختر الاسم الاتى ابراهيم

هذا هو المعيار الصيحيح Like "*" & [forms]![Mostasmarin Data]![Mostasmarin Data sub]![c1] الموقع والمربع .rar

:: تفضل هل هذا ماتريد ... البحث بين تاريخين_UP.accdb

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

جزاكم الله خير الجزاء

:: اضافة لجواب الاح ابو ياسين تفضل طريقة الاستعلام ... البحث بين تاريخين_ استعلام.accdb

اتفضل عن طريق الكود هذا 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

كلكم لم تقصروا الله يعطيكم العافية وبارك الله فيكم والى اللقاء في مسألة صعبة جديدة 🧡

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

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

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

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

بارك الله فيك استاذ بن علية عمل رائع

. عليك برفع الملف الذى يخرج نتائج خاطئة لنفحصه

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

بارك الله فيك وجزاك الله كل خير

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

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

لا يمكن عمل هذا فقط عند كتابة 16:00 اذا كنت تريدها تظهر معك 16:00 او تظهر معك 04:00 PM هذا فقط ما يمكن عمله

ممتاز بارك الله فيك

تفضل كشف مبيعات.xlsx

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

جرب هذا تحويل ملف الإكسيل الى ملف تنفيذى Exe https://www.officena.net/ib/topic/17769-تحويل-ملف-الاكسيل-الى-تنفيذى-ثم-تنصيب-الملف-بالصور/

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

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