اذهب الي المحتوي
أوفيسنا

التعديل و اظهار نص وتلوين النصوص


محمدعوض

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

 وعليكم السلام

 

اخي عوض 

 

بالنسبة للسؤال الاول

 

ضع الكود التالي بحدث بعد التحديث لمربع التحرير و السرد txt21 و الخاص بــ ( هل مستلم الجهاز ) و ايضاً ضع نفس الكود بحدث في الحالي للنموذج ليتم تزامن التغيير عند التنقل بين السجلات.

On Error Resume Next
Dim cntl As Access.Control


For Each cntl In Me.Controls
    If (cntl.ControlType = acTextBox Or cntl.ControlType = acComboBox) _
      And (cntl.Name <> "id" And cntl.Name <> "text12") Then
        If Me.txt21.Value = "yes" Then
        cntl.BackColor = vbGreen
         Me.txt10.Value = "واصل"
        Else
        cntl.BackColor = 16777215
        Me.txt10.Value = "غير واصل"
    End If
  End If
Next

و يفضل وضع هذا الكود بإجراء خاص و استدعاؤه بحدث بعد التحديث لمربع التحرير و السرد و في حدث في الحالي للنموذج

 

 

ملاحظة : حقل case هو حقل رقمي و حسب فهمي للسؤال بأنك تريد اظهار النص ( واصل و غير واصل ) به لذا لا بد من تغييره الى نص في تصميم الجدول و من ثم تغييره من مربع تحرير و سرد الى مربع نص عادي بالنموذج .. 

 

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

 

 

بالتوفيق

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

السلام عليكم ورحمة الله وبركاته

اولا متاسف على حلة اختيار الكل

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

 

تم حل حوالي 90 % من المشكلة التي طرحتها في هذا الموضوع

جرب ووافني بالنتيجة وبشرح باقي المشكلة

 

شكرا

22.rar

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

بس اريد اضافة زر الغاء الايضافة

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

وشكرا 

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

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