اظهار calendar

اخي الكريم

تستطيع عمل ذلك من خلال الملف المرفق والطريقة كالتالي

1. بعد تنزيل الملف وفك ضغطه قم بأستيراد نموذج التقويم frmCalendar وكذلك الوحدة النمطية ajbCalendar الى قاعدة بياناتك .

2. قم بنسخ زري الامر الخاصين بالتقويم ومربعي النص المقابلين لهما الذين يحملون الاسماء txtStartDate و txtEndDate من النموذج Calendar ووضعهم في نموذجك

3. اذا لم يكن هذا الامر موجود في حدث عند النقر لزري الامر قم بأضافته لهم

=CalendarFor([txtStartDate];"Set the start date")

و

=CalendarFor([txtEndDate];"Set the end date")

ملاحظة : تستطيع الاستغناء عن مربع النص الثاني لانه مستخدم في هذا المثال لحساب الفرق بين تاريخين والذي يهمك هو التقويم الاول والنص الاول فقط لتضعهم في قاعدة بياناتك

Calendar.rar

اختكم

زهره

الملف المرفق عباره عن تطبيق و لا أدري كيف يمكن لي أن أستفيد منه , وأيضا هناك أمكانية لأضافة كل التواريخ ولكن الذي أريده هو أظهار كل تواريخ الشهر ولكن المسموح بأضافته هو تاريخ اليوم فقط و أريد أن تظهر الرزنامه عند الضغط على القائمة المنسدله ولكن لا أعرف كيف يمكن أن أحضر الرزنامه و كيف أضع حدث بحيث أنني اذا ضغطت على القائمة المنسدله تظهر لي الرزنامه وعندما أغلق القائمة المنسدله ان لا تظهر الرزنامه

أرجو أن أكون قد أوضحت الفكره

اخي الكريم

هذه فكره اخرى لطريقة اخفاء التقويم عند عدم الحاجه بحيث يموت مخفي حتى يتم استداعاؤه من مربع التاريخ

اذا اعجبتك الفكره قم بإستيراد النموذج والجدول الى قاعدة بياناتك ومن ثم قم بتغيير ما يلزم لديك

CalendarPro.rar

اختكم

زهره

شكرا لكي

على فكره انا بنت مو شب

عندي سؤال أخر أضع هذا الكود لينفذ عند الضغط على زر معين ولكن عند الضغط على الزر تظهر لي الرساله التاليه

اقتباس

لا يمكنك الانتقال الى عنصر تحكم سابق اذا لم يكن هناك سوى عنصر تحكم واحد يتضمن التركيز

الكود هو

Private Sub search_Click()
On Error GoTo Err_search_Click
 Screen.PreviousControl.SizeToFit


    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_search_Click:
    Exit Sub

Err_search_Click:
    MsgBox Err.Description
    Resume Exit_search_Click
End Sub

اختي آيه

اسفه جدا لم انتبه للاسم فقد كنت مشغوله بإعداد الكود واتمنى ان تكون مشكلتك تم حلها

اختك

زهره