trungminh > 10-09-16, 11:26 AM
cpucloi > 10-09-16, 12:30 PM
trungminh > 10-09-16, 01:04 PM
huuduy.duy > 10-09-16, 01:54 PM
(10-09-16, 11:26 AM)trungminh Đã viết: Mình có 1 form vào data mình muốn trường xã=mặc định "hải thanh" còn nếu ngaykham=02/08/2016 thì lúc đó trường tháng tự động điền vào là 8 cũng tương tự ngaykham=01/08/2016 đến 08/08/2016 thì tuần điền là 1 và từ 09/08/2016 đến 15/08/2016 thì tự động điền là 2 (có nghĩa tháng nào thì trường tháng điền tháng đó còn tuần chia 4 tuần) khi ghi recode thì động điền vào.
Mới học access nên cũng còm kém mong mọi người giúp cái
Thank all.
Link: http://www.mediafire.com/download/nbx44f...NGMINH.mdb
trungminh > 10-09-16, 02:27 PM
cpucloi > 10-09-16, 03:59 PM
ongke0711 > 10-09-16, 04:01 PM
Public Function fSoTuanTrongThang(dtDate As Date) As Byte
fSoTuanTrongThang = DatePart("ww", dtDate) - DatePart("ww", DateSerial(Year(dtDate), Month(dtDate), 1)) + 1
End Function
trungminh > 10-09-16, 05:02 PM
(10-09-16, 04:01 PM)ongke0711 Đã viết: - Muốn tìm tuần thứ mấy của Năm thì dùng hàm DATEPART(). 1 năm có 53 tuần.
vd: DatePart ("ww",[NGAYKHAM]) --> DatePart ("ww",#01/09/2016#) = 36
- Muốn tìm tuần thứ mấy của Tháng thì dùng hàm tự chế: copy hàm này vào module.
Mã PHP:Public Function fSoTuanTrongThang(dtDate As Date) As Byte
fSoTuanTrongThang = DatePart("ww", dtDate) - DatePart("ww", DateSerial(Year(dtDate), Month(dtDate), 1)) + 1
End Function
Vd: fSoTuanTrongThang([NGAYKHAM]) --> fSoTuanTrongThang(#01/09/2016#) = 1
- Việc lưu thêm trường [Tuần], [Tháng] tôi nghĩ không cần thiết, khỏi tốn bộ nhớ. Khi cần làm báo cáo, hiển thị thì query từ [NGAYKHAM] là được rồi.
ongke0711 > 10-09-16, 05:37 PM
Private Sub cmdluu_Click()
Me.THANG = Month(Me.NGAYKHAM)
Me.TUAN = fSoTuanTrongThang(Me.NGAYKHAM)
End Sub
trungminh > 10-09-16, 09:17 PM
(10-09-16, 05:37 PM)ongke0711 Đã viết: - 2 Textbox trên form thể hiện THANG, TUAN thì cũng có Control Source là THANG, TUAN.
- Vào màn hình VBA code: copy câu lệnh này dùng để gán THANG, TUAN
Mã PHP:Private Sub cmdluu_Click()
Me.THANG = Month(Me.NGAYKHAM)
Me.TUAN = fSoTuanTrongThang(Me.NGAYKHAM)
End Sub