ارتباط کمبو باکس و تکس باکس

[iransim]

سلام
من روی فرمم یک کمبو باکس و چندین تکس باکس دارم که میخواهم با انتخاب مقادیر درون کمبو باکس بعضی از تکس باکسها غیر فعال شوند و ما بقی فعال بمانند .
با چه دستوری این کار را انجام دهم؟
ممنون

[مهدی قربانی]

شما قاعدتاً در رخداد After Update‌ کامبو مورد نظر باید شرطی رو برقرار کرده که متناظر با نتیجه اقدام به غیر فعال کردن تکست باکسهای مرتبط کنه برای این منظور باید کدهایی مشابه زیر بنویسی :


Private Sub Combo6_AfterUpdate()
Select Case Combo6.Value
Case "x"
Me.Text1.Enabled = False
Me.Text2.Enabled = False
Me.Text3.Enabled = False
Me.text4.Enabled = True
Me.text5.Enabled = True
Me.text6.Enabled = True
Case "y"
Me.Text1.Enabled = True
Me.Text2.Enabled = False
Me.Text3.Enabled = True
Me.text4.Enabled = True
Me.text5.Enabled = False
Me.text6.Enabled = True
Case "z"
Me.Text1.Enabled = True
Me.Text2.Enabled = True
Me.Text3.Enabled = True
Me.text4.Enabled = False
Me.text5.Enabled = False
Me.text6.Enabled = False
Case Else
Me.Text1.Enabled = False
Me.Text2.Enabled = False
Me.Text3.Enabled = False
Me.text4.Enabled = False
Me.text5.Enabled = False
Me.text6.Enabled = False

End Select

End Sub