kugkuygil > 01-04-13, 11:35 PM
bomnhauag > 02-04-13, 09:38 AM
domfootwear > 02-04-13, 10:32 AM
(02-04-13, 09:38 AM)bomnhauag Đã viết: bạn tạo 1 function kt_Lich(), trong đó bạn kiểm tra xem có lịch nào tới hạn chưa, nếu có thì hiện msgbox thông báo cho người dùng biết (hỏi xem có báo lại hay kô?), nếu không có lịch nào "tới số" thì thoát function.
nếu lịch hẹn tính đến ngày thôi thì lúc form chính mở lên bạn gọi kt_Lich cho nó kiểm tra. Còn nếu tính tới giờ thì đặt nó vào sự kiện OnTimer của form chính cho nó "cứ 1 chút thì kiểm tra".
Cơ bản là thế!
kugkuygil > 03-04-13, 12:43 AM
bomnhauag > 03-04-13, 02:52 PM
(02-04-13, 10:32 AM)domfootwear Đã viết:(02-04-13, 09:38 AM)bomnhauag Đã viết: bạn tạo 1 function kt_Lich(), trong đó bạn kiểm tra xem có lịch nào tới hạn chưa, nếu có thì hiện msgbox thông báo cho người dùng biết (hỏi xem có báo lại hay kô?), nếu không có lịch nào "tới số" thì thoát function.
nếu lịch hẹn tính đến ngày thôi thì lúc form chính mở lên bạn gọi kt_Lich cho nó kiểm tra. Còn nếu tính tới giờ thì đặt nó vào sự kiện OnTimer của form chính cho nó "cứ 1 chút thì kiểm tra".
Cơ bản là thế!
Người ta là người mới, bạn giúp được thì giúp, nói lòng vòng chẳng giải quyết được gì.
bomnhauag > 03-04-13, 03:08 PM
(03-04-13, 12:43 AM)kugkuygil Đã viết: bạn làm ơn chỉ rõ hơn một chút được không ? mình chỉ cần tính đến ngày khi mở ra nó kiểm tra xem có đánh dấu nào không thôi! không thì cho mình xin link một bài nói về vụ này!
Public Function kt_Lich()
Dim d As Date
Dim r As DAO.Recordset
Dim s As String
Set r = CurrentDb.OpenRecordset("SELECT * FROM tbl_Lich WHERE ngayNhacNho=date() AND daNhacNho=False; ")
If r.EOF And r.BOF Then 'truong hop hom nay ko co lich nhac nho
r.Close
Set r = Nothing
Exit Function
End If
While Not r.EOF 'Duyet wa tung cong viec can nhac nho va thong bao
s = "Cong viec hom nay ban can lam:" & vbCrLf
s = s & r("noiDung") & vbCrLf
s = s & "Ban co muon nhac lai cong viec nay khong!?"
If MsgBox(s, vbYesNo + vbInformation, "Nhac nho...") = vbNo Then 'Neu user khong muon nhac lai thi bo wa
CurrentDb.Execute "UPDATE tbl_Lich SET daNhacNho=True WHERE maLich='" & r("maLich") & "'; "
End If
r.MoveNext
Wend
r.Close
Set r = Nothing
End Function
kugkuygil > 03-04-13, 08:30 PM
bomnhauag > 03-04-13, 08:38 PM
(03-04-13, 08:30 PM)kugkuygil Đã viết: mình hơi gà bạn thông cảm nhé! theo mình hiểu function thì là ta vào modules tạo 1 file mới rồi dán code của bạn vào đúng không:
http://www.fshare.vn/file/7VZAAR4GNS/
bạn xem qau ví dụ trên hộ mình mà nếu có ebook về chương anỳ thì làm ơn cho mình xin! ( trình access học trong sách giáo khoa cấp 3 thôi!)
kugkuygil > 03-04-13, 10:29 PM
kugkuygil > 05-04-13, 10:23 AM