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

- موديول إخفاء إطار الأكسس - التوسيط - التصغير بجوار الساعة - تغيير الأيقونة - استدعاء بيانات ورسائل من جدول تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها 'icon path >>---> CurrentProject.Path &"\"&"\File Library\Fav Ico\Myicon.ico" 'Hide Access >>---> CallStartForm() 'CenterObjects >>---> Call CenterFrm(Me) 'Minimize To Systray >>---> Call AppMini() 'To Quit Application >>---> Call AppQuit() 'To Close Any Forms >>---> Call AppCloseFrm() 'Application Name >>---> Call AppName() 'Designer Name >>---> Call DesName() 'Designer Phone >>---> Call DesPhone() 'Designer Email >>---> Call DesEmail() 'call Any Message From Table '>>>>> StrMyCriteria = "MyCriteria ='xxxx'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle '>>>>> Change "xxx" By Criteria From Table >> UsystblUsefulData << By Criteria From Field [MyCriteria] '>>>>> Example MyCriteria >>---->> msgDesData '>>>>> StrMyCriteria = "MyCriteria ='msgDesData'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle هذا المرفق الاول بدون عمل اختصار للبرنامج Utilities Hide Ico Minimze To SysTray.zip --------------------------------------------------------------- هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData اسم الاختصار الوصف مفتاح الاختصار من الكيبور لفتح التطبيق وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية Utilities Hide Ico Minimze To SysTray V.02.zip

كنوع من رد الجميل لهذا المنتدى الرائع والقائمين عليه اقدم هذا البرنامج هدية مجانية لعل وعسى يستفيد منه أحد الرقم السري لفك الضغط 12345 شرح سريع للبرنامج دعواتكم لوالدي بالرحمة والمغفرة برنامج تحصيل الايجارات من الشقق - الاصدار الاول.rar

اتفضل شرح بسرعة - جرب اضافة ملفاتك الصوتية قبل فتح البرنامج الى المجلد المرفق باسم sound files يا عينى ع الدلع APP_Player.zip

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

ليست المشكلة بالقاعدة اعتقد هناك مشكلة ما بسبب الاكواد فقط انا قمت بإضافة التعديلات والأكواد اللازمة لاضافة الاختصار وبطريقة متقدمة واحترافية وعلى نفس النسخة دون اى مشاكل وتم وضع المرفق الجديد بالمشاركة الأصلية واختصار منه هنا معلش انا فى المرفق ده هناك تشابك وتداخل وارتباط بين اكواد خصائص القاعدة واليك طريقة احترافية لوضع الاختصار والتحكم بكل صغيرة وكبيرة تخص الاختصار تم وضع المرفق فى المشاركة الأصلية وهاك اختصار منه هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData اسم الاختصار الوصف مفتاح الاختصار من الكيبور لفتح التطبيق وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية للاكسس Utilities Hide Ico Minimze To SysTray V.02.zip

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

تفضل لك ما طلبت ولاحظ هذه الصورة فسوف توضح لك الذى تسأل عليه طب الفم والاسنان.xlsx

وعليكم السلام تفضل ,كان عليك من البداية ادخال الساعات كفورمات الوقت كما ترى بالملف لكى يخرج الناتج كما تريد ENG_K.xlsx

اوائل الثانوية العامة بالصور باركود الفيديو الصور

أستاذى @ابا جودى بعد اذنك لقد اضفت كود اضافة ايقونة على سطح المكتب لتشغيل البرنامج منها Utilities Hide Ico Minimze To SysTray.rar

الله يعطيك العافية يا بوجودي جزاك الله خيرا لما تقدمه من نفع للجميع

حياك الله اخوي ابوعارف 🙂 همممم ، عادة انا ما احب ان اغير في اعدادات برنامج صاحب السؤال ، إلا اذا يكون هناك شيء ظروري 🙂 وانا كنت منتبه لنوع الحقل انه نص ، لهذا السبب عالجته في معيار الاستعلام هكذا (لاحظ الدوائر 🙂 ) : . بس الطلب ما كان واضح ، لهذا السبب ما قدرت اعطي اجابة صحيحة 🙂 ولكنك ماشاء الله ، قدرت ان تعرف المطلوب ، وعليه قدمت الاجابة 🙂 جعفر

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

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

وعليكم السلام-اهلا بك في المنتدى كان عليك استخدام خاصية البحث في المنتدى تفضل هذا الرابط : https://www.officena.net/ib/topic/91673-برنامج-لتسجيل-الخطابات-وحفظها-مع-إمكانية-فتحها-صادر-وارد/?tab=comments#comment-574880 وهذا فيديو لشرح طريقة وبرنامج اخر https://www.youtube.com/watch?v=8zCrmBIs_aY

جرب هذا لربما يفي بالمطلوب ....... برنامج قديم ... ACCESSkiller_VB.rar

اتمنى ان يكون هو المطلوب وفق الله الجميع صور المستخدمين.rar

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

السلام عليكم عندنا لكم أيها الأخوة الزملاء بتحديثات وتحسينات وإضافات ليوم السبت / 20 - 07 - 2019 م الموافق 17 ذو القعدة 1440هـ وهي كالتالي : توحيد الألوان والخطوط في النماذج . تعديل خطأ المبلغ السالب في الفاتورة . تعديلات طفيفة على كود إخفاء شاشة الأكسس إضافة شاشة خاصة بسداد الديون ( زبون - مورد ) . إصلاح بعض الأخطاء البرمجة . الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" بالتوفيق

جرب المرفق Data2.accdb

اقتطعت لك من برنامج الخليل المحاسبي نظام صلاحيات المستخدمين وإضافة الصورة لعله يفيدك UsersAdd.rar

السلام عليكم و رحمة الله و بركاته هذا صحيح ولكن يبدو استاذ جعفر لم ينتبه الى تنسيق حقل درجات (نص) في جدول، يجب تغيره الى رقم مثلا لو مؤظف حصل على 100 درجه اكيد سيختفي من من حصل على 90 أو اكثر في عامين متتاليين لان 100 في تنسيق نص أقل من 90 و بنسبة طلب الاخير اليك المثال في المرفق حسب فهمي 1091.1.accdb

ازاى لابد من التأكد قبل طرح المشاركة -فالملف موجود بالمشاركة الرئيسية ,شوف بنفسك Charts Form.rar

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

وعليكم السلام 🙂 تفضل: . جعفر تجريب.zip

تفضل -تم تصميم الملف وحماية الخلايا لعدم العبث بالمعادلات المشروع الصغير.xlsm

تفضل حفارات.xlsx

على اى اساس يتم وضع وحساب ساعات الخصم

صديقي @كوماندير مر علي برنامج لاغلاق البرامج العالقة ... اذا تحتاجة ابحث لك عنه في مكتبتي ... ان شاء الله اجده ..

تفضل جعفر

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

شكراً معلمنا الجليل ابا جودى شكر الله سعيك ، وغفر ذنبك ، وأعلى درجتك . وزادك الله علماً وفهماً وعملاً .

الله لا يحرمنا منك اخونا الكبير ابا جودي قاهر الاكسس دمت بخير يا غالي ونطمع بالمزيد من روعاتك

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

أرجو مساعدتي اخواتي الأعزاء مرفق البرنامج لدى شيته اكسل وبها أصناف أريد عمل رساله تحذيريه بانتهاء الصنف وشكرا نموذج المخزن .xlsx مرفق البرنامج

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

في التحديث القادم سأجعل تحديث السعر من قائمة الاصناف اختياري من الاعدادات وبالنسبة للاستفسار الاخ سمير عن الخصم في الفاتورة يمكنك التحكم الكامل من خلال نموذج البيانات الأساسية وهو متاح الآن

أحسنت .. الف الف شكر بالفعل هذا المطلوب الله يسعدك يارب

انظر الى المشاركة الاخيرة هناك تفاصيل اكثر حيث يقوم الكود بوضع كل نطاق من الــ Range في سطر مستقل داخل الــــ MsgBox لحسن قرائته

تحديث بسيط على الكود و فعاليته Option Explicit Sub select_my_special_range() Dim z%, y#, x#, i# Dim Lr%: Lr = Cells(Rows.Count, "F").End(3).Row Dim My_min#: My_min = Application.Min([b2:c2]) Dim My_max#: My_max = Application.Max([b2:c2]) [c2] = My_max: [b2] = My_min If My_max > Lr Then _ My_max = Lr: [c2] = My_max If My_min > Lr Then _ My_min = 1: [b2] = My_min Dim my_rg As Range Range("f1:f" & Lr).Interior.ColorIndex = xlNone i = My_min Do While i < My_max + 1 On Error Resume Next x = 1 / Range("f" & i) y = Range("f" & i) + 1 z = IsEmpty(Range("f" & i)) On Error GoTo 0 If x + y + z <> 0 Then If my_rg Is Nothing Then Set my_rg = Range("f" & i) Else Set my_rg = Union(my_rg, Range("f" & i)) End If End If i = i + 1 x = 0: y = 0 Loop my_rg.Select my_rg.Interior.ColorIndex = 6 MsgBox "YOUR RANGE IS :" & Chr(10) & _ Join(Split(my_rg.Address, ","), Chr(10)) End Sub الملف من جديد select_numeric_new.xlsm

انا حذفت List0 و List2 و List3 و List4 و List5 ، لهذا السبب سالتك ليش هالشغل كله 🙂 جعفر 1093.Ex2.accdb.zip

السلام عليكم الاخ سمير اعطني رأيك في حساب الصندوق بطريقة الدائن والمدين تم عمل استعلام توحيد باسم f ودمج أربع جداول في استعلام واحد

وعليكم السلام -لو ممكن تجرب هذا الرابط https://www.officena.net/ib/topic/36127-خطوات-تمكين-وحدات-الماكرو-فى-الإكسيل/ وهذا ايضا فيديو به شرح التمكين https://www.youtube.com/watch?v=3glRKFQ8GFU

وعليكم السلام تفضل المجموع.xls

اين الاعجاب

تفضل-بمجرد الضغط على أيقونة فتح صفحة جديدة ,سوف يتم ادراج صفحة جديدة بتاريخ اليوم به قائمة منسدلة بالمطلوب في الخلية A1 اختر منها ما تريد ولاحظ تغيير لون شريط الصفحة بمجرد الإختيار وعذرا قد تم تغيير بنود القائمة المنسدلة الى اللغة الإنجليزية لعمل الكود بكفاءة ** فتكون العطلة الرسمية ...... Official holiday **والدوام الرسمى ...... Official time **و غير ذلك ......Other تلوين.xlsm

تفضل لك ما طلبت بمجرد الضغط على الأيقونة سيظهر لك كم باقى على المناسبة الأقرب القادمة عدد الأيام المتبقية على المناسبات.xlsm

وعليكم السلام من فضلك وضع على الملف النتيجة المطلوبة واى الخلايا يتم العمل عليها

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

تفضل اخى الكريم هناك حلين لطلبك: أولهما:بالمعادلات ,فى المرفقات والثانى:بالأكواد ,فى هذا الرابط نفس الموضوع مشروح https://www.officena.net/ib/topic/86303-عمل-الهايبر-لينك/?tab=comments#comment-548185 ملفات الموظفين.rar