Chọn điểm dừng TabStop bằng VBA trên FORM (1 người xem)

[truonggiang73]

Chào cả nhà GPE.
Tôi có Form nhập SP thu mua của người lao động. Có 4 loại SP là A, B, C, D. Theo từng thời điểm thường chỉ có 2 loại SP Ví dụ là A và B hoặc B và C hoặc C và D.
Theo thiết kế thì 4 loại SP trên đều có TabStop = True nên khi nhập dùng phím Tab phải duyệt qua cả 4 loại SP trên mới đến lệnh nhập.
Tôi muốn mỗi loại SP đều có tùy chọn TabStop (như ví dụ ở File đính kèm).
Nhờ các anh chị giúp cho.
TG73 thân chào.

 

[dhn46]

Bạn có thể lựa chọn chế độ Enable của các Textbox theo giá trị của Checkbox
Ví dụ như:

Private Sub CheckBox1_Change()
    If CheckBox1.Value = True Then
        TextBox1.Enabled = False
    Else
        TextBox1.Enabled = True
    End If
End Sub

 

[truonggiang73]

Cảm ơn bạn. Đổi lại thành

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
TextBox1.Enabled = True
Else
TextBox1.Enabled = False
End If
End Sub

là đúng yêu cầu.

 

[siwtom]

Cảm ơn bạn. Đổi lại thành

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
TextBox1.Enabled = True
Else
TextBox1.Enabled = False
End If
End Sub

là đúng yêu cầu.

Thay vì viết "If CheckBox1.Value = True Then" thì nên viết: "If CheckBox1.Value Then"

Tức thay vì

Private Sub CheckBox1_Change() 
    If CheckBox1.Value = True Then 
        TextBox1.Enabled = True 
    Else 
        TextBox1.Enabled = False
    End If
End Sub

thì

Private Sub CheckBox1_Change() 
    If CheckBox1.Value Then 
        TextBox1.Enabled = True 
    Else 
        TextBox1.Enabled = False
    End If
End Sub

Nhưng nếu là tôi thì tôi viết:

Private Sub CheckBox1_Change() 
    TextBox1.Enabled = CheckBox1.Value 
End Sub