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

التطبيق بسيط جدا أخي أبو الحسن 🙂 @abouelhassan فقط تغير الكلام المكتوب على الأزرار ( وليس اسم الزر نفسة كعنصر) وتبدأ بتصميم الصفحات بشكل مباشر في ال (Tab control) وربما تحتاج لوضع نماذج فرعية إذا كنت تريد وضع نماذج مرتبطة بالجداول . أما إذا أردت أن تزيد عدد الأزرار فعليك بالتالي : 🙂 وبعد ذلك تضيف لمساتك الجمالية الأخرى على النموذج 🙂 وإن صعبت عليك الأمور .. إطرح تطبيقك وأرفقه في موضوع جديد منفصل في المنتدى .. وسيهب لك الخبراء من أدنى الأرض وأقصاها لمساندتك 🙂

السلام عليكم ورحمة الله استخدم الدالة المعرفة الاولى لدرجات المواد Function ColorSubject(Rng As Range) As Variant Dim i As Double, j As Integer Dim Color As Variant i = Rng.Value If i >= 25.5 And i <= 30 Then Color = "ازرق" '-------------- ElseIf i >= 19.5 And i < 25.5 Then Color = "اخضر" '-------------- ElseIf i >= 15 And i < 19.5 Then Color = "اصفر" '-------------- ElseIf i < 15 Then Color = "احمر" End If ColorSubject = Color End Function و الدالة المعرفة الثانية لدرجات المجموع الكلى Function ColorLastY(Rng As Range) As Variant Dim i As Double, j As Integer Dim Color As Variant i = Rng.Value If i >= 85 And i <= 100 Then Color = "ازرق" '-------------- ElseIf i >= 65 And i < 85 Then Color = "اخضر" '-------------- ElseIf i >= 50 And i < 65 Then Color = "اصفر" '-------------- ElseIf i < 50 Then Color = "احمر" End If ColorLastY = Color End Function و بعد ذلك استخدم التنسيق الشرطى على اسم كل لون و ينتهى الامر

شكراً على هذا الاطراء الراقي وتحت امرك فى اى وقت وكما تحب وان شاء الله خلال ايام هيكون فى موضوع ارسال الرسائل SMS

جرب هذه الخطوات: 1. لما تخفي الازرار ، اجعل طولها صفر كذلك ، ولما تظهرها اعطها الطول ، 2. اجعل الكود يخفي ويظهر خانات هذا العمود فقط ، وليس بقية الاعمدة كذلك ، 3. احذف المربعات الفارغة في اسفل عمود الازرار ، 4. قد تضطر الى تفكيك الاعمدة ، فتجعل كل عمود في مجموعة واحدة 🙂 جعفر

السلام عليكم ورحمة الله مرفق الملف بعد نسخ كود الدوال المعرفة و تم التطبيق على مادة واحدة و قياسا عليها يمكنك تكملة باقى المواد و تطبيق الدالة الثانية لا يختلف كثيرا عن الاولى و لكن فى العمود المخصص لها تم حفظ الملف بامتداد XLSM حتى يمكننا حفظ الملف المعادلة باللون.xlsm

وعليكم السلام 🙂 اعمل هذا التعديل: بدل هذا السطر Project_path = Application.CodeProject.Path استعمل شيء من هذا القبيل Project_path = "\\DB_on_Server" بحيث \\DB_on_Server هو مسار حفظ البيانات على السيرفر او مجلد المشاركة جعفر

عمل اكثر من ممتاز .. كل الشكر والتقدير لاستاذى الكريم زادكم الله علمااا

حقل item نوعه نص لذلك يجب تعديل الكود ليكون بالشكل التالي Dim rst As DAO.Recordset Me.SubForm.SetFocus Set rst = Me.SubForm.Form.RecordsetClone rst.FindFirst "[item] ='" & Forms!FormMin!txt_item & "'" Me.SubForm.Form.Bookmark = rst.Bookmark Set rst = Nothing Me.SubForm.Form!Quantity.SetFocus New Microsoft Access Database (2).rar تحياتي

عملت لك نموذج بسيط يمكنك من خلاله ان تكتبي استفساراتك ومطاليبك على ورقة... ثم تفتحي موضوعا لكل سؤال تحياتي orders.accdb

استبدل With Sheets("Sheet3").PageSetup .FitToPagesWide = 1 .FitToPagesWide = False End With بـ With Sheets("Sheet3").PageSetup .Zoom = 100 End With

أخي الكريم اليك بعض الأمثلة لتحديد النطاق الذي تريد Cells(1, 1).Resize(5, 10).SpecialCells(2, 23).ClearContents Range("A1:H50").SpecialCells(2, 23).ClearContents Cells(1, 1).CurrentRegion.SpecialCells(2, 23).ClearContents أما 2و23 فلهما علاقة بالقيم الثابتة أرقام ونصوص و ...

ربما Private Sub Workbook_Open() Range("U2") = Evaluate("=EOMONTH(TODAY(),-2)+1") Range("V2") = Evaluate("=DAY(DATE(YEAR($U$2),MONTH($U$2)+1,0))") Range("J5") = Evaluate("=UPPER(TEXT(U2,""[$-40c] mmmm yyyy""))") x = 0 For i = 12 To 42 Range("M" & i) = Evaluate("=IF(1<=V" & 2 & ",IF(OR(TEXT(U" & 2 + x & ",""DDDD"")=""friday"",TEXT(U2+" & x & ",""DDDD"")=""saturday""),0,1),"""")") Range("N" & i) = Evaluate("=IF(1<=V" & 2 & ",IF(OR(TEXT(U" & 2 + x & ",""DDDD"")=""friday"",TEXT(U2+" & x & ",""DDDD"")=""saturday""),0,1),"""")") Range("C" & i) = Evaluate("=IF(M" & i & "=1,""08H00"","""")") x = x + 1 Next Range("A40") = Evaluate("=IF(V2>=29,29,"""")") Range("A41") = Evaluate("=IF(V2>=30,30,"""")") Range("A42") = Evaluate("=IF(V2>=31,31,"""")") Range("E40") = Evaluate("=IF(AND(A40>=29,N40=0),""R.H"","""")") Range("E41") = Evaluate("=IF(AND(A41>=30,N41=0),""R.H"","""")") Range("E42") = Evaluate("=IF(AND(A42>=31,N42=0),""R.H"","""")") End Sub

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

استاذى الفاضل تحت الاعداد الان بامر الله خلال هذا الشهر سيتم نشر الموضوعين .

ولا زالت الإبداعات مستمرة .. 🙂 وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb

السلام عليكم ىورحمة الله اجعل المعادلة الاولى هكذا =IF(LEFT($C2;5)<>"مرتجع";$D2*$E2;"") و الثانية هكذا =IF(LEFT($C2;5)="مرتجع";$D2*$E2;"")