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

النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar

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

لولا البروق واللمعات التي تظهر أثناء الضغط على الأزرار لكان الوضع أفضل نوعا ما 😅

حياك الله أخي الحلبي .. قمت الآن بتعديل الكود ليحمل أي عدد من الأزرار الفرعية .. ولكن بشرط الشرط هو أن تراعي تسمة الأزرار الإضافية بنفس النسق الذي تم تسمية الأزرار السابقة به .. فمثلا أزرار القسم الأول هكذا : ____SubBtn1 (مكان الفراغ تضع رقم الزر الفرعي) و أزرار القسم الثاني هكذا : ____SubBtn2 وهلم جرا ... منظر حي للتعديل : 🙂 للعلم : تم تحديث الرابط في المشاركة الأساسية .. وللزيادة هنا أيضا 🙂 ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb

الاستاذ/ @Moosak ابداع بكل المقايس ابداع ابداع ابداع جزاك الله كل خير

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

تفضل اخونا الفاضل New Microsoft Excel Worksheet (3).xlsx

نماذج وابداعات جميلة اخي @Moosak شكرا لك ...

Sub test() Cells(1).SpecialCells(2, 23).ClearContents End Sub

استاذ/ @Moosak الله يبارك فيك ويصلح حالك وعدت واوفيت لقد قمت باضافة اكثر من فرع بنفس الشرط الذى اشرت اليه حضرتك يبقى لنا انا نجعل القائمة كلها ناحية يمين النموذج وان شاء الله احد الاخوان يقوم بتعديل الكود جزاك الله كل خير كل الاحترام والتقدير

Book1.xlsx

وعليكم السلام 🙂 تفضل جعفر

تفضل اخي الكريم If Not Len(Me.نص7 & vbNullString) = 0 Then Set rst = Me.RecordsetClone rst.FindFirst "[اسم التلميذ] = '" & Me.نص7 & "'" If rst.NoMatch Then MsgBox "هذا الاسم غير مسجل" Else Me.Bookmark = rst.Bookmark End If Set rst = Nothing End If بحث من خلال اسم التلميذ.rar تحياتي

ما شاء الله مبدع يا استاذ موسي

ارفق الملف ومعاه ربع جنيه وانا اساعدك

طيب طبقنا هذا الكود للمقارنة بين حقول الجدولين ..... DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True Dim s As Integer Dim dbss As Database, tdf1 As TableDef Dim dbs As Database, tdf As TableDef Dim fld, fld1 As Field Dim tbl, tbl1 As String tbl = "Table" tbl1 = "Tablex" Set dbs = CurrentDb Set dbss = CurrentDb Set tdf = dbs.TableDefs(tbl) Set tdf1 = dbss.TableDefs(tbl1) For Each fld In tdf.Fields s = 0 For Each fld1 In tdf1.Fields If fld.Name = fld1.Name Then s = s + 1 Next fld1 If s = 0 Then GoTo dd Next fld Set dbss = Nothing Set dbs = Nothing DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True txtImportFile = "" MsgBox "Data imported successfully" Exit_أمر8_Click: Exit Sub dd: MsgBox "هناك اختلاف في اسماء الحقول" DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True تفضل ملفك بعد التعديل ..... Access Import.accdb

الإخوة الأعزاء .. من لديه فكرة جديدة ويريد لها تطبيق فليطرحها هنا ليتم تنفيذها بإذن الله ... 🙂 والدعوة عامة للجميع بالمشاركة ( تفكيراً وتنفيذاَ ) 😄

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

النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 همسة في أذن الخبراء : كيف أجعل القوائم تمتد إلى آخر النموذج من جهة اليمين عند طي الأزرار ؟ وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb

تحتاج كود على مرحلتين الاولى اخراج النسبة بناء على التوصيف والثانية ادراج شرط ان تكون القيمة بين قيمتين طبعا الحقول في مثالك بالحروف العربية ... وستتعب في مستقبل ايامك اذا لم تطور نفسك ويصعب عليك قراءة وفهم الاكواد لذا قمت بتعديل الحقول حتى تتمكن من قراءة الكود بشكل صحيح وفهمه nesb: IIf([twsef ]="1";([mbeat]*10)/100;([mbeat]*20)/100) nesbah: IIf([nesb ]>500;500;IIf([nesb ]<50;50;[nesb ])) Database22.accdb

وعليكم السلام 🙂 الاكسس عنده ماكنة خاصة للملصقات ، يا بالإسم العالمي للملصق ، او اعمل واحد خاص بك بإستخدام زر Customixe: . . جعفر

ما شاء الله ، واقعا هذه اشياء جديدة علينا ، وفي انتظارها على احر من الجمر 🙂 اخي كريم ، نحن الآن في انتظار المادة #2 و #3 🙂 جعفر

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

وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb لا عدمناك عمي جعفر @jjafferr 🙂🌹 وعاد نقل الكود لموديول عام هذي لعبتك 😅

تفضل 🙂 صفحة رئيسية مطورة.accdb

هذه واحدة من الواجهات التي صممتها بطريقة مميزة نوعا ما : والشكر لك مهندسنا @jjafferr على البرنامج الراااااااااائع 🙂 ومن هنا التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذي الواجهة الثانية بناءا على فكرة الأخ @الحلبي ☺️ القوائم الفرعية مع ملف التحميل : صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ تظهر الأزرار الفرعية عند النقر المزدوج وتختفي عند النقر مرة واحدة .. 😅 وهذه صورة توضيحية .. مع إضافة بعض الأمور الجمالية عند مرور الماوس .. وإظهار الصفحات الخاصة بالزر .. وملف التحميل 🙂 صفحة رئيسية مطورة.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb جعفر صفحة رئيسية مطورة.zip ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb520 kB · 439 downloads ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb ⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨⭐🌟⭐✨ النموذج السادس : قوائم منسدلة وأزرار جانبية 🙂 وملف التحميل 🙂 صفحة رئيسية مطورة - النموذج السادس.rar