Checkbox và option button

vuthuanbkvn

Member
Hội viên mới
Mình đã được bạn Phát cho vi dụ cụ thể về option button ,ví dụ rất cụ thể dễ dàng làm. Còn với nút checkbox mình ko thể nào tìm được để học hỏi. Bạn nào có thể chỉ giáo được không? Ví dụ cụ thể nha. Mình mới giai đoạn học hỏi thôi,chỉ vắn tắt e chừng lại hỏi lại. hehehe
Giả dụ mình có 1 form tìm kiếm.
không phải sử dụng option nữa mà dùng nút check để lựa chọn nhung thứ mình muốn tìm.
1 textbox : txttoaxe
1 combox :cbotinhtrangbaoduong
1 textbox : txtsolanbaoduong

Dùng checkbox để khi nào nhấp vào lựa chọn thì textbox hay combox đó sẽ sáng lên để mình lọc những thứ cần thiết,có thể lựa chọn 2 điều kiện hay cả 3 điều kiện cùng 1 luc.
Chân thành cảm ơn.
 
Ðề: Checkbox và option button

Giả sử:
checkbox1 link với txttoaxe
checkbox2 link với cbotinhtrangbaoduong
checkbox3 link với txtsolanbaoduong

Các checkbox khởi đầu bạn cho Default Value = No
txttoaxe, cbotinhtrangbaoduong, txtsolanbaoduong cho Enabled = No

Vào sự kiện After_Update của mỗi check box, nhập vào (ví dụ cho checkbox1):

txttoaxe.Enabled = checkbox1

Tương tự cho hai checkbox kia.
 
Ðề: Checkbox và option button

Giả sử:
checkbox1 link với txttoaxe
checkbox2 link với cbotinhtrangbaoduong
checkbox3 link với txtsolanbaoduong

Các checkbox khởi đầu bạn cho Default Value = No
txttoaxe, cbotinhtrangbaoduong, txtsolanbaoduong cho Enabled = No

Vào sự kiện After_Update của mỗi check box, nhập vào (ví dụ cho checkbox1):

txttoaxe.Enabled = checkbox1

Tương tự cho hai checkbox kia.

Còn nếu muốn thực hiện lệnh tìm kiêm thì theo câu lệnh thế nào nhỉ?
Như này được không?
If Checkbox1.Value = True Then
MsgBox "AAAA"
ElseIf checkbox2.Value = True Then
MsgBox "BBBB"
ElseIf Checkbox3.Value = True Then
MsgBox "CCCC"
Else
MsgBox "Chua cli.k vao option button"
End If
Hay vẫn dùng CASE 1...... ?... làm tương tự như ví dụ bạn hướng dẫn đc ko? tìm trong table ấy?
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top