اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

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

نعم ممكن

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

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

رابط هذا التعليق
شارك

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

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

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

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

image.png.2fc546882fd6cedd44bf00ccba9ce7c1.png

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

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

رابط هذا التعليق
شارك

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

السلام عليكم 

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

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

 

 

 

رابط هذا التعليق
شارك

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

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

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

 

🙂 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

المثال:
 

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

تم تعديل بواسطه AbuuAhmed
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

image.png.27a6cc559df4ba7362719e6ad8dc694a.png

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

     image.png.c89b7d298bcdd9cd6f7d769de2a92e7f.png

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

 

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

image.png.7020ebc7a499fa2a56c955bb6949e721.png

  • Like 4
رابط هذا التعليق
شارك

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

احدصت بعض التغيير على الشاشة السنوية و اردت طباعة النموذج في 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

 

 

00.PNG.fb4695364ac003a433e69c851c78b739.PNG

 

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

01.PNG.c338ecbda906df2fbbbd035237f19004.PNG

 

هل يوجد حل  ؟ 

رابط هذا التعليق
شارك

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

 

 

00.PNG.fb4695364ac003a433e69c851c78b739.PNG

 

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

01.PNG.c338ecbda906df2fbbbd035237f19004.PNG

 

هل يوجد حل  ؟ 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information