Tùy chọn
Tạo thông báo sắp đến niên hạn trong access
- Tạo thông báo sắp đến niên hạn trong access
-
Tạo thông báo sắp đến niên hạn trong access
kaivn > 05-04-18, 05:11 PM
Chào mọi người, mình mới tập tành làm VBA, giờ mình đang làm cái phần mềm quản lý máy tính, trong đó có mục máy sử dụng 5 năm thì phải mang đi bảo dưỡng. Mình đang vướng mắc chỗ này là làm sao để tạo ra được 1 forrm hoặc subform sẽ tự động hiển thị thông báo những máy tính trong khoảng từ 3 tháng trước cho tới niên hạn.
Ví dụ máy tính sử dụng từ ngày 5/4/2018 thì ngày 15/1/2023 sẽ hiển thị thông báo máy sắp đến niên hạn bảo dưỡng cho đến hết ngày 5/4/2018 thì thôi.
Rất cảm ơn ạ
-
RE: Tạo thông báo sắp đến niên hạn trong access
tranthanhan1962 > 05-04-18, 07:54 PM
Ngày bảo dưỡng = Ngày đưa vào sử dụng + 5 năm
=> Ngày bảo dưỡng = DateSerial(Year([Ngày đưa vào sử dụng])+5,Month([Ngày đưa vào sử dụng]),Day([Ngày đưa vào sử dụng]))
Ngày báo đến niên hạn bảo dưỡng = Ngày bảo dưỡng - 3 tháng
=> Ngày báo đến niên hạn bảo dưỡng = DateSerial(Year([Ngày bảo dưỡng]),Month([Ngày bảo dưỡng])-3,Day([Ngày bảo dưỡng]))
hoặc
=> Ngày báo đến niên hạn bảo dưỡng = DateSerial(Year([Ngày đưa vào sử dụng])+5,Month([Ngày đưa vào sử dụng])-3,Day([Ngày đưa vào sử dụng]))
Còn vấn đề thông báo thì bằng msgbox hoặc đổi màu textbox thì tùy cách viết code của bạn. -
RE: Tạo thông báo sắp đến niên hạn trong access
DooHoaangPhuuc > 05-04-18, 08:29 PM
Chào Anh Kavin,
Em cũng đã làm qua loại Form này, có chút góp ý Anh xem hợp thì áp dụng.
+ Tạo Table_Baoduong : có các Field (ID_Maytinh, …………. , NgayBaoduong, NgayBaoduongtiep)
- NgayBaoduong : bảo dưỡng lần đầu, hay ngày đưa vào sử dụng (kiểu Date)
- NgayBaoduongtiep : ngày bảo dưỡng kế tiếp (Kiểu Date)
+ Tạo Query_Baoduong : các Field lấy nguồn từ Table_baoduong, ngoài ra còn có 2 Field
- HanBaoduong : Date()-[NgayBaoduongtiep] (lọc Criteria : <30 _ cho thông báo trước 30 ngày)
- ThongBao: IIf([HanBaoduong]>=30,"Máy tính cần bảo dưỡng định kỳ …..","")
+ Tạo Form_Thongbaobaoduong
Do cần quản lý danh sách máy tính đến hạn bảo dưỡng nên có thể có một số máy cần bảo dưỡng khi gần đến hạn. Nên Form_Thongbaobaoduong thường là Continuous Form, và trong Tab Other (PropertySheet của Form, chọn mục pop up là yes)
Nguồn dữ liệu cho Form_Thongbaobaoduong lấy từ Query_Baoduong.
+ Chú ý phần viết code cho Form_Main (Form chính):
Private Sub Form_Current()
If DCount("ID_Maytinh", "Q_Baoduong") > 0 Then
DoCmd.OpenForm "Form_HanBaoduong"
Me.Visible = False
Else
End If
End Sub
Như vậy sau khi bảo dưỡng cho máy nào hoặc một số máy nào chỉ cần query lọc lại danh sách đến hạn trong table_baoduong, và thay đổi các ngày bảo dưỡng ban đầu và ngày bảo dưỡng kế tiếp để làm cơ sở cho lần bảo dưỡng tiếp theo nữa.
Anh xem tạo thử như trên chắc cũng không khó.
DooHoaangPhuuc -
RE: Tạo thông báo sắp đến niên hạn trong access
kaivn > 06-04-18, 02:59 PM
hehe cám ơn bạn, để mình nghiên cứu -
RE: Tạo thông báo sắp đến niên hạn trong access
kaivn > 09-04-18, 10:38 AM
(05-04-18, 08:29 PM)DooHoaangPhuuc Đã viết: Chào Anh Kavin,
Em cũng đã làm qua loại Form này, có chút góp ý Anh xem hợp thì áp dụng.
+ Tạo Table_Baoduong : có các Field (ID_Maytinh, …………. , NgayBaoduong, NgayBaoduongtiep)
- NgayBaoduong : bảo dưỡng lần đầu, hay ngày đưa vào sử dụng (kiểu Date)
- NgayBaoduongtiep : ngày bảo dưỡng kế tiếp (Kiểu Date)
+ Tạo Query_Baoduong : các Field lấy nguồn từ Table_baoduong, ngoài ra còn có 2 Field
- HanBaoduong : Date()-[NgayBaoduongtiep] (lọc Criteria : <30 _ cho thông báo trước 30 ngày)
- ThongBao: IIf([HanBaoduong]>=30,"Máy tính cần bảo dưỡng định kỳ …..","")
+ Tạo Form_Thongbaobaoduong
Do cần quản lý danh sách máy tính đến hạn bảo dưỡng nên có thể có một số máy cần bảo dưỡng khi gần đến hạn. Nên Form_Thongbaobaoduong thường là Continuous Form, và trong Tab Other (PropertySheet của Form, chọn mục pop up là yes)
Nguồn dữ liệu cho Form_Thongbaobaoduong lấy từ Query_Baoduong.
+ Chú ý phần viết code cho Form_Main (Form chính):
Private Sub Form_Current()
If DCount("ID_Maytinh", "Q_Baoduong") > 0 Then
DoCmd.OpenForm "Form_HanBaoduong"
Me.Visible = False
Else
End If
End Sub
Như vậy sau khi bảo dưỡng cho máy nào hoặc một số máy nào chỉ cần query lọc lại danh sách đến hạn trong table_baoduong, và thay đổi các ngày bảo dưỡng ban đầu và ngày bảo dưỡng kế tiếp để làm cơ sở cho lần bảo dưỡng tiếp theo nữa.
Anh xem tạo thử như trên chắc cũng không khó.
DooHoaangPhuuc
Bác ơi, như vậy là mình vẫn phải nhập trước ngày bảo dưỡng tiếp. Vì ngày bảo dưỡng tiếp chưa xác định được, có thể quá hạn hoặc chưa đến hạn, mục đích chỉ là hiện thông báo đó, có thể nó hiện thông báo đến khi nào bảo dưỡng thì thôi -
RE: Tạo thông báo sắp đến niên hạn trong access
kaivn > 09-04-18, 10:47 AM
(05-04-18, 07:54 PM)tranthanhan1962 Đã viết: Ngày bảo dưỡng = Ngày đưa vào sử dụng + 5 năm
=> Ngày bảo dưỡng = DateSerial(Year([Ngày đưa vào sử dụng])+5,Month([Ngày đưa vào sử dụng]),Day([Ngày đưa vào sử dụng]))
Ngày báo đến niên hạn bảo dưỡng = Ngày bảo dưỡng - 3 tháng
=> Ngày báo đến niên hạn bảo dưỡng = DateSerial(Year([Ngày bảo dưỡng]),Month([Ngày bảo dưỡng])-3,Day([Ngày bảo dưỡng]))
hoặc
=> Ngày báo đến niên hạn bảo dưỡng = DateSerial(Year([Ngày đưa vào sử dụng])+5,Month([Ngày đưa vào sử dụng])-3,Day([Ngày đưa vào sử dụng]))
Còn vấn đề thông báo thì bằng msgbox hoặc đổi màu textbox thì tùy cách viết code của bạn.
Bác ơi, e làm một cái table bảo dưỡng có ngày bảo dưỡng và ngày bảo dưỡng tiếp ( trong đó thì ngày bảo dưỡng và ngày bảo dưỡng tiếp nhập vào là ngày thực hiện bảo dưỡng thực ) còn đâu yêu cầu khoảng 5 năm bảo dưỡng 1 lần thì chỉ mang tính tương đối, ko nhất thiết phải chuẩn.
Như vậy sẽ tạo cái query từ bảng ban đầu và thêm trường NgayBaoDuong và trường ThongBao, e đang bị lẫn lộn giữa mấy mấy cái này :/ -
RE: Tạo thông báo sắp đến niên hạn trong access
tranthanhan1962 > 09-04-18, 11:47 AM
Có gì quan trọng quá đâu. Tạo các trường: Ngày đưa vào sử dụng, ngày bảo dưỡng, ngày bảo dưỡng kế tiếp. Tạo event update cho Ngày đưa vào sử dụng và ngày bảo dưỡng. Cứ nhập ngày đưa vào sử dụng và ngày bảo dưỡng sẽ ra ngày bảo dưỡng kế tiếp, cần gì làm query. -
RE: Tạo thông báo sắp đến niên hạn trong access
DooHoaangPhuuc > 12-04-18, 12:52 AM
Chào Anh Kaivn
Như Anh gởi tin nhắn hỏi, em có tạo demo gởi Anh tham khảo theo link dưới
http://www.mediafire.com/file/bjghe1n7ah7yqo3/Bao%20duong.accdb
DooHoaangPhuuc -
RE: Tạo thông báo sắp đến niên hạn trong access
kaivn > 12-04-18, 10:06 AM
(12-04-18, 12:52 AM)DooHoaangPhuuc Đã viết: Chào Anh Kaivn
Như Anh gởi tin nhắn hỏi, em có tạo demo gởi Anh tham khảo theo link dưới
http://www.mediafire.com/file/bjghe1n7ah7yqo3/Bao%20duong.accdb
DooHoaangPhuuc
cám ơn bạn nhiều <3 -
RE: Tạo thông báo sắp đến niên hạn trong access
kaivn > 23-04-18, 11:03 AM
(12-04-18, 12:52 AM)DooHoaangPhuuc Đã viết: Chào Anh Kaivn
Như Anh gởi tin nhắn hỏi, em có tạo demo gởi Anh tham khảo theo link dưới
http://www.mediafire.com/file/bjghe1n7ah7yqo3/Bao%20duong.accdb
DooHoaangPhuuc
bạn ơi mình thấy có 1 lỗi nhỏ là khi show những thằng cần bảo dưỡng trong vòng 1 tháng tới thì nó cũng show những thằng đã bảo dưỡng 1 tháng trước. Chẳng hạn hôm nay là 19/4 thì sẽ hiện những thằng trong khoảng từ hôm nay đến 19/5 cần bảo dưỡng và những thằng từ 19/3 đến hôm nay đã bảo dưỡng rồi :/