Checkbox và option button

Thảo luận trong 'Access và VBA' bắt đầu bởi vuthuanbkvn, 17/2/09.

  1. vuthuanbkvn

    vuthuanbkvn New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    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.
     
  2. phatnq2002

    phatnq2002 Tích cực giảm cân... Hội viên đẳng cấp

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: 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.
     
  3. vuthuanbkvn

    vuthuanbkvn New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Checkbox và option button

    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?
     

Chia sẻ trang này