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

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

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

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

هناك الكثير من الأكواد حول هذا الموضوع لكن الكود في هذا الملف يستطيع ان يفصل الاسماء المركبة حتى الاسم الرابع و أكثر مع اضافة تنسيقات تلوينية للنتائج و القدرة على اضافة بعض الأسماء الأولى للاسم المركب (عبد , أبو , سيف , جمال الخ....) 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

تفضل جعفر

وعليكم السلام 🙂 هذا الكود يقوم بالازم : =[iData] & " " & String(50-Len([iData] & " "),".") هذا الامر معناه اعمل 50 مرة ، الحرف/العلامة اللي بين "." string(50,".") . ولكن بسبب ان عرض الحروف ليس متساوي ، نرى الفرق بين الاسطر . جعفر 1096.Dots.mdb.zip

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

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

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

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

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

اقسم بالله ما عارف اقولك اية بسم الله ماشاء الله عليك تسلم هو دة المطلوب بالفعل كدة المستحقون للمكافاه والمحرومين ظهرو بدون تضارب فيما بينهم الف الف شكر ياغالى هو دة اللى بنستناه من الخبراء امثالكم @jjafferr @ابو عارف وبقية اعضاء المنتدى الكرام

ممكن توضحلى المشكلة بالضبط بالصور على الملف لأن صفحة Stock خاصة بك انت لم اقم بعمل اى حاجة بها فقط قمت بالعمل على صفحة In & Out كما أخبرتك

جرب وافني بالنتيجة تجريب.accdb

جرب هذا الكود 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

تم معالجة الامر بتعديل معادلة التنسيق الى COUNTIF(B$3:B$102,B3)>1= ( لاحظ علامة الـــ $ فقط امام الحرف B الاول والثاني ) و التنسيق في النطاق من الخلية B3 الى الخلية AO102 cond_format.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

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

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

تفضل Private Sub Form_Load() DoCmd.RunCommand acCmdRecordsGoToLast End Sub

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

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