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

Hàm visible nút lênh

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Hàm visible nút lênh
• Hàm visible nút lênh

• Hàm visible nút lênh

  nauthna > 22-02-13, 02:12 PM

  Mã PHP:

  Sub FlipVisibled(frmAny As Form, ctlAny As Control)
    Dim ctl As Control
    
    ctlAny.Visible = True
    ctlAny.SetFocus
    
    For Each ctl In frmAny.Controls
        If ctl.ControlType = acCommandButton Then
            If ctl.Name <> ctlAny.Name Then
                ctl.Visible = Not ctl.Visible
            End If
        End If
    Next ctl    
End Sub 


  
  
  Cach goi ham
  Call(ten form su dung, ten nut lenh)
  Vi du khi click nut lenh cmdThem thi xuat hien nut cmdLuu call(me,cmdluu)
  Luu y cmdLuu mac dinh visible la false nhe
  Thuoc tinh enable thi tuong tu nhe cac ban
  Mong giup ich cho cac ban
  
  Xuân Thanh : Lần sau nhớ viết Tiếng Việt có dấu bạn nhé

• RE: Hàm visible nút lênh

  Noname > 22-02-13, 06:10 PM

  Thanks bạn đã chia sẻ! Nhưng chú ý viết tiếng Việt có dấu nhé bạn!

• RE: Hàm visible nút lênh

  nauthna > 23-02-13, 08:58 AM

  (22-02-13, 06:10 PM)Noname Đã viết: Thanks bạn đã chia sẻ! Nhưng chú ý viết tiếng Việt có dấu nhé bạn!

  
  uhm lần sau mình rút kinh nghiệm

• RE: Hàm visible nút lênh

  Xuân Thanh > 23-02-13, 10:52 AM

  (22-02-13, 02:12 PM)nauthna Đã viết:

  Mã PHP:

  Sub FlipVisibled(frmAny As Form, ctlAny As Control)
    Dim ctl As Control
    
    ctlAny.Visible = True
    ctlAny.SetFocus
    
    For Each ctl In frmAny.Controls
        If ctl.ControlType = acCommandButton Then
            If ctl.Name <> ctlAny.Name Then
                ctl.Visible = Not ctl.Visible
            End If
        End If
    Next ctl    
End Sub 


  
  
  Cach goi ham
  Call(ten form su dung, ten nut lenh)
  Vi du khi click nut lenh cmdThem thi xuat hien nut cmdLuu call(me,cmdluu)
  Luu y cmdLuu mac dinh visible la false nhe
  Thuoc tinh enable thi tuong tu nhe cac ban
  Mong giup ich cho cac ban

  
  Cám ơn đã chia sẻ, nhưng hình như là thế này mới đúng
  Function FlipVisibled(frmAny As Form, ctlAny As Control)
  Dùng Function chứ không dùng Sub
  Thân
• Bài trước Bài tiếp