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

tb10 قيمه الفاتورة AAAAA(1).xlsm

وعليكم السلام-استخدم هذه المعادلة =IF($B7="مصطفي","لا يوجد","")

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

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

الكود يعمل فقط على مربع النص الخاص بالتخصص انظر الصورة في الرد السابق لي ..... عموما تفضل ملفك بعد التعديل عليه ........ Database1601.accdb

السلام عليكم ورحمة الله فى هذا السطر Controls("TextBox" & j).Text = Cells(ListBox1.List(i, 1), j) تغيير بسيط جدا اجعله هكذا Controls("TextBox" & j).Text = Cells(ListBox1.List(i, 1), j+2) و تنتهى المشكلة

طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي .... Dim ctl As Control, strText As Variant, strName As String Me.ScaleMode = 1 For Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox And ctl.name = "Text4" Then strName = ctl.name If Nz(ctl.Tag, "") = "" Then ctl.Tag = ctl.FontSize End If ctl.FontSize = ctl.Tag Me.FontSize = ctl.FontSize strText = ctl.Value If Len(strText) > 0 Then Do Until TextWidth(strText) < ctl.Width ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26) ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop End If End If Next ctl ثم انظر النتيجة ......................

بعد أذن الاستاذ/ إبراهيم الحداد ..مرفق ملف الأكسل بعد اضافة المعادلة. 11.xls

الان حملت الملف في المشاركة السابقة ويعمل بدون مشاكل علما باني استخدم الاصدار 2021 سوف اقوم باعادة رفعه اوفسنا(2).mdb اوفسنا.accdb

مشكور استاذنا الغالي @مبرمج متقاعد ربي يجزيكم الخير ويحفظكم من كل شر انتم منارة للعلم ونبراس للتائهين

تفضل استاذنا ابو اشرف اوفسنا.accdb

السلام عليكم و رحمة الله ..استخدم المعادلة التالية =IFERROR(INDEX($B$3:$C$20;SMALL(IF($B$3:$B$20=$F12;ROW($B$3:$B$20));COLUMN()-6)-2;2);"-") و لا تنسى الضغط على CTRL+SHIFT+ENTER قبل سحب المعادلة يسارا و لاسفل حتى تعمل معك بشكل جيد هذا و الله ولى التوفيق

اشكرك اخي الكريم @مبرمج متقاعد الله يجزيكم الخير

وعليكم السلام عند استخدام مربع تحرير وسرد في الجدول الخدمات فانت عملت حقل المحافظة من نوع رقم وكذلك الحال لحقل الخدمة الان ترغب في عمل مخطط بياني مبني على الجدول ولكن يظهر رقم المحافظة ورقم الخدمة وللتغلب على ذلك هناك بعض الطرق منها استخدام استعلام يتم عمله حسب الصورة المرفقة او قم بانشاء استعلام جديد فارغ ثم في طريقة عرض SQL ضع الكود الاتي ⬇️ SELECT المنتفعين.التاريخ, المحافظات.المحافظات, الخدمات.الخدمات, المنتفعين.المعرف FROM المحافظات INNER JOIN (الخدمات INNER JOIN المنتفعين ON الخدمات.المعرف = المنتفعين.الخدمات) ON المحافظات.المعرف = المنتفعين.المحافظة;