مطلوب عمل بلور للنموذج الخلفي عند فتح نموذج اخر

[moa.ma7moud]

هل يمكن عمل بلور للنموذج اللي في الخلفيه مثل الصورة المرفقة هل يوجد كود او شيء وشكرا لكم

[Eng.Qassim]

في زر الخروج للنموذج الاول ضع الكود التالي

Dim ctrl As Control

For Each ctrl In Me.Controls
    If ctrl.Tag = "*" Then
       ctrl.BackColor = RGB(192, 192, 192)
    End If
Next
Me.Detail.BackColor = RGB(192, 192, 192)
DoCmd.OpenForm "form2", acNormal

مع الانتباه ان تضع لل Tag لكل العناصر في النموذج علامة * حتى تأخذ لون واحد مع النموذج

[moa.ma7moud]

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

في زر الخروج للنموذج الاول ضع الكود التالي

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

[Eng.Qassim]

4 ساعات مضت, moa.ma7moud said:

ولكن عند اغلاق النموذج الثاني يبقي البلور كما هو

نفس العمل تقوم به عند اغلاق النموذج الثاني ...

عند حدث اغلاق النموذج الثاني تضع الكود

For Each ctrl In forms![form1].Controls
    If ctrl.Tag = "*" Then
       ctrl.BackColor = vbWhite
    End If
Next
forms![form1].Detail.BackColor = vbWhite

طبعا تضع لون الخلفية الاصلي للنموذج بدلا من vbWhite

تم تعديل يوليو 13, 2022 بواسطه Eng.Qassim