Hướng dẫn Nạp RowSource cho ComboBox nhanh và hiệu quả với dữ liệu lớn

Tác Giả Bài Viết: Lê Hồng Đức.
Các bạn có thể thảo luận thêm chủ đề này ở diễn đàn Thủ Thuật Access tại Topic
https://thuthuataccess.com/forum/post-42800.html#pid42800

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

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.com/forum

Truyền thông số từ Combobox

Hỏi: Các Huynh chỉ dùm trong Access khi chọn 1 mục trong Combo box VD: MANV nào đó thì ở TextBox kế bên hiển thị ngay tên nhân viên theo MANV đó.

Trích:

Nguyên văn bởi ndtoan123 :Cách 1 Mình cho vd nhé: Giả sử bạn có bảng nhân viên(MaNV;TenNV) bây giờ tại Form: Frmnhanvien bạn có 1 combobox(tên là Cboma) để gõ mã nhân viên và 1 Textbox(tên là txttenNV) để hiển thị tên nhân viên ứng với mã NV đã chọn. VD khi gõ vào combobox mã nhân viên NV01 thì textbox sẽ hiển thị là Nguyễn Văn A; khi gõ vào nhân viên NV02 thì textbox hiển thị là Nguyễn văn B... Muốn vậy tại textbox trên Form frmnhanvien: chọn Text txttenNV gõ vào công thức: =Dlookup("tenNV","nhanvien","nhanvien!maNV=[Forms]![frmNhanvien]![Cboma]") thì bạn sẽ có được kết quả ngay nhưng nhớ đặt thuộc tính Looked= Yes cho Textbox txttenNV (Mục đích là textbox này chỉ để hiển thị kết quả, không cho sửa đổi)

Trích:

Nguyên văn bởi pinkair Cách 2 Ví dụ bạn có Table la NhanVien gồm hai trường MaNV, TenNV Bạn tạo Form có 1 Combo la CmbMaNV; 1 Text Box là txtTenNV Source của CmbMaNV là table NhanVien trên. Đoạn code như sau: Private Sub cmbMaNV Click() Me.txtTenNV.Value = Me.cmbMaNV.Column(1) End Sub Mình đã làm rồi, rất là OK bạn ah, bạn có thể sử dung

Thảo luận thêm: https://thuthuataccess.com/forum