مطلوب تسجيل تلقائي لتواريخ طباعة التقرير بدون تدخل المستخدم ...(معدل)

[AboBahaa]

السلام عليكم أخواني الكرام

تحية طيبة لكم جميعا 

بالنموذج الفرعي بقاعدتي الأساسية  أنشأت ثلاث مربعات نص (تاريخ الطباعة الاول، تاريخ آخر طباعة،  وعدد مرات الطباعة)  بالنموذج المستمر لسنة معينة حيث يقوم المستخدم يدويـــــــــا  بعد الطباعة للتأكيد انه تم الطباعة بتعبئة مربع النص لـ  (تاريخ الطباعة الاول ( لاول مرة ) ، تاريخ آخر طباعة بعد تكرار الطباعة ،  وعدد مرات الطباعة بعد التسجيل الاول للطباعة عند تكرار الطباعة ) بنفس السنة المراد طباعتها.

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

 

ومنذ فترة وأنا ابحث عن طريقة  التسجيل التلقائي ل (تاريخ الطباعة الاول، تاريخ آخر طباعة،  وعدد مرات الطباعة) لتطبيقه على قاعدتي ولم أجد الطريقه غير ان يتم تسجيل تاريخ تسجيل البيانات بنفس اليوم فقط  

لذا أرجو مساعدتي في المثال المرفق  في كيفية التسجيل التلقائي بدون تدخل المستخدم ل (تاريخ الطباعة الاول، تاريخ آخر طباعة،  وعدد مرات الطباعة)

ولكم جزيل الشكر🌹

ممكن التعديل بما ترونه مناسبا إذا كانت هناك فكرة أفضل فأنا اريد انجاز هذه المهمة حتى لا يضيع مجهود الموظف المسؤول عن اصدار التقارير 

 

Database (naser).accdb

[أبوبسمله]

وعليكم السلام ورحمه الله وبركاته

اتفضل على قدر فهمى للسؤال اخى @AboBahaa ان شاء الله يكون ما تريد

Private Sub cmdPrint_Click()
If Len(Me.f_Print & "") = 0 Then
    DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _
                 "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));"
Else
    DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val([number of print])+1 " & _
                 "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));"
End If
End Sub

 

Database (naser)_1.accdb

[AboBahaa]

شكرا جزيلا أخي الكريم ابوبسمله

لكن ظهرة لي مشكلتين 

الأولى عند اختيار الطباعة بعام 2020 تظهر هذه الرسالة كما هي بالصورتين

المشكلة الثانية لا يظهر معاينة للطباعة 

[أبوبسمله]

9 دقائق مضت, AboBahaa said:

لكن ظهرة لي مشكلتين 

الأولى عند اختيار الطباعة بعام 2020 تظهر هذه الرسالة كما هي بالصورتين

المشكلة الثانية لا يظهر معاينة للطباعة 

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

بالنسبه للمشكله لم اصل اليها ولم تصادفنى فماذا فعلت حتى ظهرت لك ؟

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

Private Sub cmdPrint_Click()

    If Len(Me.f_Print & "") = 0 Then
        DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _
                     "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));"
    Else
        DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val([number of print])+1 " & _
                     "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));"
    End If
    DoCmd.OpenReport "Q-TABLE1", acViewPreview, , "[School year] ='" & Me.SS & "'"
    
End Sub

 

[AboBahaa]

أكيد أخي ابوبسمله 

أخوانا بالمنتدى لهم جميل جميعنا نعترف به 

أرفقت ليك للمشكلة التي لم تصادفك لتطلع عليها هل بالإمكان تخطي هذه المشكلة 

كذلك هل يمكن تخطي وعدم ظهور رسالة ( أنت عللى وشك تحديث صف 1 /صفوف كما بالصورة الثانية 

Database (naser)_1.accdb

[أبوبسمله]

19 دقائق مضت, AboBahaa said:

أرفقت ليك للمشكلة التي لم تصادفك لتطلع عليها هل بالإمكان تخطي هذه المشكلة 

كذلك هل يمكن تخطي وعدم ظهور رسالة ( أنت عللى وشك تحديث صف 1 /صفوف كما بالصورة الثانية 

اتفضل اخى

Private Sub cmdPrint_Click()
DoCmd.SetWarnings False
    If Len(Me.f_Print & "") = 0 Then
        DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _
                     "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));"
    Else
        DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val(nz([number of print],0))+1 " & _
                     "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));"
    End If
DoCmd.SetWarnings True
    DoCmd.OpenReport "Q-TABLE1", acViewPreview, , "[School year] ='" & Me.SS & "'"
    
End Sub

 

Database (naser)_2.accdb

[AboBahaa]

اخي ابوبسمله

جزاك الله خيرا وبارك الله في علمك وصحتك