ขอคำสั่ง = False Text2 ถึง Text50 แบบเขียนเป็นบรรทัดเดียวค่ะ

[มาลี]

If IsNull(Me.Text1) Then

Me.Text2.Enabled = False
Me.Text3.Enabled = False
Me.Text4.Enabled = False
Me.Text...Enabled = False
Me.Text...Enabled = False
Me.Text...Enabled = False
Me.Text50.Enabled = False

หนูอยากได้คำสั่งให้ False รวมตั้งแต่ Text2 ถึง Text50 แบบเขียนบรรทัดเดียวค่ะ

หลังจาก Else

ก็สั่งให้เป็น True ตั้งแต่ Text2 ถึง Text50 แบบเขียนบรรทัดเดียวเช่นกันค่ะ

[สันติสุข]

    Dim N As Integer
   
    For N = 2 To 50
        Me("Text" & CStr(N)).Enabled = Not IsNull(Me.Text1)
    Next

[มาลี]

ใช้ได้ตามที่ต้องการแล้วค่ะอาจารย์

ขอบคุณค่ะ