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

بس فى ملحوظه اخى عمر @عمر ضاحى فى التسميه فالحقول لا تجعل الاسم Amount-Erad ليه علشان لما تستخدمه فالاستعلام الاكسيس هيحسب دول حقلين مطروحين من بعض اجعله Amount_Erad بالتوفيق

وعليكم السلام استاذ عمر اليك هذه المحاولة TEST07.rar

احسنت مهندسنا العزيز قاسم مثل النتيجه بتاعتى جزاك الله خيرا qTotal الشهر SumAmountErad SumAmountMsrofat frk 2022/07 2400 330 2070 2022/08 1300 2000 -700

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

معليش استاذ عمر ... لما اصحصح بكرى ... حفكر في الحكاية دي هو طلع لنا منين @مبرمج سابق🤣 ما كنا ئاعدين .. متلين على اهلنا وعائدين

نعم اخي استاذ خالد ... انا انتظر اخي استاذ عمر ان يطرح ذلك فأنا بعد العاشرة مساء ... اشوف الواحد عشرة 😂

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

ممكن تفشرها كويس ☺️ انا دخلت 1 ودخلت 400 ...نفس الشي

وعليكم السلام ورحمة الله استاذ Jehad.93 ذكرت انك تريد الاستعلام بشروط معينة ولكن ملفك ينقصه شيء والله أعلم والله حاولت افهم الموضوع في اي خلية او خلايا نضع او نكتب الشرط وفي اي شيت حاول وضع بعض البيانات كما تريدها او تتصورها في التقرير وللاستعلام لابد من خلية او تيكستبوكس او كومبوبوكس اعد تصميم للملف واشرح ما تريد بلغة الاكسيل . مثلا اريد الاستعلام بشرط عند ادخال تاريخ او اسم او كود في الخلية b2 شيت data

انا منتظر منك السؤال دة ...لانني فكرت فيه

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

انا نتيجتي طلعت مختلفة شهر 7 الايراد 2400 - المصروف 330 =2070 شهر 8 الايراد 1300 + 2070 المتبقي من الشهر السابع - المصروف 2000 =1370 الا اذا كنت لا ترغب في رصيد تراكمي فهذا امر اخر تحياتي

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

السلام عليكم اخى ازهر معلش الاجابه متاخره هذه الرساله خاصه بصلاحيات الويندوز ويمكن حلها كالتالى ادخل ع C:\Program Files وقف ع الفولدر AccTxt كليك يمين وبروبيرتز ثم سكيورتى ثم ادفانسد ثم اتشينج بريميشن ثم قف ع اليوزر المستخدم للويندوز واضغط على زر ايديت ثم فعل اختيار Allow ثم اوك للاخر ثم جرب التطبيق ان شاء الله يعمل معك بالتوفيق ع ما اعتقد نعم ولكن اهل الذكر فى منتدى الاكسيل قم بنسخ رابط الموضوع وافتح موضوع جديد فى قسم الاكسيل بامكانيه تطبيق هذا العمل بالرابط التالى وضع الرابط على الاكسيل وان شاء الله اخوانا واساتذتنا فى قسم الاكسيل سوف يقوموا بمساعدتك ان شاء الله بالتوفيق

الف الف شكر لك هو ما اريد بابسط صوره

ربما يكون أحد غير إعدادات خطوط محرر الأكواد من قائمة tools اختر options ثم في تبويب editor format الخط الافتراضي courier new وحجم الخط 12 واختر اللون ولون الخلفية المفضل لديك بالتوفيق

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

شكرا على مجهودك استاذ @Moosak واثراء للموضوع ..كنت ابحث عن طريقة لعدم ظهور المسافات الفارغة ..وبطريق الصدفة عملت stacked للحقول ثم عملت removed layout فرأيت ان المسافات الفارغة اختفت ..هكذا طبعا يجب ان تعمم على بقية الحقول ..

أهلا بك أخي @naguib_3778 🙂 جرب تغيير المستخدمين كل مرة ... كلمة المرور 123 للجميع وتم إضافة النوع في الجدول 2المرسل.accdb

لعمل ذلك يمكنك: تحديد الخلايا B14:D14 من تبويب home نضغط على conditional formatting ثم new role ثم نختار الاختيار الثاني Format only cells that contain ثم Equal to ثم نكتب أو نختار B13 ثم نضغط على format لضبط لون الخلفية والنص المطلوب للخلية المميزة ثم OK مع مراعاة تطابق الأسماء في الخلايا مع الأسماء في القائمة بالتوفيق تلوين.xlsx

اعتذر منك اخي ابو الحسن فقد غلبني النعاس ليلة امس لم انتبه للتقرير جرب التعديل TestLOckQ1.rar

يمكنك استعمال هذه الدالة لتحويل النص العربي من رموز غريبة إلى utf8 وذلك بإضافة هذا الكود في موديول جديد في شاشة الفيجوال بيسك للتطبيقات vba بالضغط على alt+f11 ثم من قائمة insert نختار module ثم نلصق هذا الكود Function masAr2Utf(inputStr As String) As String Dim n As Integer, i As Integer, inBytes() As Byte, sUnicode As String n = Len(inputStr) ReDim inBytes(n + 1) For i = 1 To n inBytes(i) = AscB(Mid(inputStr, i, 1)) Next sUnicode = StrConv(inBytes, vbUnicode, &H401) iPos = InStr(sUnicode, Chr(0)) If iPos > 0 Then sUnicode = Mid(sUnicode, iPos + 1) masAr2Utf = sUnicode End Function وطريقة استدعائها في الشيت نكتب في الخلية المراد ظهور النص العربي بها =masAr2Utf(B2) بالتوفيق

شكرا عمي @Eng.Qassim معلومة استفدت منها شخصيا ☺️ وأنا طبقتها على الجزء الأيسر من التقرير ونجحت ولله الحمد .. والباقي عليك أخي @elghoultk 🙂 Access Database.zip

أبسط حل أن تعكس التاريخ بكتابة العام ثم الشهر ثم اليوم وإذا كنت تأخذ التاريخ من خلية أخرى فيمكن استعمال هذه المعادلة ="كتابنا ذي الرقم (1254) في "&TEXT(C4,"yyyy/mm/dd") على اعتبار أن خلية التاريخ هي C4 بالتوفيق

أخي الكريم الحمد لله لي السبق في هذا المجال الترجمة بالكود في vba وغيرت الكود مرة في 2017 ومرة في 2019 ولم أهتم بعدها بهذه الطريقة وبالنسبة لملفكم بالنسبة للرابط المستععمل قي الكود فهو خاص بنسخة الموبايل https://translate.google.com/m?sl=auto&tl=ar&hl=en-US&q=Good+morning ولا يوجد به زر للنطق والكود يستعمل زر له كلاس .Document.QuerySelector(".VfPpkd-Bz112c-kBDsod-OWXEXe-IT5dJd").Click وهو غير موجود وبالنسبة لطلب صفحة الترجمة الكاملة فالنطق يكون غير مدعوم في متصفح انترنت اكسبلورر المستخدم في الكود Voice output isn't supported on this browser خلاصة الكلام: أن هذه الطريقة لنطق النص أصبحت غير متاحة وكنت قد أوضحت أنه يوجد طريقة أخرى أستعملها في موقعي الشخصي mr-mas.com ولكن لم أحولها إلى vba لانشغالي هذه الفترة ولاني مستاء جدا من نشر أكوادي باسم غيري فلا يوجد في مصر والعالم العربي ما يسمى بالأمانة العلمية ربما لاحقا أحول هذه الطريقة إلى vba بالتوفيق

وعليكم السلام-موجود بالمنتدى ... من فضلك استخدم خاصية البحث بالمنتدى وستجد ما تريد وشكراً

كل عام وانت بخير اخي عمر ... اجعل الكود هكذا IIf([Forms]![frmReportMsrofat]![OP2]=1;1;IIf([Forms]![frmReportMsrofat]![OP2]=2;2;([TblMsrofat].[TypeMsrofat])))

Sheets("ورقة").RAnge("a1").Select اذا كان اسم الشيت هو : ورقة3 نكتب في الكود: ("ورقة3")Sheets

بعد ان الاستاذ ابراهيم وزيادة فى الخير تفضل الشيت لعله يفى بالغرض أفواج العطلة.xlsm

بعد اذن اخى الحبيب واستاذى الجليل الاستاذ @essam rabea هذه طريقة المعقدين امثالى حتى يتعب من يحاول ان يصل الى مراده من اختراق البرنامج اقول يتعب قليلا هههههههههههه واعتقد والله اعلم لو القاعدة محولة الى accde , mde لن يستطيع احد التعديل على الجدول المباشر ليسترجع اعدادات اعادة الطباعة مرة اخرى للمرة الاخيـــــــرة هذه الطريقة للمعقدين فقد print only one time.mdb

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

أخي الكريم إمكانيات النموذج في الإكسل قليلة جداً إذا ما قورنت بالأكسس والفيجوال بيسك دوت نت ولكن ما الشكل الذي تريده أنت بالضبط؟ فمن الممكن أن يكون متاحاً في إكسل

الأخ الكريم أبو الحسن وبعد إذن الإخوة المشاركين ما تريده وأكثر موجود في هذه المشاركة http://www.officena.net/ib/index.php?showtopic=36867&view=findpost&p=220256

بارك الله لك أخي جلال الحل صحيح ولكن أنا شخصياً لم أفهم معادلاتك ........... تصوري للحل: ثلث الدقائق التي مضت بعد الحادية عشرة صباحاً=28 ما بعد الحادية عشرة وقبل 28 الأخيرة = 2*28=48 (ثلثين وما بقي من الحادية عشرة وما بعد الثانية عشرة هو الثلث الثالث ويساوي 28) ما بقي حتى الثانية عشرة = 60-48=12 ما بعد الثانية عشرة = 28-12=16

أشكر كل من ساهم في هذا الموضوع وأقول لكم أن الألغاز ليست مضيعة للوقت ولا تعب للعقل بدون فائدة كما يظنها البعض بل هي الطريق السليم لتطوير قدرات العقل. لغز بسيط آخر: كم عدد الدقائق التي مضت بعد الثانية عشرة مساء إذا كان عددها منذ 28 دقيقة مضت يبلغ ثلث الدقائق التي مضت بعد الحادية عشرة صباحاً؟؟!!

أخي الكريم لإضافة صباحاً ومساء لكود الأستاذ الحسامي غير كود الدالة UpdateForm لما يلي: Public Function UpdateForm() frmTimer.lblNow = Format(Now, "hh:mm:ss ampm") End Function تجدها في الموديول الثاني وإذا استعملتها في نموذج جديد يجب جعل خاصية مشروط في خصائص النموذج show modal تساوي false

أخي الكريم بدون إرفاق ملفات يمكنك استعمال ميزة ضمن الإكسل تسمى السماح للمستخدمين بتحرير النطاقات Allow Users to Edit Ranges الموجودة في قائمة أدوات tools ثم حماية protection (وفي أوفيس 2007 أو 2010 توجد في تبويب مراجعة review) وعند ظهور النافذة الخاصة بالسماح اضغط على جديد new ثم حدد المدى المطلوب ثم اكتب كلمة المرور إذا رغبت ثم اضغط على موافق ok وفي النافذة الأولى اضغط على حماية ورقة البيانات protect sheet ثم ok

بسم الله الرحمن الرحيم أخي جلال محمد شكرا لك على هذا الرابط أخي عبد الله فكرته بسيطة جداً وهي: أن الفرق بين أي رقم مكون من رقمين ( من 10 إلى 99) وحاصل جمع الرقمين ........... دائماً يساوي مضاعفات العدد 9 يعني 9 أو 18 أو 27 أو 36 أو 45 أو 54 أو 63 أو 72 أو 81 وبالنظر في الفلاش نجد أن كل هذه الأرقام رموزها واحدة (صورة واحدة) وعندما نضغط على العين يعرض هذه الصورة التي يتم تعريفها مسبقاً بالكود أن تكون في كل هذه الأرقام ولذلك نجد أن أي رقم تقوم بحسابه سيكون نتيجته صورة واحدة وهكذا هل وضحت الفكرة؟؟!! ........ ملحوظة : هذه الفكرة يمكن تنفيذها على أي عدد من الأرقام وليس عدد مكون من رقمين فقط

بالفعل أخي الكريم قم بإلغاء تثبيت الأوفيس ثم شغل أي برنامج لفحص وتنظيف الريجيستري مثل CCleaner أعد تثبيت أوفيس 2007 مع مراعاة اختيار all from this computer الكل من هذا الجهاز أثناء التثبيت ليتم تثبيت الأوفيس كاملاً ............... ملحوظة ليست كل نسخ أوفيس 2007 بها ميزة الحفظ ك pdf لذلك يلزمك تثبيت ملف مساعد لحفظ الملف ك pdf جرب وأخبرنا بنتيجة

أخي الكريم أبو الحسن أولا : لعرض الساعة في نموذج يفضل أن توضع في تسمية label وليس في مربع نص textbox ثانياً : عرض الساعة باللغة العربية أو الإنجليزية مرتبط بتنسيق التاريخ في جهاز المستخدم ولغة هذا التنسيق ثالثاً : تم معالجة عرض صباحاً ومساءً في المرفق مرفق ملف بكود بسيط يعالج موضوع المؤقتات في الإكسل من خلال الحدث ontime الخاص بالتطبيق mas_clockform.rar