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

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. سأتطرق اليوم لفكرة غريبة جداً تتلخص بأنني في فترة دراستي في عام 1997 ، كان في منهاجنا لمادة الحاسوب ، برمجية أسمها لغة أفكار ( MS-DOS ) ، وهي تقوم على مبدأ إدخال أوامر داخل البرنامج لتنفيذ رسومات . مبدأ هذه البرمجية القديمة يشابه Berkeley LOGO . حيث الفكرة تقوم على إعطاء أوامر مثل :- أمام ، خلف ، يمين ، يسار ، كرر .... إلخ وكتوضيح للفكرة في الصورة التالية :- ولأن الموضوع بفكرته غريب نوعاً ما .. سأقوم بالشرح البسيط لآلية العمل :- عند تشغيل الأداة ، وللتجربة دون قيود حفظ المشاريع داخل الجداول . انقر على الزر "اكتب أمراً هنا" ستجد أن سلحوف ( اسم الشخصية التي أخترتها لقلم الرسم ) قد ظهر مع خطوط لتحدد إحداثيات الرسم (س،ص / x,y ) في خانة كتابة الأوامر ، سأعرفك على الأوامر بشكل سريع لو كتبت الأمر "مساعدة / مساعده" (بالهاء أو التاء المربوطة ) . أو انقر على زر علامة التعجب في أقصى اليسار . بعد أن تعرفت على الأوامر والتي تتمثل بإعطاء اتجاهات وزوايا وشروط وتكرارات . جرب على سبيل المثال الأمر التالي :- سرعة 3 كرر 10 ( مربع 50 يمين 36 ) ستجد أن النتيجة للرسم تساوي الصورة التالية :- طبعاً فإنني قد قمت بدمج مجموعة من الأشكال الثابتة مثل ( مربع ، دائرة ، مثلث ، نجمة ، قوس ، مستطيل ) داخل مصفوفة في عقل الأداة . فمثلاً لرسم مربع طول ضلعه 50 فرضاً . سنحتاج لكتابة :- 1. أمام 50 2. يمين 90 3. امام 50 4. يمين 90 5. امام 50 6. يمين 90 7. امام 50 8. يمين 90 لاحظوا أنها 8 حركات لعودة القلم سلحوف لمكانه الطبيعي . بينما يمكننا تنفيذ الفكرة بشكلين آخرين مثل :- كرر 4 ( امام 50 يمين 90 ) ولذا قد دمجت هذا الأمر داخل البرنامج ليصبح باختصار مربع 50 . وكذلك الأمر لرسم دائرة بقطر 50 مثلاً ، ما عليك سوى كتابة الأمر :- دائرة 50 أو يمكنك استخدام الأمر المركب :- كرر 360 ( امام 1 يمين 1 ) وفي الحالتين سيرسم لك دائرة . والأوامر كثيرة جداً والتي يمكن أن تجعل من الأداة عبارة عن ملهم خيال وأفكار لرسم مجسمات الأشكال . ماذا يمكنك أيضاً أن تجد في واجهة الأداة ؟ 6 أزرار في أقصى اليمين تمثل ، زر فتح مشروع محفوظ ، زر مشروع جديد ، زر حفظ المشروع الحالي كصورة ، زر لاختيار لون من أولان الويندوز ، زر لتصدير أوامر المشروع الحالي ، وزر استيراد أوامر مشروع خارجي ، وكلاهما بصيغة ملفات نصية . زر لإيقاف العملية الحالية في حال أردت الإيقاف ، وسيتم التراجع عن الأمر الذي تم إيقافه . ملف الأداة مفتوح المصدر ، للتحميل :- Foksh Turtle 2026.zip وهذه صور لبعض من التجارب التي قمت بها

اول شئ اعدادات الستامب من جي ميل تجسب منه (your_app_password) 🛠️ خطوات الحصول على App Password جديد في Gmail افتح المتصفح وسجّل الدخول إلى حسابك في Google. ادخل على صفحة إدارة الحساب (Google Account). من القائمة الجانبية اختر الأمان (Security). تحت قسم تسجيل الدخول إلى Google (Signing in to Google) ستجد خيار App Passwords. إذا لم يظهر، تأكد أن التحقق بخطوتين (2-Step Verification) مفعل. اضغط على App Passwords. سيطلب منك كلمة مرور الحساب للتأكيد. اختر التطبيق: Other (Custom name) واكتب مثلاً "AccessBackup". اضغط Generate → سيظهر لك كلمة مرور مكونة من 16 حرفًا. انسخ هذه الكلمة وضعها في الكود مكان your_app_password. يمكنك أيضًا إضافة أكثر من مستلم باستخدام فاصلة منقوطة: .To = "your_email@gmail.com;other_email@gmail.com" واليك نسخة مجربة لكني غيرت بياناتي . مع تعديل دالتك وتطلبها بزر أو بطريقتك . اليك المرفق . ووافني بالرد . BackupTest.rar

تبارك الله .. تبارك الله .. 🤚😃✋ وفوق كل ذي علم عليم .. سبحان الله الخلاق العظيم 😃🤲 عجيب جدا هذا الأكسس .. لا تنقضي عجائبه .. سبحان الله .. 🙂 جميلة وممتعة 😊👌🌼 .. سلمت يمناك أبا وسام .. وزادك الله علما وفهما .. ورزقك من حيث لا تحتسب 🙂🤲

كل الحب

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

يمكنك الإستفادة من هذه الأداة الرائعة المقدمة من الأخ @Foksh لتقوم بإرسال رسائل إلى إيميلك وتحتوي على النسخ الإحتياطية كمرفقات كذلك وجدت مشاركة رااائعة للأخ @kkhalifa1960 تنفذ لك طلبك بالضبط على هذا الرابط

مشاركة مع فكرة مستقلة لإرسال بريد إلكتروني مع مرفقات .. اقرأ الموضوع التالي :-

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

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

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

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

وعليكم السلام-اجعل المعادلة هكذا =IF($M$1="زيت 20لتر",(SUMIFS($F$1:$F$5,$B$1:$B$5,$M$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))+SUMIFS($F$1:$F$5,$B$1:$B$5,$N$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0)))/(20*SUMIFS($D$1:$D$5,$B$1:$B$5,$M$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))+IF($N$1="زيت 5لتر",$K$1*SUMIFS($D$1:$D$5,$B$1:$B$5,$N$1,$G$1:$G$5,$L$1,$A$1:$A$5,">="&L4,$A$1:$A$5,"<="&EOMONTH(L4,0))))) ورقة عمل1 Microsoft Excel جديد.xlsx

تفضل ما طلبت =IF(OR(AND(ISEVEN(A1),ISEVEN(B1)),AND(ISODD(A1),B1=9)),"غرفة 15",IF(AND(ISEVEN(A1),ISODD(B1)),"غرفة 13",IF(OR(AND(ISODD(A1),ISEVEN(B1)),AND(ISODD(A1),B1=7)),"غرفة 5","غرفة 20"))) جملة شرطيه1.xlsx

ممتاز استاذ محمد بارك الله فيك -عمل ممتاز وبالفعل سيفيد العديد من الأعضاء .. أكرمك الله والى النجاح والتقدم دائما لمنتدانا

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

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

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

اللهم امين -بارك الله فيك استاذ مجدى وجزاك الله خير الثواب

أكرمك الله استاذ ماجد ... بارك الله فيك

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

بارك الله فيك استاذ موسى وزادك الله من فضله ... وكل عام وانتم بخير

تفضل يمكنك استخدام هذه الدالة المعرفة =RandomNumbers(1,60,0) Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer) Application.Volatile Randomize If IsMissing(Decimals) Or Decimals = 0 Then RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1) Else RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals) End If End Function عدم التكرار.xlsm

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

بعد اذن استاذنا الكريم محمد-يمكنك استخدام هذه المعادلة بالتنسيقات الشرطية =AND(COUNT($A2:$D2)<>0,A2=MAX($A2:$D2)) 111.xlsx