longkd_bvct@yahoo.com.vn > 17-06-19, 10:10 AM
duynamvnn1208 > 17-06-19, 10:57 AM
lmthu > 17-06-19, 10:58 AM
(17-06-19, 10:10 AM)longkd_bvct@yahoo.com.vn Đã viết: Chào mọi người ạ, em đang làm một form theo dõi kế hoạch thầu thuốc. em muốn tạo 1 form gồm 1 listbox là danh mục công ty, subform là số lượng hàng của công ty đó. khi chọn tên công ty trên listbox thì sudform hiển thị hàng hoá của công ty. Nhờ mọi người giúp ạ.
longkd_bvct@yahoo.com.vn > 17-06-19, 12:06 PM
(17-06-19, 10:58 AM)lmthu Đã viết:Có thể cho em xin 1 bảng demo dc k ạ. em mới học nên câu lệnh chưa rành lắm. em cám ơn nhiều ạ.(17-06-19, 10:10 AM)longkd_bvct@yahoo.com.vn Đã viết: Chào mọi người ạ, em đang làm một form theo dõi kế hoạch thầu thuốc. em muốn tạo 1 form gồm 1 listbox là danh mục công ty, subform là số lượng hàng của công ty đó. khi chọn tên công ty trên listbox thì sudform hiển thị hàng hoá của công ty. Nhờ mọi người giúp ạ.
Theo yêu cầu của bạn ta tạo 1 form gồm có 1 Listbox (đặt tên là LstDanhmuc) có 2 cột (column) cột 0 chứa dữ liệu (data) là mã công ty, cột 1 chứa dữ liệu là tên công ty (Listbox đánh số thứ tự điều khiển từ 0 trở đi), 1 Subform (đặt tên là SubDanhmuc) chứa dữ liệu là mã công ty (tên trường này tôi đặt là Macongty (data kiểu Text), dữ liệu của LstDanhmuc và Subform này tôi giả sử lấy từ bảng (table) tên là Congty), tên công ty, số lượng hàng...
Trong sự kiện on click của Listbox LstDanhmuc bạn viết lệnh xử lý như sau:
Private Sub LstDanhmuc_Click()
Me.SubDanhmuc.Form.RecordSource="Select * from Congty Where Macongty='" & Me.LstDanhmuc.Column(0) & "'"
Me.SubDanhmuc.Requery
End Sub
longkd_bvct@yahoo.com.vn > 17-06-19, 03:59 PM
(17-06-19, 10:58 AM)lmthu Đã viết:Mình đã làm được, cảm ơn bạn nhé(17-06-19, 10:10 AM)longkd_bvct@yahoo.com.vn Đã viết: Chào mọi người ạ, em đang làm một form theo dõi kế hoạch thầu thuốc. em muốn tạo 1 form gồm 1 listbox là danh mục công ty, subform là số lượng hàng của công ty đó. khi chọn tên công ty trên listbox thì sudform hiển thị hàng hoá của công ty. Nhờ mọi người giúp ạ.
Theo yêu cầu của bạn ta tạo 1 form gồm có 1 Listbox (đặt tên là LstDanhmuc) có 2 cột (column) cột 0 chứa dữ liệu (data) là mã công ty, cột 1 chứa dữ liệu là tên công ty (Listbox đánh số thứ tự điều khiển từ 0 trở đi), 1 Subform (đặt tên là SubDanhmuc) chứa dữ liệu là mã công ty (tên trường này tôi đặt là Macongty (data kiểu Text), dữ liệu của LstDanhmuc và Subform này tôi giả sử lấy từ bảng (table) tên là Congty), tên công ty, số lượng hàng...
Trong sự kiện on click của Listbox LstDanhmuc bạn viết lệnh xử lý như sau:
Private Sub LstDanhmuc_Click()
Me.SubDanhmuc.Form.RecordSource="Select * from Congty Where Macongty='" & Me.LstDanhmuc.Column(0) & "'"
Me.SubDanhmuc.Requery
End Sub