Kiểm tra dùm mình hàm DLookup() nhe

[lydaoluc]

tui bó tay chấm com rồi mấy bro ơi! Database của tui gồm:
table BAOCAOTHANG (báo cáo tháng)
field TENBV (Tên bệnh viện) dạng text
field THANG (tháng) dạng number
field NHAP (nhập)
field XUAT (xuất)
field TONCUOI (tồn cuối)
field TENTHUOC (tên thuốc)
form FRMBAOCAOTHANG
Combo CMBTENBV
Combo CMBTENTHUOC
Combo CMBTHANG
TUI KHAI BAO NHU SAU
// khai báo biến a
Dim a as double
a = CMBTHANG.Value - 1
// Sử dụng hàm DLookup để tìm tồn kho tháng trước
DLookup("TONCUOI", "BAOCAOTHANG", "TENBV = '" & CMBTENBV & "' And TENTHUOC = '" & CMBTENTHUOC & "' And THANG = " & a)
VBA báo lỗi hoài!!!!!

 

[muontennguoi]

Ðề: Kiểm tra dùm mình hàm DLookup() nhe

Không có field "TONCUOI" mà bạn bảo tìm theo field đó thì làm sao nó tìm được?

 

[lydaoluc]

Ðề: Kiểm tra dùm mình hàm DLookup() nhe

sorry, tui quen khai bao field TONCUOI
bạn thấy cấu trúc có sai không vậy?

 

[muontennguoi]

Ðề: Kiểm tra dùm mình hàm DLookup() nhe

Bạn phải mở 1 table để lưu số tồn đầu.
1/ - Rồi lại phải mở 1 table nháp để lưu tạm số tồn cuối tính đến hôm nay.
Và mỗi khi cần thì phải tính toán lại số tồn cuối.
2/ - Hoặc là làm 1 cái query để tính toán số tồn cuối.

Sau đó mới dùng hàm Dlookup để tìm số tồn cuối trên cái table/query đó.

Tất nhiên nếu làm cách 2 (làm query) thì sẵn làm luôn cái query để tính số tồn cuối cho riêng tên thuốc đó luôn, khỏi dùng Dlookup.

 

[lydaoluc]

Ðề: Kiểm tra dùm mình hàm DLookup() nhe

cám ơn nhiều lắm, nhưng tui không hiểu mấy (dân nghiệp dư mà)
lở rồi giúp tui cho chót đi hé. Lập table lưu tồn cuối là sao không hiểu?

 

[muontennguoi]

Ðề: Kiểm tra dùm mình hàm DLookup() nhe

Không có gì cả.

Nếu như đã có ai đó tính sẵn cho bạn cái table Bao cáo tháng như vậy rồi thì bạn cứ lấy mà tính tiếp.

Chỉ là nếu như bạn phải tự tính lấy số tồn cuối thì tùy tình huống mà tính nguyên cả bảng hay chỉ cần tính riêng 1 tên thuốc.

 

[megameonline]

Ðề: Kiểm tra dùm mình hàm DLookup() nhe

tui bó tay chấm com rồi mấy bro ơi! Database của tui gồm:
table BAOCAOTHANG (báo cáo tháng)
field TENBV (Tên bệnh viện) dạng text
field THANG (tháng) dạng number
field NHAP (nhập)
field XUAT (xuất)
field TONCUOI (tồn cuối)
field TENTHUOC (tên thuốc)
form FRMBAOCAOTHANG
Combo CMBTENBV
Combo CMBTENTHUOC
Combo CMBTHANG
TUI KHAI BAO NHU SAU
// khai báo biến a
Dim a as double
a = CMBTHANG.Value - 1
// Sử dụng hàm DLookup để tìm tồn kho tháng trước
DLookup("TONCUOI", "BAOCAOTHANG", "TENBV = '" & CMBTENBV & "' And TENTHUOC = '" & CMBTENTHUOC & "' And THANG = " & a)
VBA báo lỗi hoài!!!!!

-------------------
Bạn làm thử thế này xem có lỗi không :
DLookup("TONCUOI", "BAOCAOTHANG", "TENBV = '" & CMBTENBV & "' And TENTHUOC = '" & CMBTENTHUOC & "' And THANG = #" & a & "#")
hoặc dùng câu lệnh Sql (đây là bản chất của của hàm DLookup):
StrSQL = "SELECT TONCUOI FROM BAOCAOTHANG WHERE ((TENBV = '" & CMBTENBV & "' AND ....cac dieu kien can thiet khac.... ....));"
Ban luu y: giá trị ngày phải được bao bởi dấu thăng (#) (vd: #giatringay hoặc bien kieu ngày#)