مشكلة فى دالة IF فى مربع تحرير وسرد

[أكسس وبس]

اخوانى

عندى نموذج فيه مربع تحرير وسرد حدث بعد التحديث

عملت

Private Sub Combo1_AfterUpdate()
If Me.Combo1.Value = "اسمنت " Then
Me.R.Visible = True
Me.S.Visible = False
Me.T.Visible = False
End If

If Me.Combo1.Value = "حديد عز" Then
Me.R.Visible = False
Me.S.Visible = True
Me.T.Visible = False
End If

If Me.Combo1.Value = "رمله" Then
Me.R.Visible = False
Me.S.Visible = False
Me.T.Visible = True
End If
Me.Requery
End Sub

المشكلة فى الجزء الاول عند اربع انوع من الاسمنت ( اسمنت السويس - اسمنت اسيوط - اسمنت العسكرى - اسمنت شديد ) عاوز استخدم كلمة اسمنت فقط لتعبر على كل انوع الاسمنت بدل من كتابة كل انواع الاسمنت

[kanory]

غير ها بهذه .....

If Mid([Combo1], 1, 5) = "اسمنت" Then
Me.R.Visible = True
Me.S.Visible = False
Me.T.Visible = False
End If

 

[أكسس وبس]

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