Liệt kê dữ liệu trong SUBFORM (1 người xem)

[ptkhanh_nt]

Mong giúp đỡ
Mình có 1table: t_tonghop(mats,tentaisan,nguyengia,namAD,...)
Mình muốn tạo 3 form. (f_thuchien,f_tonghop,f_subtonghop).
Form1(f_thuchien): nhập vào năm áp dụng (txtnamAD, và nhấn nút thực hiện(cmbthuchien), thì sẽ mở ra form2, trong form 2 có subform(f_subtonghop) nhằm thể hiện những dữ liệu table t_tonghop. Với yêu cầu subform này phải lọc giá trị năm (namAD là gía trị đã nhập vào txtnamAD).
Form2 (f_tonghop): gồm các textbox để thực hiện cập nhật các fields của t_tonghop, và 1 subfom (f_subtonghop) để liệt kê các fields đó. Đồng thời, khi nhấn chuột vào các hàng dữ liệu trong subform thì sẽ được thể hiện dữ liệu lên các textbox.
Xin chân thành cám ơn.
​

 

[nguoiconxunui]

Mong giúp đỡ
Mình có 1table: t_tonghop(mats,tentaisan,nguyengia,namAD,...)
Mình muốn tạo 3 form. (f_thuchien,f_tonghop,f_subtonghop).
Form1(f_thuchien): nhập vào năm áp dụng (txtnamAD, và nhấn nút thực hiện(cmbthuchien), thì sẽ mở ra form2, trong form 2 có subform(f_subtonghop) nhằm thể hiện những dữ liệu table t_tonghop. Với yêu cầu subform này phải lọc giá trị năm (namAD là gía trị đã nhập vào txtnamAD).
Form2 (f_tonghop): gồm các textbox để thực hiện cập nhật các fields của t_tonghop, và 1 subfom (f_subtonghop) để liệt kê các fields đó. Đồng thời, khi nhấn chuột vào các hàng dữ liệu trong subform thì sẽ được thể hiện dữ liệu lên các textbox.
Xin chân thành cám ơn.
​

ncxn đưa ra hướng đi nhé:
1.tại biến toàn cục pnamAD, dạng:
public pnamAD as string
pnamAD=txtnamAD ' tham chiếu tới textbox trên form thực hiện.

2. subform là một query có tham số, dạng thế này:
select * from tblTonghop where namAD = pnamAD
subform.requery ' refresh data in subform
3. Các textbox trên form tổng hợp không để controlsoucre
Muốn textbox lấy dữ liệu từ các record thì tạo một thủ tục binding data từ cái query hoặc từ tbl, có dạng:
sub BindControls()
txtmaTS.Controlsource = "maTS"
......
end sub
4. Muốn thêm mới hoặc , sửa thì viết SQL, dạng
- Update
UPDATE tblTonghop
SET column1=value1, column2=value2,...
WHERE maTS=txtMaTS
-INSERT
INSERT INTO tblTonghop
VALUES (value1, value2, value3,...)

 

[ptkhanh_nt]

Vẫn không được bạn ơi.
Không thể truyền được giá trị biến vào control source trên SUBFORM.
Mong bạn hướng dẫn chi tiết hơn.
Rất cám ơn.

 

[nguoiconxunui]

Vẫn không được bạn ơi.
Không thể truyền được giá trị biến vào control source trên SUBFORM.
Mong bạn hướng dẫn chi tiết hơn.
Rất cám ơn.

sao không được? ncxn làm cho bạn từ 1->3
phần 4 bạn tự làm nhé (lười viết quá)