-
Posts
1,997 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
51
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه Moosak
-
-
13 ساعات مضت, aghaasd said:
اريد الصف ومادة واحدة او مادتين معا اختارهما
تفضل 🙂 : علم على المواد التي تود إظهارها
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
- 1
-
وعليكم السلام ورحمة الله وبركاته 🙂
كتبت لك كود يراعي أن يكون المبلغ المدفوع أقل من أو يساوي المدفوع
وكذلك الكود يكمل على الدفع السابق في حال أنه تم دفع جزء من المبلغ سابقا..
تفضل هذا هو الكود :
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
- 2
-
وعليكم السلام ورحمة الله وبركاته 🙂
لن تحتاج لكل هذه التقارير والاستعلامات ..
وضعت لك استعلام واحد وتقرير واحد لكل الصفوف :
والتقرير حسب الاختيار من القائمة :
-
-
بالإضافة لفكرة الأستاذ الوالد @ابوخليل .. 🙂
ممكن تعمل الرأس كتقرير لوحده والتذييل كذلك ... ثم تدرجهما كتقرير فرعي في جميع تقاريرك ..
وبذلك كلما أردت التعديل على الرأس مثلا ستقوم بالتعديل مرة واحدة على التقرير الأصلي للرأس .. وتلقائيا سيتعدل في جميع تقاريرك بطبيعة الحال ..
وبهذا لن تحتاج للخوض في غمار الأكواد البرمجية 🙂
- 1
-
وعليكم السلام ورحمة الله وبركاته أخي فؤاد 🙂
تكرما أرفق الملف لكي يطلع عليه الإخوة ..
-
يا عزيزي hanan ما فهمت إلا نقطة واحدة فقط 😅
59 دقائق مضت, hanan_ms said:القائمة اذا كان لون الحقل اصفر يكون لون النص اسود
والباقي أعيد قراءة الكلام أكثر من مرة .. وعينيك ما تشوفش إلا النور .. ما فهمتش حاجة 🙃
ودام أنك شخص محترف .. أعمل هذي التعديلات وورينا إياها 🙂👌
-
✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐
السلام عليكم ورحمة الله وبركاته 🙂
اليوم يسرني أن أقدم لكم فكرة مبتكرة لتصميم
:: الصفحة الرئيسية للبرنامج مع قائمة جانبية متمددة ::
بألوان جميلة وتصميم راقي وتحكم شامل بعدد عناصر القائمة والقوائم الفرعية لها 👌
وأهم شي استهلاك أقل كمية من البرمجة والأكواد في التصميم ✌:: وبدون مقدمات نبدأ على بركة الله ::
الفكرة الرئيسة للقائمة الجانبية هي :
عمل نموذج فرعي مستمر يستمد بياناته من جدول بحيث أن جميع عناصر القائمة الفرعية عبارة عن سجلات هذا الجدول ، ومن خلال هذا الجدول يتم ترتيب مواقع العناصر من خلال الحقل الرقم Order وكذلك يتم تصنيفها إن كانت زر رئيسي أم فرعي من خلال حقل Main or Sub والأيقونات يتم تخزينها في حقل مرفقات ، وأما الأوامر التي ستنفذها الأزرار فهي مخزنة أيضا في الجدول وهي محصورة في الأوامر التالية ( فتح نموذج - فتح نموذج فرعي - فتح تقرير - فتح تقرير فرعي - إظاهر رسالة نصية) ..
والخطوة التي تأتي بعد ذالك هي تصميم النموذج الذي سيضم هذه الأزرار ، ويراعي الترتيب + فرز الأزرار الرئيسية والفرعية في الظهور + التنسيق الشرطي الذي يلون الأزرار بالألوان المناسبة لكل حالة + كود لتنفيذ الأوامر الموكلة للأزرار + .... وهكذا
ثم بعد ذلك تصميم نموذج شامل للتحكم بالأزرار ..
:: وللاستفادة من هذا الملف ::
ستحتاج لهذه العناصر فقط ، ( والباقي كله زيادات لغرض الشرح ) :
:: وهنا يأتي شرح يوتيوبي كافي وافي مفصل عن التصميم ::
وفيه أيضا فوائد إضافية مثل ( طريقة اختيار أيقونات متناسقة ، وإشارة للنماذج المتطورة الأخرى )قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂
كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار ..
وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize ..
-
صاحب الملف
-
تمت الاضافه16 سبت, 2024
-
الاقسام
- 1
- 1
-
-
ما شاء الله عليك يا أبا جودي ما شاء الله عليك 🙂
من يغوص في بحار الأكواد المكتوبة بماء الذهب يعلم يقينا حجم الجهد والعمل الذين تما على هذه القطعة الفنية الرااااائعة 🙂
لله درك أبا جودي ... عمرت مكتباتنا .. وإحنا قاعديييين 😅
- 1
-
21 دقائق مضت, محمدمطر said:
سيتم استخدام الجدول الثالث فى امر اخر
ما هو هذا الأمر الآخر ؟
لعلنا نجد لك طريقة أسهل 🙂وإذا أنت معزم على طريقتك الأولى .. باختصار أعمل استعلام تحديث لتحديث البيانات في الجدول الثالث .
-
وعليك السلام ورحمة الله وبركاته أخي @محمدمطر 🙂
أهلا وسهلا بك في بيتك الثاني 🙂 🌷
الجواب : لن تحتاج لهذه العملية المعقدة أخي محمد .. ستقوم الاستعلامات باللازم ..
ستحتاج لاستعلام يجمع لك البيانات من الجدولين ما دام أنك رابط الجدولين بعلاقة .. والنتيجة :
وهذه طريقة تصميم الاستعلام :
تفضل ملفك بعد التعديل :
-
وعليكم السلام ورحمة الله وبركاته ..
الأخ العزيز @سامر محمود .. 🙂
تكرما عندما تريد المساعدة في جزئية معينة من برنامجك ضع مرفق يحتوي على الجزئية المحددة فقط ..
مع ضرورة ذكر أسماء النماذج والجداول التي تقصدها في سؤال ..
وأخرجنا من دوامة البحث عن أرقام التسجل وكلمات المرور للدخول وغيرها من التعقيدات التي تنفر الأخوة من تقديم المساعدة 🙂
- 1
- 1
-
جرب هذا التعدل ..
التعديل تم على البحث فقط ..لو أردت البحث عن اسم الأب أو الجد بعد اسم الطالب أكتب * بدل المسافة
- 1
-
في 9/9/2024 at 01:09, Muhammed55 said:
كيف يمكن التحكم بالوان الخلفيه و الازرار و الاكشن عند الضغط علي زر كا الوان في المثال السابق وشكر
بالنسبة لهذا فيمكنك تغييره من خلال التنسيق الشرطي لمربعات النص الغير منضمة في النموذج .. لأنها هي التي تتحكم في الألون ..
أم بالنسة لسؤالك :
في 9/9/2024 at 01:09, Muhammed55 said:هل يمكن اضافه action لجعل ال list تنكمش لتظهر الايقونات فقط او تتمدد لتتظهر الايقونه بجوارها الاسم
فهذه يمكن عملها بالأكواد وتحتاج إلى عمل محترف ، حيث أنه يتطلب إخفاء وإظهار العناصر وتغيير حجم النموذج الفرعي وبعض العناصر التي بداخله
-
منذ ساعه, ابوخليل said:
فسر لنا .. اليست + تعمل عمل & ؟
نعم في الأحوال العادية + تعمل عمل & ...
ولكن عندما تجمع + قيمة معينة مع قيمة = Null فإن المجموع دائما يساوي Null .
تماما كما يكون حاصل ضرب أي عدد في صفر فإن الناتج دائما يساوي صفر 🙂
لذلك عندما نقول ( "-" + Text2) مثلا .. فإن Text2 يحل محلها القيمة التي تكتبها في مربع النص ، أما إذا كانت فارغة فإنه تحل محلها القيمة Null
فتكون المعادلة بذلك ( "-" + Null ) = Null
وهذا ما يفسر إختفاء الشرطة في حال أن قيمة الحقل فارغة . 🙂
ولو فحصنا ذلك في نافذة الإميديت سنجد :
ولكن لو استبدلنا الـ + بال & سنجد أن النتيجة ستصبح هكذا :
منذ ساعه, ابوخليل said:الــــــــ Text2 + "-" التي ظهرت 89 اين الشرطة ؟
الشرطة التي ظهرت هي الشرطة التابعة للـ Text3 🙂
لاحظ أنني غيرت موضعها في الكود عن كودك الأصلي 😎✌
- 1
-
2 ساعات مضت, ابوخليل said:
بمعنى اذا لم يكن بحاجة الى كتابة x فلا معنى لوجود الشرطة
طبعا انا قدمت العمل على عجالة .
ومؤكد يمكن تجاوز هذا الخلل وضبط الرقم المدخل بدون الشرطة .. وأول ما تبادر الى ذهني وضع شرط في حقل x اذا كان خاليا لا يتم ادراج الشرطة
وهذا النهج يستلزم تقسيم الدالة الى عدة اسطر ..
سأعطيك حيلة صغيرة تحقق لك ذلك بدون الحاجة لكتابة المزيد من الأسطر 🙂
تكتب الكود هكذا :
Private Sub ramzText() TextX = (Text4 + "-") & (Text3 + "-") & (Text2 + "-") & (Text1) End Sub
والنتيجة : 🙂
----------------------------------------------------------------------
-
9 ساعات مضت, ابوخليل said:
وهذا تطبيق نوعا ما للفكرة ..
شكرا عمي أبو خليل 🙂
وهذا تحسين بسيط لكي ينتقل المؤشر تلقائيا للخلية التالية
-
8 ساعات مضت, Muhammed55 said:
السلام عليكم جهد مشكور جدا لكم
هل يمكن اضافه action لجعل ال list تنكمش لتظهر الايقونات فقط او تتمدد لتتظهر الايقونه بجوارها الاسم
و كيف يمكن التحكم بالوان الخلفيه و الازرار و الاكشن عند الضغط علي زر كا الوان في المثال السابق وشكرا
وعليكم السلام ورحمة الله وبركاته 🙂
نعم كله ممكن ، ولك أن تجرب التعديل عليها بنفسك 🙂
-
4 ساعات مضت, أبو أحمد said:
إذا وجدت صعوبة في تطبيق هذا القناع على الخلية ولم يلبي إحتياجك فممكن تعمل حيلة أخرى بعمل 4 حقول منفصلة بحيث أن كل حقل يحمل جزئية من الترميز وبالكود يمكن تخلي المؤشر ينتقل للحقل التالي ، وممكن تعمل حقل محسوب يجمع بيانات الحقول الأربعة في حقل واحد 🙂
- 2
-
وعليكم السلام ورحمة الله وبركاته .. 🙂
أخفي رمز الاستجابة السريعة ..وضع زر لإظهاره .. والزر يفتح مربع إدخال يطلب كلمة المرور فإذا كانت صحيحة يظهرلك رمز الاستجابة ..
-
منذ فترة كنت عملت هذا المخطط الذي يبسط فهم عمل العلاقات بين الجداول المتسلسلة .. 🙂
- 1
-
3 ساعات مضت, أبو أحمد said:
ولكن عندما يكون انجاه القراءة من اليمين لليسار لا يكون صحيح فهل يمكن تعديل ما يلزم لجعل اتجاه القراءة من اليمين لليسار ويكون الحرف الانجليزي على اقصى اليمين لانه لابد ان تكون اتجاه القراءة من اليمين لليسار لتظهر جميع الحقول بشكل صحيح
يمكنك تعديل القناع كما تشاء ، مثلا أن تضع الحرف على اليمين أو على اليسار ..
ولكن في الغالب أن البرنامج يلزمك بالكتابة من اليسار لليمين.. ولا أعلم إن كانت هناك طريق لعكس الاتجاه !!
منذ ساعه, أبو أحمد said:ISBN الموجود بالشكل الذي ارسلته
هذا عندما يكون لديك مقطع ثابت سيكتبه البرنامج تلقائيا كما هو ..
مثل حرف الـ X لديك .. إن كان حرفا ثابتا لا يتغير فيمكنك كتابته بين علامتي تنصيص في القناع هكذا : "X" وبعدها تكتب الأصفار
-
وعليكم السلام ورحمة الله وبركاته 🙂
يمكنك الاستعانة بهذا الجدول لعمل قناع إدخال بيانات حسب المطلوب :
وحسب سؤالك فأعتقد أن هذا هو القناع المناسب :
طبعا هذا القناع إما أن تضعه في خانة قناع الإدخال للحقل في النموذج :
أو أن تضعه في خانة قناع الإدخال للحقل في الجدول.
- 1
-
2 ساعات مضت, أحمد العيسى said:
كن ما يخص تطبيق تم عمله ب أكسس 2003 (mdb )
لا يؤثر عند تشغيله على أكسس 2016 مثلاً ( accdb )
ضع هنا أحد ملفات mdb الخاصة بك لفحصه في النسخ الجديدة 🙂
2 ساعات مضت, أحمد العيسى said:هل معنى ذلك أنه يجب عمل تطبيقان بنفس الوظيفة لكل منهما ؟
من واقع تجربة أحيانا لا تعمل البرامج المصممة في نسخ 2003 - 2007 ..
وفي الأغلب أن النسخ المصممة في النسخ الحديثة من 2010 وما بعدها لا تعمل في النسخ من 2007 وما قبلها .نصيحتي لك : أنتقل إلى نسخة 365 أو مابعد 2016 مثلا ، فأنت على بعد 20 سنة من التطور والتقنية والتحديثات التي تم تطويرها في البرنامج 🙂
- 1
ارجو توضيح اين الخطأ في قاعدة بيانات اعضاء غرفه صناعية لماذا لا تعمل نماذ الادخال بشكل سليم
في قسم الأكسيس Access
قام بنشر
أعد إرفاق الملف أخي أسامة 🙂
وبين ماهية المشكلة بشكل أوضح .. لفهم المشكلة