maidinhdan > 10-02-15, 03:32 PM
'Đếm các giá trị tại một cột
=DCount("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DCount("[Thanhtien]","[QrHamD]") 'Đếm Tất cả
=DCount("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Đếm Tenhang la VietTL
'Tính tổng giá trị
'=DSum("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DSum("[Thanhtien]","[QrHamD]")'Cộng Tất cả
=DSum("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Chi Cộng Tenhang la VietTL
'Tìm giá trị nhỏ nhất
'=DMin("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DMin("[Soluong]","[QrHamD]")'Lay gia tri nho nhat trong Tất cả mau tin co trong Table/Query
=DMin("[Soluong]","[QrHamD]","[Tenhang]='Viết TL'") ''Lay gia tri nho nhat trong Table/Query voi dieu kien la: Tenhang la VietTL
'Tìm giá trị lớn nhất
'=DMax("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DMax("[Soluong]","[QrHamD]")'Lay gia tri lon nhat trong Tất cả mau tin co trong Table/Query
=DMax("[Soluong]","[QrHamD]","[Tenhang]='Viết TL'") ''Lay gia tri Lon nhat trong Table/Query voi dieu kien la: Tenhang la VietTL
'Tính trung bình các giá trị
'=DAvg("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DAvg("[Thanhtien]","[QrHamD]") 'Khong co dieu kien thi tinh Tính trung bình Tong cong cot ThanhTien
=DAvg("[Thanhtien]","[QrHamD]","[Tenhang]='ViếtTL'") 'Co dieu kien thi tinh Tính trung bình Tong cong loai Tenhang la VietTL
'Tìm một giá tri thỏa điều kiện, Trả về giá trị đầu tiên được tìm thấy
'=DLookUp("[Tên cột Cần Tính]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DLookUp("[Thanhtien]","[QrHamD]","[Tenhang]='Thước'") 'Xem Tenhang la VietTL
'Trả về giá trị đầu tiên được tìm thấy
'=DFirst("[Tên cột Cần Xem]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DFirst("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Xem Tenhang la VietTL
'Trả về giá trị cuối cùng được tìm thấy
'=DLast("[Tên cột Cần Xem]","[Tên table/Query]","[Tên Cột]=[Điều Kiện]") '[Tên Cột] Nếu là Chuỗi thì [Điều Kiện] để trong nháy đơn
=DLast("[Thanhtien]","[QrHamD]","[Tenhang]='Viết TL'") 'Xem Tenhang la VietTL
=DateSerial(Year(Date()), Month(Date()), 1)
==DateSerial(Year(Date()),Month(Date())+1,1)
=DateSerial(Year(Date()),Month(Date())+1,0)
=DateSerial(Year(Date()),Month(Date())+2,0)
=DateSerial(Year(Date()),Month(Date())-1,1)
=DateSerial(Year(Date()),Month(Date()),0)
=DateSerial(Year(Date()),1,1)
=DateSerial(Year(Date()), Int((Month(Date())-1)/3)*3+4,0)
=Date() - WeekDay(Date())+1
=Date() - WeekDay(Date())+7
=Date() - WeekDay(Date(),0)+1
=Date() - WeekDay(Date(),0)+7
Noname > 11-02-15, 10:42 AM
chigonvh > 06-10-15, 02:22 PM
tranthanhan1962 > 07-10-15, 06:16 AM
(06-10-15, 02:22 PM)chigonvh Đã viết: Cho em hỏi là sao khi em sử dụng với access 2013 thì viết hàm Dcount cho query hay table như sau thì được, còn khi viết với 2003 thì báo lỗi #error:
=Dcount("*","qrtimdoituong","[ten]="& ten).
Với ten là một text box trên form và dòng lệnh trên em để ở Control source của 1 unbound text.
Mong được sự chỉ giáo.
khanghychu > 21-01-16, 09:06 AM
maidinhdan > 23-09-16, 12:57 PM
(21-01-16, 09:06 AM)khanghychu Đã viết: Nhờ bạn giúp mình chút, cảm ơn trước nhé!
mình làm 1 database về quản lí sức khỏe trong đó có:
- t_nhanvien: Manv là khóa chính
- t_lankham: Malankham là khóa chính
- t_ khambenh: gồm Manv, Malankham là khóa chính và nội dung khám
Mình tạo f_khambenh từ t_khambenh. Mình tạo button_Luu. khi Makhambenh rỗng thì thông báo"Ma kham benh rong, yeu cau nhap ma kham benh" phần này mình làm được.
Lưu ý: 1 nhân viên có thể có nhiều lần khám.
Nhờ bạn giúp mình code: nếu 1 nhân viên trùng Malankham thì sẽ thông báo"Ma kham benh bị trung, xin nhap ma khac". Trân trọng!
if Dcount("[Malankham]", "[t_ khambenh]", "[Malankham]='" + Me.txtMalankhamform + "'") > 0 then
Msgbox "Ma kham benh bị trung, xin nhap ma khac"
end if
phungminhluan > 02-10-17, 01:27 PM
maidinhdan > 02-10-17, 09:20 PM
(02-10-17, 01:27 PM)phungminhluan Đã viết: Mình có câu lệnh thế này nhưng khi chạy báo lỗi mong bạn sửa giúp: Me.HoKhau.Value = DLookup(“DiaDanh”, “tblDiaDanh”, “[ID_DD] =“ & Me.cbChonHK). Với ID_DD là kiểu Text, còn cbChonHK là một combo box lấy giá trị từ trường ID_DD của bảng tblDiaDanh.
Me.HoKhau.Value = DLookup("[DiaDanh]", "[tblDiaDanh]", "[ID_DD]='" & Me.cbChonHK & "'")
thdanh > 22-07-19, 12:46 AM
maidinhdan > 22-07-19, 10:58 AM