Moosak

اعرض الملف ✨نصوص متحركة ✨ .. 4 أربعة أشكال متنوعة مما لذ وطاب 😊👌 السلام عليكم ورحمة الله وبركاته 🙂 هذي من بعض التجارب على عمل أشكال جديدة على النصوص المتحركة .. وقد خلصت التجارب إلى التالي 🙂 للاستفادة من المثال : لدينا أربعة نماذج ، كل واحد منها يحتوي على أحد الأشكال الموضحة بالترتيب .. قم بفتح النموذج المراد تطبيقه ثم أنقل الأكواد مثل ما هي إلى برنامجك + الليبل الموجود في النموذج ( ويمكنك أستخدام الليبل الخاص بك ) قم فقط بتعديل النص المراد تحريكة + اسم الليبل الذي سيتحرك النص بداخله . صاحب الملف Moosak تمت الاضافه 03 أكت, 2024 الاقسام قسم الأكسيس  

شكرا @hanan_ms 🌹 تصميم جميل وألون باهرة .. 🙂 لكن هل يمكن شرح كيفية الاستفاده منه بالصوت ( الكلام ) ؟ ولو عن طريق الذكاء الإصطناعي أو الكتابة .. لأن التصميم متداخل جدا وغير مفهوم إطلاقا .. 😪

السؤال غير واضح 🙂🖐

أنصحك بعكس تصميم التقرير .. التقرير الرئيسي للآباء .. وداخله تقرير فرعي يظهر الأبناء .. فلو كان الأب ليس لديه أبناء .. يظهر اسم الأب ويختفي التقرير الفرعي 🙂 لديه أبناء ليس لديه أبناء مثال.rar

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

أعد إرفاق الملف أخي أسامة 🙂 وبين ماهية المشكلة بشكل أوضح .. لفهم المشكلة

تفضل 🙂 : علم على المواد التي تود إظهارها Private Sub Report_Open(Cancel As Integer) Dim WidthEach As Long: WidthEach = 4560 Dim x As Integer: x = 4 Me.Ar.Visible = [Forms]![Form1]![Ar] Me.En.Visible = [Forms]![Form1]![En] Me.Dr.Visible = [Forms]![Form1]![Dr] Me.Si.Visible = [Forms]![Form1]![Si] If [Forms]![Form1]![Ar] = False Then Me.Ar.Width = 0: x = x - 1 If [Forms]![Form1]![En] = False Then Me.En.Width = 0: x = x - 1 If [Forms]![Form1]![Dr] = False Then Me.Dr.Width = 0: x = x - 1 If [Forms]![Form1]![Si] = False Then Me.Si.Width = 0: x = x - 1 If x > 0 Then WidthEach = WidthEach / x If Me.Ar.Visible = True Then Me.Ar.Width = WidthEach If Me.En.Visible = True Then Me.En.Width = WidthEach If Me.Dr.Visible = True Then Me.Dr.Width = WidthEach If Me.Si.Visible = True Then Me.Si.Width = WidthEach Else: Me.Class.Width = Class.Width + WidthEach End If End Sub درجات الطلاب.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 كتبت لك كود يراعي أن يكون المبلغ المدفوع أقل من أو يساوي المدفوع وكذلك الكود يكمل على الدفع السابق في حال أنه تم دفع جزء من المبلغ سابقا.. تفضل هذا هو الكود : Private Sub Command6_Click() Dim PayedAmount As Double, Amount As Double, Remaining As Double Dim RS As DAO.Recordset Dim SQl As String PayedAmount = Nz(Me.Text4, 0) If PayedAmount = 0 Then MsgBox "أدخل المبلغ": Exit Sub Remaining = Nz(DSum("rest", "Table1", "cod = " & [Forms]![Form1]![sh]), 0) If PayedAmount > Remaining Then MsgBox "المبلغ المدفوع أكبر من المبلغ المتبقي للسداد": Exit Sub SQl = "SELECT * FROM Table1 WHERE Table1.rest > 0 AND Table1.cod = " & [Forms]![Form1]![sh] Set RS = CurrentDb.OpenRecordset(SQl) Do While Not RS.EOF RS.Edit If PayedAmount >= RS.Fields("rest") Then Amount = RS.Fields("rest").Value RS.Fields("pye").Value = RS.Fields("pye").Value + RS.Fields("rest") If RS.Fields("rest").Value = 0 Then RS.Fields("valider").Value = True PayedAmount = PayedAmount - Amount Else RS.Fields("pye").Value = RS.Fields("pye").Value + PayedAmount If RS.Fields("rest").Value = 0 Then RS.Fields("valider").Value = True PayedAmount = 0 End If RS.Update If PayedAmount = 0 Then Exit Do RS.MoveNext Loop Me.w.Requery MsgBox "Done" Set RS = Nothing End Sub pye.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 لن تحتاج لكل هذه التقارير والاستعلامات .. وضعت لك استعلام واحد وتقرير واحد لكل الصفوف : والتقرير حسب الاختيار من القائمة : درجات الطلاب.accdb

مع أن الملف يعمل عندي بدون مشاكل .. لكن جرب الآن .. 🙂 test.accdb

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

وعليكم السلام ورحمة الله وبركاته أخي فؤاد 🙂 تكرما أرفق الملف لكي يطلع عليه الإخوة ..

يا عزيزي hanan ما فهمت إلا نقطة واحدة فقط 😅 والباقي أعيد قراءة الكلام أكثر من مرة .. وعينيك ما تشوفش إلا النور .. ما فهمتش حاجة 🙃 ودام أنك شخص محترف .. أعمل هذي التعديلات وورينا إياها 🙂👌

اعرض الملف ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ السلام عليكم ورحمة الله وبركاته 🙂 اليوم يسرني أن أقدم لكم فكرة مبتكرة لتصميم :: الصفحة الرئيسية للبرنامج مع قائمة جانبية متمددة :: بألوان جميلة وتصميم راقي وتحكم شامل بعدد عناصر القائمة والقوائم الفرعية لها 👌 وأهم شي استهلاك أقل كمية من البرمجة والأكواد في التصميم ✌ :: وبدون مقدمات نبدأ على بركة الله :: الفكرة الرئيسة للقائمة الجانبية هي : عمل نموذج فرعي مستمر يستمد بياناته من جدول بحيث أن جميع عناصر القائمة الفرعية عبارة عن سجلات هذا الجدول ، ومن خلال هذا الجدول يتم ترتيب مواقع العناصر من خلال الحقل الرقم Order وكذلك يتم تصنيفها إن كانت زر رئيسي أم فرعي من خلال حقل Main or Sub والأيقونات يتم تخزينها في حقل مرفقات ، وأما الأوامر التي ستنفذها الأزرار فهي مخزنة أيضا في الجدول وهي محصورة في الأوامر التالية ( فتح نموذج - فتح نموذج فرعي - فتح تقرير - فتح تقرير فرعي - إظاهر رسالة نصية) .. والخطوة التي تأتي بعد ذالك هي تصميم النموذج الذي سيضم هذه الأزرار ، ويراعي الترتيب + فرز الأزرار الرئيسية والفرعية في الظهور + التنسيق الشرطي الذي يلون الأزرار بالألوان المناسبة لكل حالة + كود لتنفيذ الأوامر الموكلة للأزرار + .... وهكذا ثم بعد ذلك تصميم نموذج شامل للتحكم بالأزرار .. :: وللاستفادة من هذا الملف :: ستحتاج لهذه العناصر فقط ، ( والباقي كله زيادات لغرض الشرح ) : :: وهنا يأتي شرح يوتيوبي كافي وافي مفصل عن التصميم :: وفيه أيضا فوائد إضافية مثل ( طريقة اختيار أيقونات متناسقة ، وإشارة للنماذج المتطورة الأخرى ) :: تحديثات جديدة :: قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه لوحة التحكم : ملاحظة مهمة : قد لا يعمل هذا النموذج بشكل جيد على النسخ القديمة من 2007 وما قبلها . :: ولا تنسونا من صالح دعواتكم الطيبة 🙂 🌹🌷 :: صاحب الملف Moosak تمت الاضافه 16 سبت, 2024 الاقسام قسم الأكسيس  

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

ما هو هذا الأمر الآخر ؟ لعلنا نجد لك طريقة أسهل 🙂 وإذا أنت معزم على طريقتك الأولى .. باختصار أعمل استعلام تحديث لتحديث البيانات في الجدول الثالث .

وعليك السلام ورحمة الله وبركاته أخي @محمدمطر 🙂 أهلا وسهلا بك في بيتك الثاني 🙂 🌷 الجواب : لن تحتاج لهذه العملية المعقدة أخي محمد .. ستقوم الاستعلامات باللازم .. ستحتاج لاستعلام يجمع لك البيانات من الجدولين ما دام أنك رابط الجدولين بعلاقة .. والنتيجة : وهذه طريقة تصميم الاستعلام : تفضل ملفك بعد التعديل : تجربه تحديث جدول من جدولين.mdb

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

جرب هذا التعدل .. التعديل تم على البحث فقط .. لو أردت البحث عن اسم الأب أو الجد بعد اسم الطالب أكتب * بدل المسافة db1 (Moosak).mdb

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

نعم في الأحوال العادية + تعمل عمل & ... ولكن عندما تجمع + قيمة معينة مع قيمة = Null فإن المجموع دائما يساوي Null . تماما كما يكون حاصل ضرب أي عدد في صفر فإن الناتج دائما يساوي صفر 🙂 لذلك عندما نقول ( "-" + Text2) مثلا .. فإن Text2 يحل محلها القيمة التي تكتبها في مربع النص ، أما إذا كانت فارغة فإنه تحل محلها القيمة Null فتكون المعادلة بذلك ( "-" + Null ) = Null وهذا ما يفسر إختفاء الشرطة في حال أن قيمة الحقل فارغة . 🙂 ولو فحصنا ذلك في نافذة الإميديت سنجد : ولكن لو استبدلنا الـ + بال & سنجد أن النتيجة ستصبح هكذا : الشرطة التي ظهرت هي الشرطة التابعة للـ Text3 🙂 لاحظ أنني غيرت موضعها في الكود عن كودك الأصلي 😎✌

سأعطيك حيلة صغيرة تحقق لك ذلك بدون الحاجة لكتابة المزيد من الأسطر 🙂 تكتب الكود هكذا : Private Sub ramzText() TextX = (Text4 + "-") & (Text3 + "-") & (Text2 + "-") & (Text1) End Sub والنتيجة : 🙂 ----------------------------------------------------------------------

شكرا عمي أبو خليل 🙂 وهذا تحسين بسيط لكي ينتقل المؤشر تلقائيا للخلية التالية xx.rar