اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

abouelhassan

بواسطه abouelhassan
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by ابوبسمله,

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

abouelhassan

abouelhassan

قام بنشر
قام بنشر (معدل)

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

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

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

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

2.png.5883f612c9d729e5a64f04cb440269c0.png 

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 تكون متاحة للتعديل فى كل الحالات فى الفلتر

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

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

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك
Eng.Qassim

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

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؟

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

1.png.4537678b9ccbf291c7df08995ce6771a.png

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

تقبل احترامى

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك
ابوبسمله

ابوبسمله

قام بنشر
قام بنشر

السلام عليكم

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

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

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

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

بالتوفيق

TestLOck -1.accdb

  • Like 3
رابط هذا التعليق
شارك
abouelhassan

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

abouelhassan

قام بنشر
  • الكاتب
قام بنشر (معدل)

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

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

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

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

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

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

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

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

2.png.5883f612c9d729e5a64f04cb440269c0.png 

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

تم تعديل بواسطه abouelhassan
رابط هذا التعليق
شارك
  • أفضل إجابة
ابوبسمله

ابوبسمله

قام بنشر
  • أفضل إجابة
قام بنشر
19 ساعات مضت, abouelhassan said:

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

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

بالتوفيق

TestLOck -2.accdb

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept