كيفية ادرج نتيجةبجوار حقل التاريخ لدخال التاريخ في نموذج

تم التعديل حسب الطلب

service.rar

اخي العزيز انت فهمتني غلط

انا لا اقصد ان التاريخ يدخل اوتماتك لتاريخ اليوم لالا

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

وهذا المثل مشهور ولكني لم اقدر علي تنفيذة .........

وهذا هو الامر ولكني لم اتمكن من ادراجة

Private Sub cmdCalendar_Click()

On Error GoTo ErrorHandler

'This is what the Wizard wrote

'Dim stDocName As String

'Dim stLinkCriteria As String

'Dim ObjectName As String

'ObjectName = Application.CurrentObjectName

'stDocName = "frmCalendar"

'DoCmd.OpenForm stDocName, , , stLinkCriteria, , , ObjectName

'Simplified VBA Code

DoCmd.OpenForm "frmCalendar", , , , , , Application.CurrentObjectName

ErrorHandler:

Exit Sub

End Sub

اخي الفاضل

ملفك بعد التعديل واضافة التقويم له كنتيجه وتستطيع استخدامه لادخال تاريخ الدخول وتاريخ الخروج

service_up.rar

ممكن الشرح بالتفصيل لكي اتعلم

وجزاك الله خيرا

اختي لم تعمل عند الضغط علي مكان النتيجة انا استخدم افس 2007

وان استخدمت نموذج النتيجة لا يتغير ويعطي رسالة خطاء

اخي الفاضل

جرب البرنامج على اكسيس 2003 فهو يعمل

حيث لا يوجد لدي اوفيس 2007

قد يكون لديك نقص في المكتبات

تأكد منها

هل عندما تقوم بفتح النموذج وتضغط على رمز التقويم لا يتم عمل شيء في المرفق الذي عدلته لك ام انك نسخت هذا المرفق الى برنامجك الاساسي

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

بعد التعديل

service.rar

في حال ماتعرف البرنامج عندك

افتح مربع الادوات

عناصر تحكم اضافيه

index.htm

لم يعمل ارجو ان اعرف كيفية اضافة مكتبات

وما معني الملف index.htm