شكرا لك استاذ جعفر
الكود يعمل صحيح
اما بالنسبة للفورم "إستفسار"
عملت هذا الكود عند بعد التحديث في مربع السرد Question ولكن يبدو انه لايفي بالغرض امطلوب
Private Sub Question_AfterUpdate()
If Me.Question.Value = "أسباب اخرى" Then
Me.Autre.Visible = True
Else
Me.Autre.Visible = False
End If
End Sub