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

السلام عليكم ورحمة الله نعم و رقم 7 يدل على عدد الصفوف الخاصة بالمنتجات الستة + صف الاجمالى فى كل مرة ارجو ان تكون قد وصلت الفكرة استخدم المعادلة التالية و اسحبها طولا و عرضا =INDEX($C$2:$G$29;MATCH(K$2;$B$2:$B$28;0)+($L$1-1)*7;MATCH($J3;$C$1:$F$1;0))

احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub لتنزل الملف

وعليكم السلام دائماً وأبداً لابد من احتواء اى مشاركة على ملف يدعمها والا ستكون المشاركة ناقصة وغير كاملة ونبهنا كثير جداً على هذا الأمر ... على كل حال يمكنك استخدام هذا الكود Sub StopDeleteRowCols() Dim xBarControl As CommandBarControl For Each xBarControl In Application.CommandBars.FindControls(ID:=293) xBarControl.Enabled = False Next For Each xBarControl In Application.CommandBars.FindControls(ID:=294) xBarControl.Enabled = False Next End Sub

لا خلاف ان البيانات هي العنصر الاكثر قيمة مع ذلك فان الامرين مرتبطان كلما زادت حماية البرنامج زادت حماية البيانات والعكس صحيح y=ax

Try This File Ah_saed.xlsx

بالنسبة لما يخص المبرمج فأنا اكتفي بتحويل المشروع الى صيغة mde او صيغة accde والمهم عندي هو حماية بيانات العميل .. وأكسس ضعيف في هذا الباب

السلام عليكم ورحمة الله يمكنك استخدام هذه الدالة المعرفة و هى تعطى الترتيب من الاول حتى العاشر فقط مع التكرار Function RRank(Cel As Range, Rang As Range) As String 'Cel : اول خلية فى نطاق الدرجات ' Rang : -F4- النطاق الذى سوف يتم البحث فيه ويجب تثبيته باستخدام مفتاح '---------------------- Dim Obj As Object, I As Long, Arr As Variant Dim temp As Variant, Itm As Variant, Rnk As Integer Dim x As Integer, k As Integer, MK As String, xx As String '================ Set Obj = CreateObject("Scripting.Dictionary") Arr = Rang.Value For Each Itm In Arr If Obj.exists(Itm) Then Obj.Item(Itm) = Obj.Item(Itm) + 1 Else Obj.Add Itm, 1 End If Next temp = Obj.keys I = Obj.Count '================ If I <= 10 Then k = I Else: k = 10 End If For n = 1 To k Rnk = WorksheetFunction.Large(temp, n) If Cel.Value = Rnk Then If n >= 1 And n <= 10 Then xx = Choose(n, "الاول", "الثانى", "الثالث", "الرابع", "الخامس", _ "السادس", "السابع", "الثامن", "التاسع", "العاشر") trb = xx Else trb = "" End If End If Next '================= m = WorksheetFunction.CountIf(Range(Rang.Cells(1, 1), Cel), Cel) If m > 1 And Cel.Value >= Rnk Then MK = " مكرر" Else MK = "" End If '================= RRank = trb & MK End Function

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

تفضل بالمحاولة المتواضعة، و أكيد هناك حلول أحسن، خاصة فيما يخص الراتب التي تحتاج الى تنسيق للتخلق من النقطتين، مجموع كلي للساعات2.rar

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

يبدو انك تريد عمل اهلاك للأصول انظر هنا

من فضلك طالما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك

تفضل DATA14.mdb

حسب رأيي أفضل سؤال يكون كيف نحمي البيانات و ليس حماية البرنامج، البيانات اصبحت مصدر ثروة و فقدانها أو التعديل عليها بالتحايل يسبب خسائر و ربما إفلاس، أما البرنامج دوره عبارة عن وسيط مهما تفننت في حمايته دون حماية البيانات فلا معنى له.

الله الله يا ابوخليل ، صحيح انك اخونا العود ، وما ادري من وين تجيب هالعبارات الجميلة (كان زين لو كنا نعرف بعض من ايام الشباب، كنت بأستفيد من كلماتك لأمور خاصة 😁) 🙂 كلامك في محله ، ولكني لما حولت برنامج اخونا ابو حسان من الاكسل الى الاكسس ، حاولت مراعاة اصول قواعد البيانات ، ولكني لم اعرف جميع تفاصيل برنامجه ، فعملته على قدر المعلومات المتوفرة 🙂 ولكن ، لو كنت اعلم في ذلك الوقت ما اعلمه اليوم ، لكان هناك تغييرات في برنامجه 🙂 افتح الاستعلام الموجود في الصورة في وضع التصميم ، اذهب الى حقل فارغ ، ثم انسخ الكود الذي وضعته لك ، واكتب باقي الاشياء هناك ، فيصبح الحقل كما في الصورة. جعفر

اخي احمد هذه الطريقة تقدم حماية جيده وفكرتها جميله ولكن عند الحديث عن الحماية الكافية بشكل مطلق اقول هذه الطريقة يمكن كسرها سواء كانت القاعدة بصيغة accdb او صيغة accde طبعا انا اتحدث من منطلق السؤال عن الحماية الكافية وانا ايضا اخي جعفر غير مهتم بموضوع الحماية

تحية محملة بالورد الى عمان وأهلها من أجل عيني جعفر استاذنا انت تتحمل المسؤولية 100% نسبة الى مكانتك كمعلم مسؤوليتك انك جاريت اخونا ابو حسان حسب رغبته على حساب اصول البرمجة المتبعة ومجاراتك له تتمثل في نقطتين أساسيتين . الآولى : وجود ارقام الصفحات الخاصة بأكسل وهذا لا معنى له في اكسس الثانية : ادخال القيم السالبة بواسطة المستخدم .. وهذا اعجب من الأول الخلاصة : يبدو لي ان ابو حسان متمسك باكسل والعمل عليه ، وانما يريد اكسس لعمل التقارير فقط يمكن حل مشكلته ان اصر على طريقته وذلك بعمل استعلامات اولية لفصل القيم الموجبة عن السالبة

بالنسبة للدالة ، فرجاء التأكد بأنها كما يلي ، بينما الدالة التي عرضتها في مشاركتك اعلاه (غير صحيحة) ، والموجودة في مرفقك (تم تغييرها الى) : Public Function PN_All(N As Double) As Double 'PN_All : Positive, Negative, All 'N = iAmount Dim frm_Option As String frm_Option = Forms!frm_Main!srch_All_PN If frm_Option = "All" Then PN_All = N ElseIf frm_Option = "Positive" And N > 0 Then PN_All = N ElseIf frm_Option = "Negative" And N < 0 Then PN_All = N End If End Function . الموضوع ماله علاقة بالدالة ، انت تريد عمل تصفية للسجلات ، لهذا السبب ، تم اضافة جقل الاستعلام ليقوم بهبه المهمة : . IIf([Forms]![frm_Main]![srch_All_PN]="Positive",[iAmount]>0,IIf([Forms]![frm_Main]![srch_All_PN]="Negative",[iAmount]<0,[iAmount])) . وما اقدر ارفع برنامجك ، لأني لما اعمل على برنامج وفيه اخفاء الاكسس وصلاحيات زنماذج منبثقة ، فانا اغير جميع هذه الاعدادات حتى اقدر اني اشتغل على كيفي 🙂 جعفر

تسلم سهل الله عليك

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

تفضل يا صديقي Hisham.xlsx

اخي العزيز biskra@ شكراً جزيلاً لك .. اسئل الله ان ينعم عليك بما تحب وان يجعل ذلك في ميزان حسناتك .. اتضحت الفكرة استعنت بمثال الاستاذ أبو آمنه من باب العجالة والغرض هو تطبيق الفكرة على قاعدة بينات صيانة اجهزة الهاتف حيث نعتمد على رقم سريال الجهاز لغرض معرفة الاعطال السابقة التي دخل فيها الجهاز للصيانة وجاري تطبيق ما تفضلتم به علينا وموافاتكم بالنتجية.. دمت رائع محبوب الخصال

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

وعليكم السلام-بسيطة وذلك من خلال استخدام هذه المعادلة بالتنسيقات الشرطية =COUNTIF(شباط!$A$2:$A$210,A2)>0 اعلام بان الرقم موجود1.xlsx

اختار Top Left ، اما الباقين فهي لأمور اخرى ، انظر : جعل برنامجك يتحجم تبعاً لاختلاف الشاشات - responsive design - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

وعليكم السلام 🙂 اختار احد الخيارات ، انت الآن خلطت بينهم 🙂 . جعفر

جزاكم الله خيراً على الكود المميز

وعليكم السلام 🙂 تم حذف هذه الميزة من اكسس 2013 ، ولكن هناك اداة من مايكروسوفت لتقوم بنفس العمل اسمها SSMA ، ويمكنك انزالها من هذا الرابط : https://www.microsoft.com/en-us/download/confirmation.aspx?id=54255 جعفر

الاسم : ابوعبدالله - عدنان على عامر -- من مواليد 1389-10-10 - جده - حاصل علي شهادة البكلوريس في هندسة مالية و اقتصادية - من جامعة الملك عبدالعزيز في برمجة البدائية الاوركل و فيجول بيسك - الكوبول و الباسكال الهندسية (هذه لغات برمجية قديمة على الدوس - اخرتها كان 1993م متقاعد من 2019-10-10 هو نفس تاريخ ميلادي و نفس تاريخ تقاعدي و الحمدالله على كل حال ايميلي هو 0553509277 aaa3.com@gmail.com - اتمني ان اكون اخ لكم و انتم اخوتي والمسول علن الموقع و ان يكون تواصل غير الموقع وتساب موقع MS Team , وشكرا

وعليكم السلام-تفضل لك ما طلبت =CONCATENATE(TEXT(B5,"dddd"),CHAR(10),TEXT(B5,"b2dddd")) 1 Microsoft Excel Worksheet (2).xlsx