تعديل كود اضافة استثناء لخلية

[abouelhassan]

السلام عليكم اخوانى الافاضل

هذا الكود الغرض منه فى حالة 

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

والغرض منه عدم اتاحة التعديل على السجلات ناتج الفلترة

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 Financial_Records SET Financial_Records.chek = False " & _
                    "WHERE (((Financial_Records.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

احتاج استثناء حالة الصرف Pay تكون متاحة للتعديل فى كل الحالات فى الفلتر

اكون شاكر فضلكم اخوانى الافاضل الاعزاء

بارك الله فيكم

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

[abouelhassan]

حاولت اضافة هذه الجملة بس ما ضبطت

If Len(Me.Pay & "")  Then
       Me.AllowAdditions = True
        Me.AllowEdits = True
end if

 

[Eng.Qassim]

اخي ابو الحسن

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

وفيما اعتقده لايمكنك استثناء احد الخلايا من التعديل الا في حالة تبديل الكود بالتالي (كمثال)

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

If Me.chek = True Then
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True
Else
        Me.Registration_Date.Enabled = False
        Me.Account.Enabled = False
        Me.pay.Enabled = True
        Me.Debit.Enabled = False
  End If

ملاحظة: اين هو حقل pay؟

[abouelhassan]

4 ساعات مضت, Eng.Qassim said:

اخي ابو الحسن

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

وفيما اعتقده لايمكنك استثناء احد الخلايا من التعديل الا في حالة تبديل الكود بالتالي (كمثال)

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

بارك الله فيك اخى الكريم  @Eng.Qassim باشمهندس قاسم اشكرك نعم اخى هو كود استاذى الحبيب @احمد الفلاحجي ابو بسملة ربنا يراضيه يارب

قمت بتبديل الكود اخى بالتالى

    If Me.chek = True Then
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True
    Else
        Me.AccountsType.Enabled = False
        Me.Registration_Date.Enabled = False
        Me.Pay.Enabled = True
        Me.Pay.Locked = False
        Me.Account.Enabled = False
        Me.Customer_ID.Enabled = False
        Me.Registration_Text.Enabled = False
        Me.Registration_document_Number.Enabled = False
        Me.Debit.Enabled = False
        Me.Creditor.Enabled = False
        Me.Balance.Enabled = False
    End If
End Sub

و تم الحمد لله بفضل الله وفضلك

4 ساعات مضت, Eng.Qassim said:

ملاحظة: اين هو حقل pay؟

ها هو اخى الكريم 

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

تقبل احترامى

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

[ابوبسمله]

السلام عليكم

اخى @abouelhassan و اخى @Eng.Qassim مشاركه بسيطه معكم

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

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

لعلها تروق لك اخى ابو الحسن فالوقت الحالى

بالتوفيق

TestLOck -1.accdb

[abouelhassan]

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

[ابوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير والشكر موصل لاخى ومهندسنا العزيز @Eng.Qassim 🌹

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

[abouelhassan]

 

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

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

عند العودة للسجلات التى لاينطبق عليها عليه الغلق اجدها مغلقة ايضا هل من مساعدة للتصحيح رجاء اخى

 

 

    If Me.chek = True Then
        Me.AllowAdditions = True
        Me.AllowEdits = True
        Me.AllowDeletions = True
    Else
        Me.AccountsType.Enabled = False
        Me.Registration_Date.Enabled = False
        Me.Pay.Enabled = True
        Me.Pay.Locked = False
        Me.Account.Enabled = False
        Me.Customer_ID.Enabled = False
        Me.Registration_Text.Enabled = False
        Me.Registration_document_Number.Enabled = False
        Me.Debit.Enabled = False
        Me.Creditor.Enabled = False
        Me.Balance.Enabled = False
    End If
End Sub

احترامى وتقديرى

[ابوبسمله]

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

عند العودة للسجلات التى لاينطبق عليها عليه الغلق اجدها مغلقة ايضا هل من مساعدة للتصحيح رجاء اخى

اعكس العمليه

   If Me.chek = True Then
        Me.AccountsType.Enabled = True
        Me.Registration_Date.Enabled = True
        Me.Pay.Enabled = False
        Me.Pay.Locked = True
        Me.Account.Enabled = True
        Me.Customer_ID.Enabled = True
        Me.Registration_Text.Enabled = True
        Me.Registration_document_Number.Enabled = True
        Me.Debit.Enabled = True
        Me.Creditor.Enabled = True
        Me.Balance.Enabled = True
    Else
        Me.AccountsType.Enabled = False
        Me.Registration_Date.Enabled = False
        Me.Pay.Enabled = True
        Me.Pay.Locked = False
        Me.Account.Enabled = False
        Me.Customer_ID.Enabled = False
        Me.Registration_Text.Enabled = False
        Me.Registration_document_Number.Enabled = False
        Me.Debit.Enabled = False
        Me.Creditor.Enabled = False
        Me.Balance.Enabled = False
    End If

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

بمعنى انا عندى الجزء ده من الكود مكرر فى حدثين

Me.AllowAdditions = True
Me.AllowEdits = True
Me.AllowDeletions = True

فممكن نعمله فى اجراء فرعى ونستدعى الاجراء ده وشكرا

كالتالى

Sub Allow()
    Me.AllowAdditions = True
    Me.AllowEdits = True
    Me.AllowDeletions = True
End Sub

واستدعيه فالحدثين كالتالى

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

Private Sub نص119_DblClick(Cancel As Integer)
    Call Allow
End Sub

بالتوفيق

[abouelhassan]

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

نفس المشكلة اخى كل ما احتاجه اخى ان يتاح لى امكانية تعديل حالة الصرف من لم يتم الى يتم مع غلق باقى السجل 

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

في 29‏/5‏/2022 at 20:17, abouelhassan said:

السلام عليكم اخوانى الافاضل

هذا الكود الغرض منه فى حالة 

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

والغرض منه عدم اتاحة التعديل على السجلات ناتج الفلترة

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 Financial_Records SET Financial_Records.chek = False " & _
                    "WHERE (((Financial_Records.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

احتاج استثناء حالة الصرف Pay تكون متاحة للتعديل فى كل الحالات فى الفلتر

اكون شاكر فضلكم اخوانى الافاضل الاعزاء

بارك الله فيكم

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

 

 

TestLOck -1.accdb

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

[ابوبسمله]

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

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

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

بالتوفيق

TestLOck -2.accdb

[abouelhassan]

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

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

[Eng.Qassim]

اخي في الله @abouelhassan

اعمل افضل اجابة حتى يعلم الاخوة الافاضل انه تمت الاجابة

[abouelhassan]

15 دقائق مضت, Eng.Qassim said:

اخي في الله @abouelhassan

اعمل افضل اجابة حتى يعلم الاخوة الافاضل انه تمت الاجابة

حاضر اخى الكريم

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