Thủ Thuật Access

Thế Giới Thủ Thuật với Access

Tạo combo box để chọn các ổ đĩa có trên máy tính

Posted by Noname on 01.02.2010

Cách tạo combo box để chọn ổ đĩa trên máy tính (tự động đưa tất cả các ổ đĩa trong máy vào combo box)
đầu tiên tạo 1 combo box tên là (ví dụ là thế) : Mydrive

Private Sub MyDrive_GotFocus()
    Dim fs, d, dc, s, n
    Set fs = CreateObject(“Scripting.FileSystemObject”)
    Set dc = fs.Drives
    n = 0
    For Each d In dc
        s = s & d.DriveLetter & “:,”
        n = n + 1
    Next
MyDrive.ListRows = n
MyDrive.RowSourceType = “Value list”
MyDrive.RowSource = s
End Sub

xem demo: DownLoad
Thủ Thuật này được sưu tầm từ blog sưu tầm bài viết
____________________________________________________________________________________
Thảo luận thêm: http://thuthuataccess.co.cc/forum

2 phản hồi to “Tạo combo box để chọn các ổ đĩa có trên máy tính”

  1. Anonymous said

    Bạn ơi! Bạn có thể giúp mình tạo một combobox để lọc dữ liệu được không vậy? Lọc theo tên nhân viên, NẾU CHỌN ALL THÌ LIỆT KÊ TẤT CẢ NHÂN VIÊN. CÁM ƠN RẤT NHIỀU? MAIL CỦA MÌNH LÀ gokuson83vn@yahoo.com

  2. Noname said

    Để lọc dữ liệu, thông thường, form của bạn có record source dạng : select * from tblNhanvien where Tennhanvien like * & form![form chứa combobox}![tên combobox] & *

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: