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

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

abouelhassan

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

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة أبوبسمله,

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

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

قام بنشر
  • الكاتب
قام بنشر (معدل)
  في 30‏/5‏/2022 at 18:07, Eng.Qassim said:

اخي ابو الحسن

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

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

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

Expand  

بارك الله فيك اخى الكريم  @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

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

  في 30‏/5‏/2022 at 18:07, Eng.Qassim said:

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

Expand  

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

1.png.4537678b9ccbf291c7df08995ce6771a.png

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

تقبل احترامى

تم تعديل بواسطه abouelhassan
أبوبسمله

أبوبسمله

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

السلام عليكم

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

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

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

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

بالتوفيق

TestLOck -1.accdbFetching info...

  • 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

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

أبوبسمله

أبوبسمله

قام بنشر
قام بنشر
  في 4‏/6‏/2022 at 21:39, abouelhassan said:

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

Expand  

اعكس العمليه 

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

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

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

Expand  

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

 

 

TestLOck -1.accdbFetching info...

تم تعديل بواسطه abouelhassan
  • تمت الإجابة
أبوبسمله

أبوبسمله

قام بنشر
  • تمت الإجابة
قام بنشر
  في 4‏/6‏/2022 at 22:40, abouelhassan said:

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

Expand  

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

بالتوفيق

TestLOck -2.accdbFetching info...

  • 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