Tùy chọn
Tổng hợp các hàm ngày tháng ( Vidu minh họa)
- Tổng hợp các hàm ngày tháng ( Vidu minh họa)
-
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
Salomon > 15-07-20, 11:53 PM
(14-07-20, 03:52 PM)ongke0711 Đã viết: Bạn dùng hàm Date() để lấy ngày tháng hiện tại thì phải viết rõ ràng trong query chứ bạn viết [Date] thì nó hiểu là tên Field chứ không phải hàm.
Sửa: Year(Date()), Month(Date())...
Cám ơn ongke0711 nha. Lúc đầu Sal viết trong VB là Year(Date()), Month(Date())... nhưng nó tự động đổi ra vậy mà Sal không để ý. Hihi
-
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
Salomon > 16-07-20, 12:21 AM
Sal đã thử viết lại trong VB
Mã:Private Sub Ngaysinh_AfterUpdate()
THANG = DateDiff("m", DateSerial(Year(Ngaysinh), Month(Ngaysinh), Day(Ngaysinh)), DateSerial(Year(Date()), Month(Date()), Day(Date())))
End Sub
nhưng nó cũng tự động sửa lại thành
Mã:Private Sub Ngaysinh_AfterUpdate()
THANG = DateDiff("m", DateSerial(Year(Ngaysinh), Month(Ngaysinh), Day(Ngaysinh)), DateSerial(Year(Date), Month(Date), Day(Date)))
End Sub
và sau khi nhập Ngaysinh thì bị báo lỗi
![[Hình: 1dcu0eglhuhvee9zg.jpg?size_id=5]](http://www.mediafire.com/convkey/7261/1dcu0eglhuhvee9zg.jpg?size_id=5)
-
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
ongke0711 > 16-07-20, 12:42 AM
- Dùng hàm Date () có ngoặc hay không ngoặc cũng kết quả như nhau. VBA tự sửa hàm Date() thành Date không cũng không sao.
- Lỗi trên phần lớn liên quan đến việc dùng tên tiếng Việt có dấu cho thuộc tính "Name" các đối tượng trên Form, bạn kiểm tra lại toàn bộ Form xem. -
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
Salomon > 16-07-20, 01:15 AM
nó nè. Giúp Sal với
file demo -
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
tranthanhan1962 > 16-07-20, 08:23 AM
OK! Access của bạn bị lỗi rồi. Mình đã test
Chạy với access 2003:
![[Hình: qBGAPGU.png]](https://i.imgur.com/qBGAPGU.png)
Chạy với access 2019-64 bit:
![[Hình: 5zA2b0O.png]](https://i.imgur.com/5zA2b0O.png)
-
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
Salomon > 16-07-20, 09:18 AM
là Sal muống dùng thử hàm DateDiff chứ nếu dùng công thức thông thường tính tháng cũng OK
Mã:ThangTuoi = (Year(Date) - Year([Ngaysinh_txt])) * 12 + Month(Date) - Month([Ngaysinh_txt]) -
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
tranthanhan1962 > 16-07-20, 09:49 AM
Đã xử lý, hoàn toàn ổn:
http://www.mediafire.com/file/v6qilu6wui...i.mdb/file
![[Hình: zdi5AG1.png]](https://i.imgur.com/zdi5AG1.png)
Nếu trên máy bạn không chạy được kiểm tra reference xem có bị MISSING ở chỗ nào không!
reference trên máy mình
![[Hình: 4JxEJxX.png]](https://i.imgur.com/4JxEJxX.png)
-
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
Salomon > 16-07-20, 05:11 PM
(16-07-20, 09:49 AM)tranthanhan1962 Đã viết: Đã xử lý, hoàn toàn ổn:
http://www.mediafire.com/file/v6qilu6wui...i.mdb/file
Cám ơn bác tranthanhan1962. Làm cách này đơn giản và hiệu quả. Công thức kia dài quá.
Sal đã áp dụng như sau
Mã:Private Sub Ngaysinh_txt_AfterUpdate()
Tuoi = DateDiff("m", [Ngaysinh], Date)
End Sub -
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
tranthanhan1962 > 16-07-20, 06:17 PM
Về hàm date(), đôi lúc access nhận diện Date() = Date. Tốt nhất cứ gõ đúng cú pháp Date(). Nếu access tự động chuyển thành Date thì kệ nó, còn nếu gõ Date đôi khi nó không nhận diện đươc hàm, nếu trong VBA thì còn báo lỗi, nếu là expression trong control thì lỗi không biết đường mò -
RE: Tổng hợp các hàm ngày tháng ( Vidu minh họa)
Nikkie > 11-05-21, 03:36 PM
Cho em hỏi có hàm nào lấy ra được giá trị ngày mới nhất (hoặc ngày xa nhất) trong 1 trường thông tin ko ạ?