Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm visible nút lênh
#1
Mã PHP:
Sub FlipVisibled(frmAny As FormctlAny 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é
Chữ ký của nauthna Xin chào, mình là nauthna, Tham gia http://thuthuataccess.com/forum từ ngày 29-01 -13.
Reply
Những người đã cảm ơn Noname , Xuân Thanh
#2
Thanks bạn đã chia sẻ! Nhưng chú ý viết tiếng Việt có dấu nhé bạn!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(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
Chữ ký của nauthna Xin chào, mình là nauthna, Tham gia http://thuthuataccess.com/forum từ ngày 29-01 -13.
Reply
Những người đã cảm ơn
#4
(22-02-13, 02:12 PM)nauthna Đã viết:
Mã PHP:
Sub FlipVisibled(frmAny As FormctlAny 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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 808 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn xin các acc chỉ dùm e sữa lại cấu trúc lệnh kế tiếp mà không được conmaleTK21 3 242 22-06-17, 11:00 PM
Bài mới nhất: tranthanhan1962
  Code cho nút lệnh Mới trên Form feeling 3 410 10-05-17, 04:38 PM
Bài mới nhất: tranthanhan1962
  [Help]Tạo nút lệnh tiếp tục khanhnevn30 6 1,117 18-06-16, 08:39 PM
Bài mới nhất: maidinhdan
  Nho Giup Do Ve Cac Nut Lenh Trong Form duynghiep89 1 354 19-05-16, 01:18 AM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ