Xin giúp đỡ Listbox & combox access!

[chuotluoi0]

Chào các bác!
Em đang tự tìm hiểu Access, đến phần tạo form thì gặp vấn đề như sau:
- Em tạo 1 combobox trong form để làm cái liệt kê dữ liệu.
- Cũng như vậy tạo thêm 1 cái listbox để liệt kê dữ liệu.
- 2 cái này liên kết với nhau bằng khoa.makh=sinhvien.makh
Em muốn khi kích vào combo chọn 1 khoa trong danh sách thì trong listlbox cũng nhãy tên sinh viên có trong khoa. Nhưng chẳng hiểu làm sao nó chỉ chạy được 1 lần duy nhất khi khởi động form. Còn những lần tiếp theo kích vào combo thì trên bảo dưới chẳng nghe. ha ha. Tại vì gà quá chẳng biết làm thế nào mạo muội hỏi các bác. Xin được sự giúp đỡ. Thaks các bác nhiều!

 

[xuanthanh]

Ðề: Xin giúp đỡ Listbox & combox access!

Chào các bác!
Em đang tự tìm hiểu Access, đến phần tạo form thì gặp vấn đề như sau:
- Em tạo 1 combobox trong form để làm cái liệt kê dữ liệu.
- Cũng như vậy tạo thêm 1 cái listbox để liệt kê dữ liệu.
- 2 cái này liên kết với nhau bằng khoa.makh=sinhvien.makh
Em muốn khi kích vào combo chọn 1 khoa trong danh sách thì trong listlbox cũng nhãy tên sinh viên có trong khoa. Nhưng chẳng hiểu làm sao nó chỉ chạy được 1 lần duy nhất khi khởi động form. Còn những lần tiếp theo kích vào combo thì trên bảo dưới chẳng nghe. ha ha. Tại vì gà quá chẳng biết làm thế nào mạo muội hỏi các bác. Xin được sự giúp đỡ. Thaks các bác nhiều!

1/ Tạo một qry để làm nguồn cho ListBox, đặt tên là qryNguon
SELECT tblSinhVien.*, tblSinhVien.MaKhoa
FROM tblSinhVien
WHERE (((tblSinhVien.MaKhoa)=[Forms]![frmThuNghiem]![Makhoa]));
2/ Trong listSV, không đặt RowSource
3/ Bắt sự kiện AfterUpdate của combo MaKhoa
Private Sub MaKhoa_AfterUpdate()
Me.ListSV.RowSource = "qryNguon"
End Sub


frmThuNghiem là cái form của bạn chứa comboMaKhoa và ListBox listSV
Thân

 

[chuotluoi0]

Ðề: Xin giúp đỡ Listbox & combox access!

Thanks bác xuanthanh nhiều!
em là gà mới nên chưa học đến đoạn xử lý code vba.
bác làm ơn sửa vào db giúp em để làm ví dụ nhé.
http://www.mediafire.com/?aks939zj3ip1a53

 

[xuanthanh]

Ðề: Xin giúp đỡ Listbox & combox access!

Thanks bác xuanthanh nhiều!
em là gà mới nên chưa học đến đoạn xử lý code vba.
bác làm ơn sửa vào db giúp em để làm ví dụ nhé.
http://www.mediafire.com/?aks939zj3ip1a53

Do file bạn gửi bị lỗi nên tôi làm lại file này, bạn đọc và tự nghiên cứu nhé
Thân

 

[chuotluoi0]

Ðề: Xin giúp đỡ Listbox & combox access!

Thanks Bác Xuanthanh!
Bài của bác chạy ok rồi, cái db đó em lấy tư CD Ôn thi chứng chỉ B của KHTN.
- Có cái dòng này trong textbox "=cmbkhoa.Column(0)" em không hiểu nó để làm gì vậy hả bác.
- À cái video của KHTN nó làm em thấy nó không có code đoạn "
Private Sub cmbkhoa_AfterUpdate()
Me.lstsv.RowSource = "qryNguon"
End Sub
"
của bác mà nó demo vẫn chạy được. Bác cho em hỏi có cách nào khác không hả bác, thông cảm em chỉ tò mò thôi!

Thanks bác nhiều lắm!

 

[chip2006]

Ðề: Xin giúp đỡ Listbox & combox access!

Thanks Bác Xuanthanh!
Bài của bác chạy ok rồi, cái db đó em lấy tư CD Ôn thi chứng chỉ B của KHTN.
- Có cái dòng này trong textbox "=cmbkhoa.Column(0)" em không hiểu nó để làm gì vậy hả bác.
- À cái video của KHTN nó làm em thấy nó không có code đoạn "
Private Sub cmbkhoa_AfterUpdate()
Me.lstsv.RowSource = "qryNguon"
End Sub
"
của bác mà nó demo vẫn chạy được. Bác cho em hỏi có cách nào khác không hả bác, thông cảm em chỉ tò mò thôi!

Thanks bác nhiều lắm!

- "=cmbkhoa.Column(0)" lấy giá trị cột 1 của dòng hiện hành từ combo cmbkhoa.
- Không có đoạn code vẫn chạy được do khi design Form đã gán qryNguon vào thuộc tính Row Source rồi.

 

[chuotluoi0]

Ðề: Xin giúp đỡ Listbox & combox access!

Bác à vậy cách gán query vào row source cách làm như thế nào vậy bác. Nó có dễ làm hơn cách kia không? Nếu được bác hướng dẫn cho em với. Thanks các bác rất nhiều! Thương thì thương cho trót các bác nhỉ?

 

[chuotluoi0]

Ðề: Xin giúp đỡ Listbox & combox access!

Sao không thấy bác nào trả lời vậy? Hixhix

 

[chip2006]

Ðề: Xin giúp đỡ Listbox & combox access!

Sao không thấy bác nào trả lời vậy? Hixhix

Chọn ComboBox, kích phải chọn properties.
Vào Tab Data, sửa 2 thuộc tính:

Row Source Type = Table/Query
Row Source = chọn cái query mình cần đưa dữ liệu vào.

 

[chuotluoi0]

Ðề: Xin giúp đỡ Listbox & combox access!

Cảm ơn bác nhiều! Bác làm ơn chỉ giúp em a,b,c như thế nào chứ. Em đọc xong vào làm nó lại hiện tên lên combobox, còn ở listbox thì hiện mã khoa. Hix như vậy là thế nào hả bác!

 

[chip2006]

Ðề: Xin giúp đỡ Listbox & combox access!

Cảm ơn bác nhiều! Bác làm ơn chỉ giúp em a,b,c như thế nào chứ. Em đọc xong vào làm nó lại hiện tên lên combobox, còn ở listbox thì hiện mã khoa. Hix như vậy là thế nào hả bác!

Mình trả lời cho bạn vấn đề thứ 2 mà bạn hỏi, còn vấn đề 1 thì phải biết Code VBA, trong khi bạn nói bạn chưa biết mà muốn giải quyết nó thì phải code VBA.

 

[domfootwear]

Ðề: Xin giúp đỡ Listbox & combox access!

Private Sub MaKhoa_AfterUpdate()
Me.ListSV.RowSource = "qryNguon"
End Sub
V
Thân

Không cần dài dòng như vậy đâu bạn, dùng như sau:

  ListSV.Requery

 

[chuotluoi0]

Ðề: Xin giúp đỡ Listbox & combox access!

ListSV.... đó đặt vào đâu vậy bác! Chết thật càng học càng rối trời ơi!
Em đang tự học đến đoạn main & sub form mà vướng cái này thế là không pass được hix hix. Nếu có thể bác làm chi tiết cho em 1 ví dụ đi.

http://www.mediafire.com/file/aks939zj3ip1a53/QL_SINHVIEN.mdb
Đây là cái db của em giúp em với.
-----------------------------------------------------------------------------------------
Em làm theo như hướng dẫn của bác!
Nhưng chỉ chạy được một lần thôi, còn lần lựa chọn combox sau thì xuất hiện lỗi.
Em chẳng biết là sai chỗ nào nữa. Bác xem giúp em nhé!
DB của em làm nè:
http://www.mediafire.com/file/ly7aua7s1sw5gil/QL_SINHVIEN.mdb