BUIHUUDIEN > 23-08-16, 09:13 PM
(23-08-16, 04:52 PM)BUIHUUDIEN Đã viết:(23-08-16, 01:04 PM)toancvp Đã viết: Sau khi làm lại file của bạn mình cũng ko hiểu sao mà bị báo lỗi suốt, cái này thì mình chưa đủ khả năng tư vấn, nên mình làm lại file của bạn như sau, bạn thử làm y chang vậy thử xem nhé:Đa tạ sư huynh rất nhiều! khi mở file lên thử nhập vào thì 2 trường "tenNVL" và "DVT" không nhảy theo "maNVL"
1 ./. Tạo bảng Tbl_DanhMucNVL:
MaNVL (khóa chính, short text, format >)
TenNVL (short text)
DonViTinh (short text, format>)
2 ./. Tạo bảng Tbl_XUAT:
ID (khóa chính, auto number)
Ngay (date / time)
MaNVL (lookup winzard, chọn bảng Tbl_DanhMucNVL, chọn toàn bộ 3 field, cuối cùng chọn MaNVL làm field value)
TenNVL (short text)
DVT (short text, format>)
SoLuong (number; bỏ defalt value đi)
-------------------
3 ./. tạo subform như cách bạn tạo, đặt tên là Frm_XUAT_sub
4 ./. tạo Form chính như sau.1. Creat Form design .2.Chọn data cho form là Tbl_XUAT
5 ./. Sau đó kéo tất cả các Field vào form; kéo cái subform phía trên vào đó, bạn phải lựa chọn bỏ Link Master Field và Link Child Field đi nhé
6 ./. Click vào MaNVL, vào event trong propertise, click vào event after update và copy đoạn code này vào:
Me.TenNVL = Me.MaNVL.Column(1)
Me.DVT = Me.MaNVL.Column(2)
(Đây là giải quyết việc nhảy kết quả cho Tên NVL và Đơn vị tính)
7 ./. Cho đoạn code này vào event after update của frm_XUAT
Me.Frm_XUAT_sub.Requery
(Đây là để cái sub tự động update khi bạn save frm_XUAT)
Bạn xem file của mình nhé.
https://drive.google.com/open?id=0B4WYRA...HdtM1ptdFU
P/S: Lần tới để được các pro tư vấn nhanh thì bạn nên save as file sang access 2003, vì hầu hết các pro trên 4rum dùng access 2003, file của bạn các anh đấy ko mở ra đc đâu.
toancvp > 24-08-16, 12:30 AM