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

- موديول إخفاء إطار الأكسس - التوسيط - التصغير بجوار الساعة - تغيير الأيقونة - استدعاء بيانات ورسائل من جدول تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها '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

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

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

السلام عليكم ورحمة الله وبركاته يسرني ويسعدني أن أقدم لكم هدية متواضعة عبارة عن برنامج محاسبي اسميته ( برنامج الخليل المحاسبي ) سبب تسميته هو بنائي على قاعدة معلمنا الجليل @ابوخليل الذي تعلمت من برامجه تعلم صامت فلذلك يسمح لي أن أطلق اسم البرنامج على اسمه عسى أن يكون هذا العمل خليلاً لنا في الجنة ،،، كما أتقدم بجزيل الشكر لمعلمينا الأفاضل الذي تعلمت منه ولا زلت أتعلم منهم وهم تاج على رأسي المعلم الجليل @jjafferr المعلم الجليل @رمهان المعلم الجليل @أبو إبراهيم الغامدي المعلم الجليل @ابا جودى وجميع منسوبي المنتدى أيضاً لا أنس من اقتبست من بعض برامجه في المنتدى الذي لا أذكر أسماؤهم لكن الله يعلمهم . وأشكر الأخ الغالي الأنيس @عبد اللطيف سلوم الذي يشجعني على المواصلة . والآن تقبولوا هديتي ولا تنسونا والدينا ومعلمنا من صالح دعائكم ،،، ودعاؤكم الخالص بشفاء والدي ،،، أرجو أن اتلقى ملاحظاتكم على البرنامج ،،، اسم المستخدمين : ابوخليل/ صالح كلمة المرور : 123 ولمعرفة كلمة المرور ضع هذه العبارة "O123O" في كلمة المرور بعد اختيار اسم المستخدم وهناك أسرار أخرى اكتشفها بنفسك -------------------------------------------- تحديث الخميس 15 ذو القعدة 1440هـ أبرز التحسينات والتطويرات : إضافة صورة لكل مستخدم . إصلاح بعض الأخطاء البرمجة . تحسينات أخرى .  ستجدون مجلد ImgUsers بجوار البرنامج عند إضافة صورة للمستخدم سيقوم الكود بإضافة صور المستخدمين داخل المجلد كلا باسمه . بالتوفيق الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" والمرفق في المنتدى (قد يكون المرفق اعلاه احدث من المرفق هنا) : __BuySal-20190725T151152Z-v09.zip

هناك الكثير من الأكواد حول هذا الموضوع لكن الكود في هذا الملف يستطيع ان يفصل الاسماء المركبة حتى الاسم الرابع و أكثر مع اضافة تنسيقات تلوينية للنتائج و القدرة على اضافة بعض الأسماء الأولى للاسم المركب (عبد , أبو , سيف , جمال الخ....) Option Explicit Sub split_names() Application.ScreenUpdating = False Dim my_st$, st1, st2 Dim last_col% Dim my_name, i%, k%, Col%, int_col% Dim Lr%: Lr = Cells(Rows.Count, 1).End(3).Row Dim mon_range As Range Dim fin_rg As Range Range("b2").Resize(Lr - 1, 10).Clear Dim arr: arr = _ Array("سيف", "عبد", "أبو", "ابو", "عز", "صدر", "نور") '++++++++++++++++++++++++++++++++++++++ Rem Array تستطيع ان تضيف اي بداية اسم مركب داخل هذا الــ '+++++++++++++++++++++++++++++++++++++ For i = 2 To Lr If Range("a" & i) = vbNullString Then GoTo Next_i my_st = Trim(Range("a" & i)) my_name = Split(Trim(my_st)) Range("b" & i).Resize(1, UBound(my_name) + 1) = my_name Next_i: Next '============================== For i = 2 To Lr last_col = Cells(i, Columns.Count).End(1).Column Set mon_range = Range(Cells(i, 2), Cells(i, last_col)) For k = 1 To last_col - 1 If Not (IsError(Application.Match(mon_range.Cells(k), arr, 0))) Then st1 = mon_range.Cells(k): st2 = mon_range.Cells(k + 1) mon_range.Cells(k).Delete Shift:=xlToLeft mon_range.Cells(k) = st1 & " " & st2 End If Next Next Set fin_rg = Range("a1").CurrentRegion Lr = fin_rg.Rows.Count Col = fin_rg.Columns.Count With fin_rg.Offset(1).Resize(Lr - 1, Col - 1).Offset(, 1) .Borders.LineStyle = 1: .Font.Bold = True .InsertIndent 1: Columns.AutoFit .SpecialCells(2).Interior.ColorIndex = 35 End With Set mon_range = Nothing Set fin_rg = Nothing Application.ScreenUpdating = True '=============================== End Sub الملف مرفق sep_complex_names_New.xlsm

وهذا المرفق لتمرير اى تاريخ كم القاعدة والتحكم بتنسيق هذا التاريخ دون النظر لاعدادات الجهاز ومن واقع جدول المرفق لــ أستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr مع بعض التغير داخل الجدول لتغيير التنسيق ثم تمرير التاريخ الى الموديول لنحصل على تنسيق موحد كما نريد Control Format Date - 2.accdb

السلام عليكم ماشاء الله تبارك الله أخي عبداللطيف كعادتك الهدية لا تفارقك إبداع ولمسات رائعة تشكر عليها وإلى الأمام

وحليت مشكلة اخرى .. تسلم أخي @محمد احمد لطفى

ابا جودى الله يسعدك ويوفقك اخي العزيز شاكر ومقدر وممتن لك ساعدتني كثير بعد تعب ايام من البحث والله فيك خير ولك مني الدعاء بظهر الغيب

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

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

العفو اخوي ابو آمنة ، المنتدى موجود لخدمة ومساعدة الاعضاء ، وانا اعرف حسن نيتك في المساعدة 🙂 جعفر

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

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

حيث انك لم ترفع ملفاً للمعاينة قمت بتصميم ملف يتناول ما تريد (مع حرية اختيار البداية وانهاية) 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]) If My_max > Lr Then _ My_max = Lr: [c2] = My_max If My_min > Lr Then _ My_min = 1: [c2] = 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) & my_rg.Address End Sub الملف مرفق select_numeric.xlsm

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

جرب هذا الكود Private Sub Form_Current() Me.KeyPreview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF9 Then DoCmd.Close Exit Sub End If End Sub

اكون ممنوناً لك اخي @kanory

وعليكم السلام-ما تريده داخل هذا الرابط https://www.officena.net/ib/topic/43841-ضبط-دقة-عرض-ملف-الاكسل-بحسب-دقة-عرض-الشاشة/

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

بارك الله فيك وأكرمك دائما ولك بمثل ما دعوت للجميع واكثر وجميع الأخوة والأساتذة هنا مازلنا طلبة علم وزكاة العلم لابد من نشره وعدم كتمانه

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

وعليكم السلام -بارك الله فيك أستاذ سليم وزادك الله من فضله وهذا حل اخر بمعادلات المصفوفة لإثراء الموضوع بحث فى جدول.xlsx

جرب هذا الماكرو Option Explicit Rem =====>> created by Salim Hasbaya 13/7/2019 Sub Get_Data_Please() '========================== Dim Source_Sh As Worksheet Dim Target_Sh As Worksheet Dim LRS%, LRT%, RG_S As Range, RG_T As Range Dim cel As Range, My_adrs As Range '========================== Set Source_Sh = Sheets("DATA") Set Target_Sh = Sheets("TAB") LRS = Source_Sh.Cells(Rows.Count, 2).End(3).Row LRT = Target_Sh.Cells(Rows.Count, 3).End(3).Row Set RG_S = Source_Sh.Range("b3:M" & LRS) Set RG_T = Target_Sh.Range("C4:E" & LRT) Target_Sh.Range("F4:H" & LRT).ClearContents On Error Resume Next For Each cel In RG_T On Error Resume Next Set My_adrs = RG_S.Find(cel, lookat:=1) On Error GoTo 0 If Not My_adrs Is Nothing Then cel.Offset(, 3) = Source_Sh.Cells(My_adrs.Row, 2) End If Next End Sub الملف مرفق ب جدول - Copy.xlsm