احفاء مربع تحرير وسرد بالتقرير

[كريمو2]

السلام عليكم

ممكن مساعدة بخصوص اخفاء مربع تحرير وسرد بالتقرير بشرط

كما في الصورة

تلوين مربع نص.rar

[jjafferr]

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

 

تفضل

Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)
If Me.Question = "أسباب اخرى" Then
Me.Autre.Visible = True
Me.Question.ForeColor = vbWhite 'or RGB(255, 255, 255)
Else
Me.Autre.Visible = False
Me.Question.ForeColor = vbBlack 'or RGB(0, 0, 0)
End If
End Sub

 

جعفر

[كريمو2]

شكرا لك استاذ جعفر

الكود يعمل صحيح

اما بالنسبة للفورم  "إستفسار"

عملت هذا الكود عند بعد التحديث في مربع السرد Question ولكن يبدو انه لايفي بالغرض امطلوب

Private Sub Question_AfterUpdate()
If Me.Question.Value = "أسباب اخرى" Then
Me.Autre.Visible = True
Else
Me.Autre.Visible = False
End If

End Sub

 

[jjafferr]

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

 

الكود صحيح ، ولكن اعتقد سؤالك هو عندما تفتح النموذج او تنتقل من سجل الى آخر ، فتريد ان يتحقق ذلك كذلك

يجب ان تنادي الحدث السابق ، ليقوم بالمقارنة ، ويعمل اللازم:

Private Sub Form_Current()

    Call Question_AfterUpdate
End Sub

 

جعفر

[كريمو2]

6 ساعات مضت, jjafferr said:

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

 

الكود صحيح ، ولكن اعتقد سؤالك هو عندما تفتح النموذج او تنتقل من سجل الى آخر ، فتريد ان يتحقق ذلك كذلك

يجب ان تنادي الحدث السابق ، ليقوم بالمقارنة ، ويعمل اللازم:

Private Sub Form_Current()

    Call Question_AfterUpdate
End Sub

جعفر

نعم هو المطلوب استاذي العزيز جعفر