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

**abouelhassan** · مايو 14, 2022

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

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

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

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

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

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

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

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

1.png.a6f4ce8ad7144f49f149b27394d5d5dc.png

الشهر الحالى يتم غلقه فى يوم 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

**أبوبسمله** · مايو 14, 2022

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** · مايو 14, 2022

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

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

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

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

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

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

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

**أبوبسمله** · مايو 14, 2022

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

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

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

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

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

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

بالتوفيق اخى

**أبوبسمله** · مايو 14, 2022

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

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

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

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

image.png.15268b653bfcc7fec43d9e5106b47461.png

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

image.png.7f04925845d708335b13fd57d80bf432.png

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

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, 2022

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

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

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

امين يارب

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

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

Date_2_trueOrfalse.accdb

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

**أبوبسمله** · مايو 14, 2022

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

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** · مايو 14, 2022

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 وايضا غير متاح

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

1.png.c8103ea989de57a82ed5e68b89e38f33.png

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

**أبوبسمله** · مايو 14, 2022

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

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

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

ولا يهمك اخى

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

انظر الصوره

image.png.862400b57a231d31ac08e1107c26491f.png

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

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

انظر الصوره

image.png.4f603ef574747554c6383cac3e14d834.png

بالتوفيق

**abouelhassan** · مايو 14, 2022

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

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

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

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

**abouelhassan** · مايو 15, 2022

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

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

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

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

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

**أبوبسمله** · مايو 15, 2022

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

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

**abouelhassan** · مايو 15, 2022

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

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

اليوزر admin

الباس 123

سيفتح Form1

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

2.png.4d7ed79fe03bd7e82da4cc2e00a6be47.png

ظهر هذا الخطأ

1.png.832f77aec2ba2c6897df6d1cf1922819.png

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

اسمه Financial_Records

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

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

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

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

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

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

TestLOck.accdb

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

**أبوبسمله** · مايو 15, 2022

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

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

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

image.png.44e483ac488e43e48000ba3f465da217.png

بالتوفيق

TestLOck.accdb

**abouelhassan** · مايو 15, 2022

الله فعلا

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

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

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

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

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

حبيبى والله

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

**أبوبسمله** · مايو 15, 2022

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

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

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

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

بالتوفيق اخى

**abouelhassan** · مايو 15, 2022

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

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

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

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

**أبوبسمله** · مايو 15, 2022

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

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

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

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

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

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

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

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

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

Date_2_trueOrfalse.accdb 540 kB · 3 downloads

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

**abouelhassan** · مايو 15, 2022

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

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

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

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

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

**أبوبسمله** · مايو 16, 2022

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

مش هعرف

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

بالتوفيق

**abouelhassan** · مايو 16, 2022

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

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

بالتوفيق

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

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

**abouelhassan** · مايو 27, 2022

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

معلش استاذى احتاج استثناء الخلية 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

تسجيل الدخول

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

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

abouelhassan

أبوبسمله

abouelhassan

أبوبسمله

أبوبسمله

abouelhassan

أبوبسمله

abouelhassan

أبوبسمله

abouelhassan

abouelhassan

أبوبسمله

abouelhassan

أبوبسمله

abouelhassan

أبوبسمله

abouelhassan

أبوبسمله

abouelhassan

أبوبسمله

abouelhassan

abouelhassan

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information