GIúp em liên kết 2 compobox voi nhau

[minhhuypt]

Compobox 1 : HIEUMAY :ví du :hp,asus,lenovo,dell......
Compobox 2 : Modell :ví du : trong compobox 1:HIEUMAY :hp ---->compobox2:hienlen danh sach :hp6520s,hp2133,hp520 ...v.v
table trong acess cua em nè các anh :
table hieumay:Mahieumay,hangsx.
table modell :tenmodell,mahieumay,cpu,ram,ocung.
em chỉ làm dược liên kết vídu :nhấn compobox1 :Hieumay là hp nó hiện bên copobox2 là hp6520s thôi à không hiện hết các modell hp em liệt kê như trên . Mong các pro giúp em với cám ơn .

[1024KB]

Tạo 3 Combobox, VD: cbxHieuMay, cbxMaHieuMay, cbxTenModel
Làm ẩn cbxMaHieuMay đi.
Code Form sau:


'Form Load
Private Sub Form_Load()
'Kết nối CSDL và Load DL vào cbxHieuMay và cbxMaHieuMay
opendb "SELECT * FROM hieumay"
While not Rs.EOF
cbxHieuMay.AddItem Rs!Hangsx
cbxMaHieuMay.AddItem Rs!Mahieumay
Rs.MoveNext
Wend
'Đóng kết nối CSDL
closedb
End Sub

Private Sub cbxHieuMay_Click
cbxMaHieuMay.ListIndex = cbxHieuMay.ListIndex
'Gọi hàm LayDL để lấy dữ liệu từ bảng model
LayDL
End Sub

Private Sub LayDL()
'Kết nối CSDL
opendb "SELECT * FROM model WHERE mahieumay = " & cbxMaHieuMay.Text
'Xóa dữ liệu mỗi khi gọi hàm này
cbxTenModel.Clear
'Xuất dữ liệu vào combobox
While not Rs.EOF
cbxTenModel.AddItem Rs!tenmodel
Rs.MoveNext
Wend
'Đóng kết nối
closedb
End Sub

Chắc là thế thôi. Chưa test, bạn test qua xem. Có lỗi lại post lỗi để tui sửa lại.

[minhhuypt]

em bị lỗi vậy đó anh !!! cảm ơn anh

[1024KB]

Bạn thử code của mình chưa mà bảo lỗi.