• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Điều kiện nút option button

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Điều kiện nút option button
• Điều kiện nút option button

• Điều kiện nút option button

  maixuanthu > 02-06-13, 12:38 PM

  Em muốn tạo 2 nút option button, khi nhấn 1 nút thì nút kia sẽ bị ẩn đi và không thể click vào được. Có ai biết xin chỉ giáo giùm em.

• RE: Điều kiện nút option button

  bomnhauag > 02-06-13, 03:04 PM

  (02-06-13, 12:38 PM)maixuanthu Đã viết: Em muốn tạo 2 nút option button, khi nhấn 1 nút thì nút kia sẽ bị ẩn đi và không thể click vào được. Có ai biết xin chỉ giáo giùm em.

  
  Bạn có thể nói rõ hơn không? Hoặc cụ thể chụp hình post lên. Hỏi vầy thì Bợm cũng potay.

• RE: Điều kiện nút option button

  Xuân Thanh > 02-06-13, 08:08 PM

  (02-06-13, 12:38 PM)maixuanthu Đã viết: Em muốn tạo 2 nút option button, khi nhấn 1 nút thì nút kia sẽ bị ẩn đi và không thể click vào được. Có ai biết xin chỉ giáo giùm em.

  
  Làm được nhưng khi nút thứ 2 bị ẩn đi thì làm sao mà click khi có yêu cầu? Yêu cầu của bạn có lẽ không khả thi. Chỉ có thể là khi click cái thứ nhất thì ẩn đi một control nào đó(ví dụ commandbuton, textbox, combobox....), tương tự như cái thứ hai

• RE: Điều kiện nút option button

  khải nguyên > 02-06-13, 08:41 PM

  Đồng chí Maixuanthu này diễn đạt câu hỏi SAI rồi , chỉ có khi kích vào nút này thì nó mờ đi còn nút kia thôi ,nhưng tham khảo phần dưới đây chắc là đúng ý đó .
  Thử làm cách sau xem sao:
  Tạo Hai Nút Option Buton Theo thứ tự : Nhân Viên +Lương
  
  Private Sub Form_Load()
  ‘Phần này của Form Nhan Vien
  ‘Có Option Value =1
  ‘Khi mờ Form Nhân Viên này thì nút Nhân Viên chìm xuống không thể nhấn đc còn nút Lương nổi lên Form Nhân Viên hiển thị vì có
  Menu = 1
  End Sub
  
  Private Sub Form_Load()
  ‘ Phần này của Form Lương
  ‘Có Option Value =2
  ‘Khi mờ Form Lương này thì nút Lương chìm xuống không thể nhấn đc còn nút Nhân Viên nổi lên Form Nhân Viên hiển thị vì có
  Menu = 2
  End Sub
  
  Private Sub Menu_AfterUpdate()
  ‘ Phần này có Defaul Value =1
  Select Case Menu
  Case 1
  DoCmd.OpenForm "nhanvien"
  DoCmd.GoToRecord , , acNewRec
  DoCmd.Close acForm, "Luong"
  End Select
  End Sub
  Không hiểu sao bây giờ kg tải đc File lên Midia File...toàn báo Thất Bại khi chạy hết 100/100
  Nghiên Cứu ,Chúc Thành Công
  Khải Nguyên .

• RE: Điều kiện nút option button

  bomnhauag > 03-06-13, 09:43 AM

  Hi bạn! maixuanthu
  
  Vấn đề bạn hỏi thì cách giải quyết không nằm ở bản thân 2 cái "hột đậu" (radian option) đó, mà nằm ở ngoài cái khung bao 2 đứa nó ấy (Frame).
  
  Hạt ALL bạn đặt giá trị Option Value là 1 và thằng kia là 2 đúng không! Khi người nhấn vào 1 trong 2 thằng nó thì hạt đen đen sẽ chuyển sang và thằng cha nó (Frame) sẽ mang giá trị (Value) 1 hoặc 2. Lợi dụng điều này bạn hãy xử lý sự kiện <khi giá trị của thằng cha thay đổi> (OnClick hoặc AfterUpdate đều được).
  
  Khi AfterUpdate bạn xét xem giá trị thằng cha (Frame) là 1 hay 2 mà Enable thằng combobox bên dưới. Đơn giản vậy thôi.
  
  Còn khi nút XEM được click, bạn cũng đi xét giá trị thằng cha frCHON.Value là 1 hay là 2 mà truyền điều kiện đó vào report lúc open là được.
  
  code:

  Mã PHP:

  Private Sub cmdXEM_Click()
    Dim dk As String
    
    Select Case frChon.Value
        Case 1
            dk = ""
        Case 2
            If IsNull(cmbTinhTrang) Then
                dk = ""
            Else
                dk = "tinhtrang='" & cmbTinhTrang.Value & "'"
            End If
    End Select
    DoCmd.OpenReport "thongkeslhvtheotinhtrang", acViewPreview, , dk
End Sub

Private Sub frChon_AfterUpdate()
    Select Case frChon.Value
        Case 1
            cmbTinhTrang.Enabled = False
        Case 2
            cmbTinhTrang.Enabled = True
    End Select
End Sub 


• RE: Điều kiện nút option button

  haquocquan > 04-06-13, 11:40 AM

  Vấn đề của Maixuanthu không rõ ràng. Tốt nhất bạn up file lên và đưa ra yêu cầu cụ thể.
• Bài trước Bài tiếp