تصميم شاشة بها تواريخ كل يوم منفصل

[Mohamed Galal]

كيف اصمم شاشة بها تاريخ الشهر كل يوم فى مربع نص لوحده وبتغير بتاريخ الشهر المعروض

[kkhalifa1960]

تفضل أخي .

DateFormat.accdb

[Moosak]

أو هذه مثلا 🙂 

تقويم شهري.accdb

 

[أبو امين]

هل يمكن وضع  12شهر في صفحة واحدة 

[Moosak]

11 ساعات مضت, أبو امين said:

هل يمكن وضع  12شهر في صفحة واحدة

نعم ممكن .. هاك : 🙂 

تقويم سنوي.accdb

[أبو امين]

4 ساعات مضت, Moosak said:

نعم ممكن .. هاك : 🙂 

تقويم سنوي.accdb 1.07 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads

رحمك الله برحمته . و انعم عليك من خيره و طيب قلبك بطيب الجنة و جعله في ميزان حسناتك : 

صراحة لولا تدخلاتك لفقدنا الامل  .. 

استاذي الكربم بلهجتنا التونسية   : الله يرحم والديك 

[AbuuAhmed]

ممتاز
في تصوري لو تكون المخرجات في تقرير سيكون منفعتها أكبر

[AbuuAhmed]

في 19‏/3‏/2023 at 14:01, Moosak said:

نعم ممكن

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

إذا "مو" ناوي حول لي النسخة إلى 2007 وأنا أعملها.

[Moosak]

3 ساعات مضت, AbuuAhmed said:

حول لي النسخة إلى 2007 وأنا أعملها.

تفضل أخي العزيز أبو أحمد 🙂 

كانت لي محاولة وفعلا كنت نقلت الكائنات (نسخ / لصق ) ولكن توقفت ..

هذا ملف ال 2003 بين يديك 🙂 

تقويم سنوي 2003.mdb

[النجاشي]

في 18‏/3‏/2023 at 22:25, Moosak said:

أو هذه مثلا 🙂 

تقويم شهري.accdb 488 kB · 26 downloads

 

السلام عليكم 

مثال روعه استاذنا موسي بارك الله فيك هل من طريقه لمثل هذا التقويم يكون هجري .

حفظك الله ورعاك

 

 

 

[Moosak]

36 دقائق مضت, النجاشي said:

هل من طريقه لمثل هذا التقويم يكون هجري .

وعليكم السلام ورحمة الله وبركاته ..
للأسف لم أعمل على التاريخ الهجري من قبل ..

 

🙂 

[AbuuAhmed]

جرب هذا الحدث للتقرير
 

Private Sub Report_Load()
    Dim mm As Byte, dd As Byte
    
    With Forms("Tqweem_Sanawi")
        For mm = 1 To 12
            For dd = 1 To 42
                Me("M" & mm).Report.Controls("Day" & Format(dd, "00")) = _
                .Controls("M" & mm).Form.Controls("Day" & Format(dd, "00"))
            Next dd
        Next mm
    End With
End Sub

ويمكن إضافة الألوان كذلك بنفس الطريقة

[أبو امين]

لماذا البداية بالسبت 

مثلا  في مثالي لم اتمكن من العمل به و حاولت تغييره لكن للاسف لان العمل بمنطقتي تبتدؤ يوم الاثنين و تنتهي يوم الاحد 

هل بالامكان التغيير 

خاصة انني كنا اريد استغلال البرنامج السنوي لتوزيع الحصص النصف شه ية بقطاع التربية 

[Moosak]

1 دقيقه مضت, AbuuAhmed said:

With Forms("Tqweem_Sanawi")

قبل ما أجرب .. هل سيعمل هذا السطر مع التقرير ؟

[Moosak]

11 دقائق مضت, AbuuAhmed said:

جرب هذا الحدث للتقرير

لم يعمل ..

[AbuuAhmed]

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

المثال:
 

تقويم سنوي 2003_02.mdb

تم تعديل مارس 20, 2023 بواسطه AbuuAhmed

[AbuuAhmed]

تم تتكملة الكود لجلب كل البيانات.

تقويم سنوي 2003_03.mdb

[Moosak]

9 ساعات مضت, AbuuAhmed said:

تم تتكملة الكود لجلب كل البيانات.

تقويم سنوي 2003_03.mdb 688 kB · 2 downloads

ما شاء الله تبارك الرحمن .. يعمل بكل احترافية 😉👌

[Moosak]

13 ساعات مضت, أبو امين said:

لماذا البداية بالسبت 

مثلا  في مثالي لم اتمكن من العمل به و حاولت تغييره لكن للاسف لان العمل بمنطقتي تبتدؤ يوم الاثنين و تنتهي يوم الاحد 

هل بالامكان التغيير

بالنسبة لسؤالك فالموضوع بسيط جدا 🙂  .. وتستطيع تغيره كالتالي :

1- من نموذج Tqweem غير مكان أسماء الأيام ( انتبه فقط ليبل الأسماء وليس خلايا الأرقام ) هكذا :

2- في نموذج Tqweem_Sanawi في الأكواد تبدل هذه العبارة : بداية الأسبوع بدل :   vbSaturday  تصبح vbMonday هكذا : 

     

3 - كرر الخطوة رقم واحد في التقرير Tqweem_R ...

 

والنتيجة النهائية 🙂 :

[أبو امين]

ماشاء الله عليك ايستاذي : احتراماتي على ابداعك 

[أبو امين]

كل شيء تمام التمام مشكورين الاساتذة الافاضل على ما يبذلونه من جهد لنشر المعلومة 

احدصت بعض التغيير على الشاشة السنوية و اردت طباعة النموذج في PDF لكن الكتابة لا تضهر 

انظر الصورة 

و هذا كود الطباعة على البي دي اف وهو سليم : 

Dim stDocName As String
Dim ter As String
                            If MsgBox("انت على وشك تسجيل نسخة من الوثيقة  بامتداد  بي دي ايف *** هل تريد الاستمرار في ذلك", _
    vbCritical + vbYesNo, _
    "تنبيه") = vbYes Then

On Error GoTo Err_Commande428_Click

stDocName = "Tqweem_Sanawi"
  Printer.Orientation = acPRORLandscape

DoCmd.OutputTo acOutputForm, stDocName, "PDF", ter, True
DoCmd.Close acOutputForm, stDocName
Exit Sub
Err_Commande428_Click:
            If MsgBox(" هل تريد فعلا الغاء عملية تسجيل نسخة بامتداد  بي دي ايف   ؟؟؟؟؟", _
    vbCritical, _
    "تحذير") = vbNo Then
End If
End If

 

 

 

في حين انني اريد ظهور الكتابة مث الصورة : 

 

هل يوجد حل  ؟ 

[أبو امين]

2 ساعات مضت, أبو امين said:

كل شيء تمام التمام مشكورين الاساتذة الافاضل على ما يبذلونه من جهد لنشر المعلومة 

احدصت بعض التغيير على الشاشة السنوية و اردت طباعة النموذج في PDF لكن الكتابة لا تضهر 

انظر الصورة 

و هذا كود الطباعة على البي دي اف وهو سليم : 

Dim stDocName As String
Dim ter As String
                            If MsgBox("انت على وشك تسجيل نسخة من الوثيقة  بامتداد  بي دي ايف *** هل تريد الاستمرار في ذلك", _
    vbCritical + vbYesNo, _
    "تنبيه") = vbYes Then

On Error GoTo Err_Commande428_Click

stDocName = "Tqweem_Sanawi"
  Printer.Orientation = acPRORLandscape

DoCmd.OutputTo acOutputForm, stDocName, "PDF", ter, True
DoCmd.Close acOutputForm, stDocName
Exit Sub
Err_Commande428_Click:
            If MsgBox(" هل تريد فعلا الغاء عملية تسجيل نسخة بامتداد  بي دي ايف   ؟؟؟؟؟", _
    vbCritical, _
    "تحذير") = vbNo Then
End If
End If

 

 

 

في حين انني اريد ظهور الكتابة مث الصورة : 

 

هل يوجد حل  ؟ 

للرفع رفع الله درجات حسناتكم 

[Moosak]

أخي @أبو امين أرفق الملف ...

[أبو امين]

تفضل استاذي موسى : 

المثال في المرفق 

تقويم سنوي.accdb

[أبو امين]

Up