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

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

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

جرب Public Function kha(frm As Form) frm.Section(acDetail).BackColor = RGB(215, 255, 7) End Function وفي حدث عند التحميل للنموذج ضع ⬇️ kha me

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

the problem is simply because you refer to the incorrect column (Classes Column) while you should refer to the (Committee Column) so to fix change the column from F to G =MINIFS(data!A:A,data!G:G,H6)

اهداء الى طالبه عز-سوريه للعامه وخاصه حاليا يعمل على دقه شاشه 1920x كلمة مرور: 6 استعلام فوري بالمركبات والعملاء ولكن جعلته للمشاركه معكم لا يوجد تقارير وهناك برنامج للاستاذ @عبد اللطيف سلوم بسيط وجميل برنامج تأجير مركبات على قناته وهذا برنامج الاستاذ @عبد اللطيف سلوم ومنها طلب استكمال جزئية الاحتساب كيلو مترات المضافة مع مبلغ المضاف وليس اضافة على المتبقي- وتمديد عقد آخر بجديد كل وقت بحسابه فلا يحتاح الى مبلغ اضافي لتمديد (المطلوب فقط فارق مسافه المستقطعه بالعداد لاجمالي المبلغ آلي ) ولم اكمل ربط علاقات!! نسيت ضم كليهما في واحد لا يحتاج علاقات ليه لا يوجد احد يكمل لي برنامج! لو جزء صغير ربما يكون معقد لدى البعض قدمة لاحد دعوة تسجيل لهذا الموقع اوفيسينا ولكن اشتكى لا يستطيع بسبب مشاكل في تاكيد تسجيل بالايميل الموقع لا يرسل ولا يوجد حل! نصيحه لا تقدم لاي احد دعوة تسجيل لموقع الى بعد فترة اصلاح الموقع وتأكد ! ملاحظه برنامج لتأجير بنيته على مرفق @Eng.Qassim لتحميل البرنامج ميديا فير مباشر وسريع: https://www.mediafire.com/file/3wxd3etu2o6ed5n/X-Care_Upsofte_XGPT_For_Office_RintCare_To_2024_Devloper.rar/file Ezril تقر عينكم بالغايب طويل مسافات

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

التصميم جميل جدا ..لكن البرنامج لايفتح معي لان نسختي 2013

شكرا لك اخي اليك اسلوب اخر بأستخدام OptionButton بدلا من CheckBox شاهد المرقق Pending broker inc. 10-Apr-2023.xlsx

امين اخي ولك بالمثل واكثر وعيدكم مبارك

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

First, manually unprotect the worksheet from Review tab and the command Unprotect Worksheet From [Developer] tab > click on [Design Mode] > Right-click the activex textbox and select the [Format Control] > from [Protection] tab, uncheck [Locked] option Exit [Design Mode] Finally, change the code in worksheet module (you may encounter the error message of protection for once then it will work normally) Private Sub TextBox1_Change() Const sPass As String = "2212" With ActiveSheet .Protect Password:=sPass, DrawingObjects:=False Application.ScreenUpdating = False .ListObjects("data").Range.AutoFilter Field:=7, Criteria1:="*" & [F2] & "*", Operator:=xlFilterValues Application.ScreenUpdating = True End With End Sub

عملت اصلاح ببرنامج مرخص (Access Fix) دون تدخلي في أي شيء وهذا كل مالدي وأنت جرب (لأن أكيد في فورم أو أكثر لا يعمل) وسامحني لأني عندي مشكلة بالنظر خصوصاً عند التركيز (مياه بيضاء في وضع متأخر ). تحياتي لك . ورشة عمل (AccessFIX).rar

اضم صوتي لصوت حضرتك فلم يعمل عندي وطلب تحديث الاوفيس

تفضل أخي وبه طلبك الأول والثاني عند العمل على (تشيك بوكس (اختار)) 1- علم صح وشوف النتيجة 2- الغي الصح وشوف النتيجة اذا كان هذا طلبك اضغط على أفضل اجابة . تفضل المرفق . ادخل مبلغ لعدة اسماء-2.rar

بعد تنزيل الملف وعند تشغيلة طلب اصدار احدث من الاوفيس

شاهد المرفق اخي Pending broker inc. 10-Apr-2023.xlsx

طيب وانا مفيش شكرا

احسنت اخي 😄

تفضل أخي عملت لك البحث في 6 حقول (ID) و (FName) و (LName) و (CompanyName) و (Address) و (City) . واليك المرفق الجديد . Search as you type-1.accdb

تفضل أخي . 02-1.accdb

السلام عليكم تفضل الحل You must remove filters from your data to be able to drag and increase numbers. It is possible to do this in a few ways. Firstly, select the tiny Filter icon in cell B4 and choose Clear Filters From “Names” and hit the OK button. Or, you can select Sort & Filter >> Filter from the Home tab. Besides clicking on the Filter icon from the Data tab gives the same result. Alternatively, you can use CTRL+SHIFT+L as a keyboard shortcut. But the last three ways completely remove all filters from the worksheet. محرك بحث ديناميكي.xlsm

لقد اتشر هذا المبدأ فى الاونة الأخيرة وتتبناه العديد من الشركات و هو يطلق عليه Low Code No Code Platforms أي أن معد البرنامج لا ينبغي ان يكون مبرمجا ، و لكن يستخدم الاداوات المتاحة فى التطبيق و قد تبني معهد ادارة المشاريع مبادرة Citizen Developper ، و يمكنك قراءة المزيد عنها هنا https://www.pmi.org/citizen-developer/ وهذا المقال بضيم بعض الأمثلة علي بعض التطبيقات المشار اليها https://www.trio.dev/blog/low-code-platforms

تفضل طبعاً بعد اذن استاذنا الكريم lionheart .. فالأمر سهل جداً ولكن لابد من الضغط على الإعجاب 💙 من طرفكم لما قدمه لكم استاذنا الكبير lionheart الاباء1.xlsm

In standard module, put the following UDF Function VLookUps(myCode As Range, myList As Range, delim As String, Optional Uniq As Boolean = False) As String Dim e VLookUps = Join(Filter(myList.Parent.Evaluate("TRANSPOSE(IF(" & myList.Columns(7).Address & "=" & myCode.Address(, , , True) & ", " & myList.Columns(2).Address & "))"), False, 0), delim) If Uniq Then With CreateObject("Scripting.Dictionary") .CompareMode = 1 For Each e In Split(VLookUps, delim) .Item(Trim(Split(e)(1))) = Empty Next e VLookUps = Join(.Keys, delim) End With End If End Function In cell F2, you can use the UDF as following =VLookUps(Tabla2[@[إسم ولي الأمر]],Tabla1[#All]," - ",TRUE)

اسال الله العظيم رب العرش الكريم ان يشفيك عن أنس رضي الله عنه قال: سمعت رسول الله ﷺ يقول: إن الله عز وجل قال: إذا ابتليت عبدي بحبيبتيه فصبر عوضته منهما الجنة، يريد عينيه، رواه البخاري.