Tùy chọn
Tự tính đơn giá theo nhiều điều kiện
- Tự tính đơn giá theo nhiều điều kiện
-
Tự tính đơn giá theo nhiều điều kiện
phuongmda > 08-07-17, 03:16 PM
Thưa các anh chị, em dừng ở cấp độ newbie, đang đọc giáo trình, em đang giải 1 bài toán và vướng phải vấn đề như sau nhờ các anh chị giúp đỡ ạ
Lập bảng record hàng ngày về
table 1: lộ trình, loại xe sử dụng, số lượng xe sử dụng, đơn giá, nhà vận tải
Trong đó em tự điền tất cả, duy có đơn giá là em muốn link từ table khác
table 2: Có lộ trình, loại xe sử dụng, nhà vận tải, đơn giá
Làm thế nào để khi em gõ xong lộ trình, loại xe, nhà vận tải ở bảng 1 thì nó tự nhảy ra đơn giá ạ?
em tìm mấy ngày hôm nay không ra kết quả nên rất mong các cao nhân giúp đỡ ạ
em cảm ơn ạ -
RE: Tự tính đơn giá theo nhiều điều kiện
tranthanhan1962 > 08-07-17, 05:10 PM
Để lấy giá trị từ bảng người ta dùng hàm Dlookup. Tuy nhiên, do hàm này có các đối số như sau: DLookUp(«expression»; «domain»; «criteria») mà table 2 của bạn có tới 3 đối số (Có lộ trình, loại xe sử dụng, nhà vận tải). Vì vậy, chỉ có cách duy nhất là làm sau chuyển 3 đối số này thành 1. Có thể dùng phương pháp tạo một field ví dụ doiso = [Có lộ trình] & [loại xe sử dụng] & [nhà vận tải]. Trên table khi chọn đầy đủ các đối số sẽ có 1 textboxdoiso tạo code của các textbox lộ trình, loại xe sử dụng, nhà vận tải update là textboxdoiso =[lộ trình] & [loại xe sử dụng] & [nhà vận tải] giống như vậy.
Lúc đó áp dụng code dơn giá table 1 = DLookUp("[table 2! đơn giá]", "table 2", "table 2!đối số = textboxdoiso"). Bạn đưa code này vào sau code textboxdoiso =[lộ trình] & [loại xe sử dụng] & [nhà vận tải] -
RE: Tự tính đơn giá theo nhiều điều kiện
phuongmda > 09-07-17, 09:14 AM
(08-07-17, 05:10 PM)tranthanhan1962 Đã viết: Để lấy giá trị từ bảng người ta dùng hàm Dlookup. Tuy nhiên, do hàm này có các đối số như sau: DLookUp(«expression»; «domain»; «criteria») mà table 2 của bạn có tới 3 đối số (Có lộ trình, loại xe sử dụng, nhà vận tải). Vì vậy, chỉ có cách duy nhất là làm sau chuyển 3 đối số này thành 1. Có thể dùng phương pháp tạo một field ví dụ doiso = [Có lộ trình] & [loại xe sử dụng] & [nhà vận tải]. Trên table khi chọn đầy đủ các đối số sẽ có 1 textboxdoiso tạo code của các textbox lộ trình, loại xe sử dụng, nhà vận tải update là textboxdoiso =[lộ trình] & [loại xe sử dụng] & [nhà vận tải] giống như vậy.
Cái này giống cách exel em làm ạ
Lúc đó áp dụng code dơn giá table 1 = DLookUp("[table 2! đơn giá]", "table 2", "table 2!đối số = textboxdoiso"). Bạn đưa code này vào sau code textboxdoiso =[lộ trình] & [loại xe sử dụng] & [nhà vận tải]
Để e thử xem ạ
Liệu có code vba đc ko ạ -
RE: Tự tính đơn giá theo nhiều điều kiện
MTNQ > 09-07-17, 10:12 AM
giả sử trong table2 có các trường:
Lotrinh
Loaixe
Nhavantai
Dongia
và trên form có các textbox:
txtLotrinh
txtLoaixe
txtNhavantai
txtDongia
thì công tức sẽ là:
Mã:Me.txtDongia = Nz(DLookup("[dongia]", "table2", "[Lotrinh] = '" & Nz(Me.txtLotrinh, "") & "' and [Loaixe] = '" & Nz(Me.txtLoaixe, "") & "' and [Nhavantai] = '" & Nz(Me.txtNhavantai, "") & "'"), 0)
Bạn có thể đặt Control Source của txtDongia là:
Mã:=Nz(DLookUp("[dongia]","table2","[Lotrinh] = '" & Nz([txtLotrinh],"") & "' and [Loaixe] = '" & Nz([txtLoaixe],"") & "' and [Nhavantai] = '" & Nz([txtNhavantai],"") & "'"),0) -
RE: Tự tính đơn giá theo nhiều điều kiện
phuongmda > 11-07-17, 12:49 AM
(09-07-17, 10:12 AM)MTNQ Đã viết: giả sử trong table2 có các trường:
Lotrinh
Loaixe
Nhavantai
Dongia
và trên form có các textbox:
txtLotrinh
txtLoaixe
txtNhavantai
txtDongia
thì công tức sẽ là:
Mã:Me.txtDongia = Nz(DLookup("[dongia]", "table2", "[Lotrinh] = '" & Nz(Me.txtLotrinh, "") & "' and [Loaixe] = '" & Nz(Me.txtLoaixe, "") & "' and [Nhavantai] = '" & Nz(Me.txtNhavantai, "") & "'"), 0)
Bạn có thể đặt Control Source của txtDongia là:
Mã:=Nz(DLookUp("[dongia]","table2","[Lotrinh] = '" & Nz([txtLotrinh],"") & "' and [Loaixe] = '" & Nz([txtLoaixe],"") & "' and [Nhavantai] = '" & Nz([txtNhavantai],"") & "'"),0)
Em cảm ơn ạ, em cũng đã mò tương đối
hàm NZ để chuyển các giá trị Null về 0 giống hàm ISNA trong excel đúng không ạ? -
RE: Tự tính đơn giá theo nhiều điều kiện
phuongmda > 11-07-17, 01:01 AM
Thưa các anh/chị
Cảm ơn các anh chị đã feedback nhiệt tình ạ, em cũng đang vọc dần dần
bài toán của em nâng cao hơn chút là có thêm điều kiện ngày như sau ạ
table 1: lộ trình, loại xe sử dụng, số lượng xe sử dụng, đơn giá, nhà vận tải
Trong đó em tự điền tất cả, duy có đơn giá là em muốn link từ table khác
table 2: Có lộ trình, loại xe sử dụng, nhà vận tải, đơn giá, thời gian đơn giá có hiệu lực
![[Hình: ex.png]](http://i192.photobucket.com/albums/z67/thiensonhoangda/ex.png)
ví dụ -
RE: Tự tính đơn giá theo nhiều điều kiện
phuongmda > 11-07-17, 01:03 AM
(11-07-17, 01:01 AM)phuongmda Đã viết: Thưa các anh/chị
Cảm ơn các anh chị đã feedback nhiệt tình ạ, em cũng đang vọc dần dần
bài toán của em nâng cao hơn chút là có thêm điều kiện ngày như sau ạ
table 1: lộ trình, loại xe sử dụng, số lượng xe sử dụng, đơn giá, nhà vận tải
Trong đó em tự điền tất cả, duy có đơn giá là em muốn link từ table khác
table 2: Có lộ trình, loại xe sử dụng, nhà vận tải, đơn giá, thời gian đơn giá có hiệu lực
ví dụ -
RE: Tự tính đơn giá theo nhiều điều kiện
MTNQ > 11-07-17, 02:18 PM
Như vậy giả sử trên form có thêm txtNgaythuchien và trong table2 có thêm 2 cột Ngaybatdau và Ngayketthuc thì Control Source của txtDongia sẽ là:
Mã:=Nz(DLookUp("[dongia]","table2","[Lotrinh] = '" & Nz([txtLotrinh],"") & "' and [Loaixe] = '" & Nz([txtLoaixe],"") & "' and [Nhavantai] = '" & Nz([txtNhavantai],"") & "' and (#" & Format([txtNgaythuchien],"mm/dd/yyyy") & "#" & " Between [Ngaybatdau] and [Ngayketthuc])"),0)
-Lưu ý: Giá trị ngày giữa hai dấu # luôn phải đưa về định dạng "tháng ngày năm": Format([txtNgaythuchien],"mm/dd/yyyy")
Có khá nhiều bạn thắc mắc tại sao truy vấn theo ngày tháng lại ra kết quả không đúng là do mắc lỗi này
VD: trên form nhập 01/04/2017 ( ngày 01 tháng 04 năm 2017 ) khi đưa vào câu truy vấn nó sẽ hiểu là ngày 04 tháng 01 năm 2017 nên có sự nhầm lẫn giữa tháng và ngày
-Những gì mình đưa ra chỉ là gợi ý thôi, bạn phải tùy biến nhé
-
RE: Tự tính đơn giá theo nhiều điều kiện
phuongmda > 16-07-17, 12:53 AM
Em xin lỗi dù đã nhận được hướng dẫn tận tình từ bạn MTNQ nhưng em vẫn không làm được ra hồn
sau mấy hôm vọc không thành công em đành vác lên đây nhờ các anh chị một lần nữa ạ
em đang bị vướng là.
Dữ liệu của em em muốn giấu đi, chỉ cho người dùng nhập duy nhất file update ạ, nhưng sao em cứ nhập vào thì dữ liệu bị lưu đè mất và em ko code được cho mấy cái command em làm
(
Thứ 3 là vụ giá em cũng ko biết nhập thế nào vì em search mãi từ Control Source là ở đâu ko ra (xin đừng mắng em ngu ạ)
Thứ 4 là sao em chưa nhập đáng bao nhiêu dữ liệu mà file nặng quá, làm thế nào để giảm tải cho nó ạ
Thứ n là xong bước nhập dữ liệu thì bài toán của em là như sau ạ
Báo cáo 1
Truy vấn được từng nhà vận tải, theo từng ngày tất cả các thông tin ở bảng MAIN
Và in được file doc theo mẫu
Báo cáo 2
Báo cáo excel theo tháng theo chi phí của từng nhà vận tải và có liệt kê theo order type
Báo cáo 3
Báo cáo theo tháng xem chi phí cho từng order type là bao nhiêu tiền
em cảm ơn các anh chị và mong các anh chị thứ lỗi, em đang tìm một khóa acess cơ bản ạ, nếu anh chị biết có thể học ở đâu thì chỉ giáo giúp em ạ
em chưa học ở đâu mới đang đọc dở giáo trình access Nguyễn Sơn Hải mà làm đâu vướng đấy ạ
-
RE: Tự tính đơn giá theo nhiều điều kiện
MTNQ > 17-07-17, 09:24 PM
MTNQ có vài góp ý như sau:
-Nên lập khoá chính và quản lý dữ liệu theo mã (ID) chứ không phải theo tên (tên có thể trùng và sau này có thể thay đổi...)
-Không nên đặt tên trường (field) trùng với tên các hàm hệ thống như date, time,...
-Không nên đặt tên các điều khiển trên form (text box, combobox...) trùng với tên các trường trong table (nên thêm vào các tiền tố như txtUser, cboSoldtoparty...)
-Control Source là thuộc tính của điều khiển trên form (không phải trong table): phải chột vào control chọn properties > chọn thẻ Data > Control Source nằm ở dòng đầu tiên
-Các nút lệnh Thêm, Sửa, Xoá... thì có rất nhiều trong các Demo trên diễn đàn.
-Để file bớt nặng thì bạn tìm hiểu thêm về compact and repair (cũng có nhiều trên diễn đàn)
-Các báo cáo không nhất thiết phải xuất sang Word hay Excel. Bạn có thể in trực tiếp từ các Report
Nói túm lại bạn nên vọc Access nhiều thêm chút nữa trước khi bắt tay vào làm một ứng dụng thực sự
![[Hình: ex.png]](http://s192.photobucket.com/user/thiensonhoangda/media/ex.png.html)