كود غلق التعديل والمسح فى تاريخ معين

[abouelhassan]

7 ساعات مضت, احمد الفلاحجي said:

جزاك الله خيرا على مشاركتك معنا 💐

طيب المفروض التاريخ اكبر من 10 فالشهر الحالى متاح للتعديل

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

 

 

Date-1 (3_4).accdb 512 kB · 0 downloads

سدد الله خطاك اخى استاذى @احمد الفلاحجي وسقاك من حوض النبى صلى الله عليه وسلم شربت هنيئة لاتظمأ بعدها ابدا يارب

شهر 4 الشهر الماضى تمام اغلق بعد يوم10

غيرت التاريخ الى 1/5/2022 الشهر الحالى المفروض يظل مفتوح التعديل الى10/6/2022 وجدته مغلق اخى

الشهر الحالى يتم غلقه فى يوم 10 الشهر الذى يليه هى دى الفكرة اخى الحبيب لقلبى

اذا كان تاريخ اليوم 1/4/2022 اذن كل شهر 4 هيكون مفتوح حتى10/5/2022 يتم الغلق

واذا كان تاريخ اليوم1/5/2022 انذن كل شهر 5 هيكون مفتوح حتى 10/6/2022 يتم الغلق

يعنى الفرصة للتعديل فى الشهر الذى نعمل فيه تكون ليوم10 وبعد كده لايمكن التعديل

اما طبعا الشهور السابقة كلها بتغلق للحفاظ على البيانات السابقة

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

Private Sub Form_Current()

On Error Resume Next
Dim x As String, y As String, z As String, ly As String, t As Date

t = DateSerial(Year(Date), Month(Date) - 1, 1)
x = Format$(Me.Registration_Date, "\#mm\/dd\/yyyy\#") 'date
y = Format$(DateSerial(Year(Date), Month(Date) - 1, 1), "\#mm\/dd\/yyyy\#") '1/4/2022
ly = Format$(DateSerial(Year(t), Month(t) + 1, 0), "\#mm\/dd\/yyyy\#")
z = Format$(DateSerial(Year(Date), Month(Date), 10), "\#mm\/dd\/yyyy\#") '15/5/2022

    If x >= y And x <= ly And x > z Then
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True
    ElseIf x >= z And Format$(DateSerial(Year(Date), Month(Date) + 1, 0), "\#mm\/dd\/yyyy\#") >= x Then
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True
   ElseIf x >= ly Then
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True

    ElseIf x <= y And x <= z Then
        Me.AllowAdditions = False
        Me.AllowEdits = False
        Me.AllowDeletions = False
    Else
        Me.AllowAdditions = False
        Me.AllowEdits = False
        Me.AllowDeletions = False
    End If
End Sub

كود الحذف

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

احبك فى الله اخى الكريم

Date-1 (3_4).accdb

تم تعديل مايو 14, 2022 بواسطه abouelhassan

[ابوبسمله]

1 ساعه مضت, abouelhassan said:

سدد الله خطاك اخى استاذى @احمد الفلاحجي وسقاك من حوض النبى صلى الله عليه وسلم شربت هنيئة لاتظمأ بعدها ابدا يارب

اللهم آمين و اياكم

1 ساعه مضت, abouelhassan said:

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

الحمدلله وهو المطلوب بانك تفهم الفكره وتعدل بنفسك

ولى اقتراح اخر اضافه حقل من نوع نعم والقيمه الافتراضيه نعم ويتم تحديث القيمه الى لا لجميع السجلات التى قبل الشهر الحالى وهتلاقى الامور بقت اسهل واوضح

بالنسبه للحذف ضع هذا الكود لزر الحذف

Private Sub btnDel_Click()

On Error GoTo MyErr

If MsgBox("هل تريد فعلا حذف القيد نهائياً ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تأكيد عملية الحذف") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
 End If
 
MyExit:
  Exit Sub
MyErr:
  If Err.Number = 2046 Then
    MsgBox "الحذف غير متاح لهذا السجل" 'Err.Description
  End If
  Resume MyExit

End Sub

بالتوفيق

[abouelhassan]

2 ساعات مضت, احمد الفلاحجي said:

ولى اقتراح اخر اضافه حقل من نوع نعم والقيمه الافتراضيه نعم ويتم تحديث القيمه الى لا لجميع السجلات التى قبل الشهر الحالى وهتلاقى الامور بقت اسهل واوضح

 

والله العظيم استاذى @احمد الفلاحجي الشكر لايكفيك حقك والله العظيم حضرتك رائع اخى الكريم اتقدم لك بخالص الشكر وخالص الدعاء والله العظيم من القلب لك اخى الكريم

زادك الله واكرمك وحفظك وال بيتك اللهم امين يارب

بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح اكون سعيدا وشاكر لك

احبك فى الله من قلبى احبك اخى الكريم

اكثر الله خيرك اخى

 

 

 

[ابوبسمله]

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

جزاك الله خيرا ع الدعاء ولك مثله اخى

58 دقائق مضت, abouelhassan said:

بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح

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

احبك الذى احببتنى فيه

بالتوفيق اخى

[ابوبسمله]

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

بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح

اتفضل اخى الفاضل ابو الحسن

بالنسبه للتعديلات تم اضافه حقل chek فى الجدول tblData وقيمته الافتراضيه نعم

تم اضافه استعلام qryDcount وده علشان احسب عدد السجلات التى قيمتها نعم قبل يوم 1 فالشهر الحالى لتحويلها الى لا يوم 10 فالشهر ومدخلش فالاجراء الخاص بالتحديث كل ما افتح الفورم

تم تعديل الكود

Private Sub Form_Current()

Dim z As String, d As Integer

z = DateSerial(Year(Date), Month(Date), 10) 'day 10
TempVars.Add "MonthNow", DateSerial(Year(Date), Month(Date), 1)
d = DCount("*", "qryDcount")

    If Date >= z And d > 0 Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE tblData SET tblData.chek = False " & _
                    "WHERE (((tblData.Registration_Date)<[TempVars]![MonthNow]));"
        DoCmd.SetWarnings True
    End If

    If Me.chek = True Then
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True
    Else
        Me.AllowAdditions = False
        Me.AllowEdits = False
        Me.AllowDeletions = False
    End If
    
End Sub

ده باختصار واليك المرفق بعد التعديلات

بالتوفيق

Date_2_trueOrfalse.accdb

[abouelhassan]

اخى فى الله استاذى الحبيب احمد الفلاحجي

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

تقبل احترامى وخالص دعائى لك اخى استاذى المبدع استاذ احمد حفظك الله وحفظ اسرتك الكريمة اللهم

امين يارب

معلش استاذى انا ذهبت لجدو البيانات وعلمت شيك على كل البيانات وغير اول سطر الى 14/5/2022 حتى يتم التعديل الى 14/6/2022 ولكن عند فتح الفورم ذهبت مرة اخرى للجدول لم اجد شيك ووجدت التعديل مغلق

سامحنى اخى الكريم

Date_2_trueOrfalse.accdb

تم تعديل مايو 14, 2022 بواسطه abouelhassan

[ابوبسمله]

وهذا ما نصبوا اليه دعوه صالحه

14 دقائق مضت, abouelhassan said:

استاذى الحبيب غيرت فى البيانات التاريخ فى الجدول وعملت شيك وغيرت التاريخ الى 14/5/2022 حتى يتم منع التعديل فى 10/6/2022 اى مسموح بالتعديل ولكن ايضا لايمكن التعديل الان

انت عندك فالجدول تواريخ 2022/05/14 ومتاح التعديل فيها ومتاح تعديلات لشهر 5 بالكامل الى يوم 9-6-2022

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

ارجو ان اكون وضحت لك ما سوف تجرب اذا حابب تجرب اغلق الفورم  وغير تاريخ الجهاز الى يوم 5-6-2022 وجرب التعديل فى تواريخ شهر 5 ثم اغلق الفورم وغير تاريخ الجهاز ليوم 10-6 -2022 وجرب التعديل على تواريخ شهر 5 مره اخرى

بالتوفيق

[abouelhassan]

47 دقائق مضت, احمد الفلاحجي said:

وهذا ما نصبوا اليه دعوه صالحه

انت عندك فالجدول تواريخ 2022/05/14 ومتاح التعديل فيها ومتاح تعديلات لشهر 5 بالكامل الى يوم 9-6-2022

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

ارجو ان اكون وضحت لك ما سوف تجرب اذا حابب تجرب اغلق الفورم  وغير تاريخ الجهاز الى يوم 5-6-2022 وجرب التعديل فى تواريخ شهر 5 ثم اغلق الفورم وغير تاريخ الجهاز ليوم 10-6 -2022 وجرب التعديل على تواريخ شهر 5 مره اخرى

بالتوفيق

معلش اعذرنى اخى الكريم جدا حفظك الله

اليوم هو14/5/2022 والبيانات فى الجدول14/5/2022 المفروض تكون متاحة للتعديل حتى يوم10/6/2022 وحتى غيرت التاريخ فى الجدول الى 8/5/2022 وايضا غير متاح

التعديل استاذى الحبيب لقلبى

بارك الله فيك وبك اخى

 

[ابوبسمله]

5 ساعات مضت, abouelhassan said:

معلش اعذرنى اخى الكريم جدا حفظك الله

اليوم هو14/5/2022 والبيانات فى الجدول14/5/2022 المفروض تكون متاحة للتعديل حتى يوم10/6/2022 وحتى غيرت التاريخ فى الجدول الى 8/5/2022 وايضا غير متاح

ولا يهمك اخى

شوف يجب ان يكون السجلات المتاحه للتعديل فالجدول تحمل القيمه نعم اى مؤشر على حقل الشيك بوكس

انظر الصوره

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

وعند تشغيل الفورم سيتم تحديث القيم التى اقل من شهر من يوم 1-5 الان ع حسب الاكواد

انظر الصوره

بالتوفيق

[abouelhassan]

كل الشكر من القلب استاذى احمد الفلاحجي حبيبى الله يزيدك من فضله يارب يارب

والله انى احبك فى الله

حفظك الله واعزك بين العباد يارب

اكرمك الله مثل ما اكرمتنى اخى 

[abouelhassan]

كل الشكر من القلب استاذى احمد الفلاحجي حبيبى الله يزيدك من فضله يارب يارب

والله انى احبك فى الله

حفظك الله واعزك بين العباد يارب

اكرمك الله مثل ما اكرمتنى اخى

تم تعديل مايو 15, 2022 بواسطه abouelhassan

[ابوبسمله]

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

اخى @abouelhassan هل كده تمام وتمت الاجابه ؟

[abouelhassan]

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

نعم لا على نموذج مثل برنامجى

اليوزر admin

الباس 123

سيفتح Form1

فقط نختار السنة المالية2022 هيكتب التاريخ من الى ونضغط عرض

ظهر هذا الخطأ

الجدول الذى تم عليه تعديل chek

اسمه Financial_Records

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

والنموذج الذى سضاف اليه الكود اسمه Financial_Records1

بس بيظهر لى الخطأ اعلاه

وعملت استعلام تحيث للكل 

نفذت كل شئ بس هنا خطا استاذى

بارك الله فيك وبك وزادك من فضله اشكر لك اهتمامك اخى الكريم

TestLOck.accdb

تم تعديل مايو 15, 2022 بواسطه abouelhassan

[ابوبسمله]

ولا يهمك اخى @abouelhassan

يجب اضافه خانه الشيك بوكس  chek للنموذج Financial_Records1

تم اضافته وعندك تاريخين لشهر 5 وشهر 6 لسنه 2022 دول المسموح بالتعديل فيهم

 

بالتوفيق

TestLOck.accdb

[abouelhassan]

الله فعلا 

تسلم ايدك اخى الكريم جداااااااااااااااااااااااا اضاء الله النور فى قلبك وحفظك واكرمك مثل ما اكرمتنى وانعم عليك بخير الدارين وال بيتك وكل احبابك

انا احبك فى الله اخى

لى اخر استفسار ان شاء الله 

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

ولو اضريت للضرورة تعديل سجل قديم هل لايوجد طريقة غير الدخول الى الجدول اخى

حبيبى والله

تم تعديل مايو 15, 2022 بواسطه abouelhassan

[ابوبسمله]

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

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

لو اضريت للضرورة تعديل سجل قديم هل لايوجد طريقة غير الدخول الى الجدول اخى

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

بالتوفيق اخى

[abouelhassan]

3 دقائق مضت, احمد الفلاحجي said:

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

الله يراضيك اخى حبيبى الغالى 

اطمع اخيرا لو تسمح لى اخى الغالى بمثال اقوم بغش النموذج منه معلش اخى الكريم 

[ابوبسمله]

طيب بما ان قد تم الاجابه والحمد لله ع هذا الموضوع

وحتى لا نخالف قواعد الموقع بما انه ده سؤال تانى

12 دقائق مضت, abouelhassan said:

اطمع اخيرا لو تسمح لى اخى الغالى بمثال اقوم بغش النموذج منه

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

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

جرب على المثال الاخير الذى وقفنا عنده 👇 ثم بعدها انتقل للتنفيذ على برنامج فى نسخه منه الى ان تستقر انقله لبرنامجك الاساسى

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

في 14‏/5‏/2022 at 18:14, احمد الفلاحجي said:

 

Date_2_trueOrfalse.accdb 540 kB · 3 downloads

تقبل تحياتى وبالتوفيق

[abouelhassan]

اشكرك اخى استاذى الحبيب @احمد الفلاحجي الله يراضيك ويرضيك

3 دقائق مضت, احمد الفلاحجي said:

قم بتصميمه ثم قم بعدها بتكويد كود التحديث واستخدم استعلام التحديث وضع الشروط فى الاستعلام هتحدث سجل مين ومن فورم ايه

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

حبيبى والله العظيم 

[ابوبسمله]

20 ساعات مضت, abouelhassan said:

مش هعرف

بعتذر مش هقدر اساعدك فالوقت الحالى

بالتوفيق

[abouelhassan]

12 دقائق مضت, احمد الفلاحجي said:

بعتذر مش هقدر اساعدك فالوقت الحالى

بالتوفيق

الله يوفقك ويكرمك ويحفظك اخى الكريم انا الذى اعتذر لحضرتك واقبل راسك لجميل صنعك

تقبل احترامى وتقديرى وشكرى وخالص الدعاء

[abouelhassan]

السلام عليكم اخى استاذ احمد الفلاحجي بارك الله فيك وبك ولك اخى الكريم

معلش استاذى احتاج استثناء الخلية Pay بحيث يتم تنفيذ الكود تمام كما هو ما عدا 

Pay يمكن تعديلها

هل بالامكان مساعدتى اخى الكريم اكون شاكر فضلك وكرمك اخى

في 15‏/5‏/2022 at 21:08, احمد الفلاحجي said:

ولا يهمك اخى @abouelhassan

يجب اضافه خانه الشيك بوكس  chek للنموذج Financial_Records1

تم اضافته وعندك تاريخين لشهر 5 وشهر 6 لسنه 2022 دول المسموح بالتعديل فيهم

 

بالتوفيق

TestLOck.accdb 1.52 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads