Moosak

ماشاء الله تبارك الله .. لك بصمة في كل مجال 🙂

بالإضافة لطريقة المهندس @محمد احمد لطفى جرب هذه الطريقة أيضا 🙂 : If IsDate(Me.datex) Then Me.datex2 = Year(CDate(Me.datex)) End If test8102024.rar

وعليكم السلام ورحمة الله .. تفضل 🙂 New Microsoft Access Database (4).rar

أخي أزهر .. حسب تصوري للموضوع أنك تريد نظام لمعرفة السجلات المضافة من قبل المستخدمين الآخرين وهل تم قرائتها من قبلك أم لا .. إن كان هذا هو مطلبك .. فستحتاج أن تضيف حقلين نصيين في الجدول .. الأول ( أضيف بواسطة ) : .. وفيه يتم تسجيل أسم المستخدم الذي أضاف السجل ... ويوضع في حدث قبل الإدراج. الثاني (قُرِئِت) : ... وفيه يتم إضافة اسماء المستخدمين الذين فتحو هذا السجل .. ويوضع في حدث عند الحالي وتعمل استعلام يقوم بحصر السجلات الغير مقروءة من قبلك .. فإن كان عددها أكبر من 1 تظهر لك الرسالة التنبيهية التي تريدها .. وسلامتك 🙂🖐 تم إضافة جميع ما سبق إلى ملفك : mr.accdb

وعليكم السلام ورحمة الله وبركاته معلمنا العود ، عدت والعود أحمد 😊🌹🌼 بل خسارتنا أحنا أكبر لما تغيب عنا ونفتقد توجيهاتك وخبراتك 😅🖐

وعليكم السلام ورحمة الله وبركاته 🙂 ضبط إعدادات اللغة العربية عندك :

السلام عليكم أخي @gavan 🙂 ما اسم الجدول المستهدف؟ وما اسم الحقل المراد جمعه ؟ وهل هناك شروط أخرى للجمع غير أن التاريخ يجب أن يكون قبل التاريخ المعطى ؟ ولو تكرمت أضف المزيد من السجلات للتأكد من سلامة التطبيق .. لا يمكن التحقق من سلامة النتيجة ب 3 مدخلات فقط !!

نعم ضع المعايير التي تريدها في الدالة .

أنت البحر بأمواجه أستاذنا العزيز @ابوخليل 🙂 🌹 والعسل لا ينطق إلا كلام كالعسل يا عسل 🙂 🌷 روعتها من روعتكم 😊🌷

جرب هذا ... 🙂 *لإخفاء وإظهار ورقة الخصائص PropertySheet* *شرح الكود:* من عند المهندس أبا جودي *الكود:* '================================(الروتين العام) Private Sub EnablePropertySheet() Dim obj As Object For Each obj In CommandBars If obj.Index < 10 Then obj.Enabled = True End If Next obj End Sub Private Sub DisablePropertySheet() Dim obj As Object For Each obj In CommandBars If obj.Index < 10 Then obj.Enabled = False End If Next obj End Sub '================================(الأوامر التي توضع على الأزرار للاستدعاء) Private Sub BtnOn_Click() On Error GoTo ErrHandler CommandBars("Property Sheet").Enabled = True ErrHandler: If Err Then Call EnablePropertySheet End Sub Private Sub BtnOff_Click() On Error GoTo ErrHandler CommandBars("Property Sheet").Enabled = True CommandBars("Property Sheet").Enabled = False ErrHandler: If Err Then Call DisablePropertySheet End Sub *طريقة الاستدعاء (الاستخدام):* يوضعان على زرين أحدهما لإخفاء ورقة الخصائص والثاني لإظهارها Private Sub BtnOff_Click() Private Sub BtnOn_Click() *مكتبة الأكواد*

وعليكم السلام ورحمة الله وبركاته أخي سامر 🙂 من أين تأخذ قيمة الحقل ؟ هل من الجدول مباشرة أم من النموذج ؟ إن كانت من الجدول فاستخدم دالة >> Dlookup أما إن كان من النموذج فاكتب في الاستعلام : >> forms![FormName]![location]

اعرض الملف ✨نصوص متحركة ✨ .. 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

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

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