Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Đặt hạn sử dụng chương trình
#11
mình muốn tạo một cái thông báo lịch nhắc nhở vào trong acces mà không biết có được không ? bác nào cho ý kiến cái! ( nếu biết thì chỉ mình luôn.) ( chẳng hạn mình muốn đến ngày 30/4/2013 khi mình chay CT access nó sẽ có thông báo "ngày mai hết hạn nộp tiền điện" ... chẳng hạn!)
Chữ ký của kugkuygil Xin chào, mình là kugkuygil, Tham gia http://thuthuataccess.com/forum từ ngày 18-03 -13.
Reply
Những người đã cảm ơn
#12
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ế!
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn kugkuygil
#13
(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ì.
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#14
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!
Chữ ký của kugkuygil Xin chào, mình là kugkuygil, Tham gia http://thuthuataccess.com/forum từ ngày 18-03 -13.
Reply
Những người đã cảm ơn
#15
(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ì.

Mod! Nếu người mới vui lòng đọc kỹ thì sẽ hiểu và làm được thôi. Bợm đã nói thẳng vào vấn đề lắm rồi không phải lòng vòng. Còn nếu muốn nữa thì chỉ có việc là làm dùm luôn cho thôi!
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#16
(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!

Giả sử vầy nhé, bạn có 1 table: tblLich lưu lịch như vầy: maLich(Text), ngayTao(Date), ngayNhacNho(Date), noiDung(Text), daNhacNho (Y/N)

Tạo một function kiểm tra lịch như sau:

Mã PHP:
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 
r("noiDung") & vbCrLf
        s 
"Ban co muon nhac lai cong viec nay khong!?"
        
        
If MsgBox(svbYesNo 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 

Trong sự kiện Open của form chính bạn gọi kt_Lich để nó tiến hành kiểm tra và thông báo nhé!
015
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn kugkuygil
#17
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!)
Chữ ký của kugkuygil Xin chào, mình là kugkuygil, Tham gia http://thuthuataccess.com/forum từ ngày 18-03 -13.
Reply
Những người đã cảm ơn
#18
(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!)

ok, đặt vậy đúng rồi đó bạn, khi đặt public rồi thì dù ở form nào cũng có thể gọi function này được. Thân!
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn kugkuygil
#19
vậy có cách nào để nso tự động kiểm tả được không bạn ? tức là mình bật file access cái alf nó tự động chạy kiểm tra luôn !
Chữ ký của kugkuygil Xin chào, mình là kugkuygil, Tham gia http://thuthuataccess.com/forum từ ngày 18-03 -13.
Reply
Những người đã cảm ơn
#20
có bạn nào không vô giúp mình với!:
có cách nào để funcition trên tự động chạy khi vào không ?
Chữ ký của kugkuygil Xin chào, mình là kugkuygil, Tham gia http://thuthuataccess.com/forum từ ngày 18-03 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách sử dụng ACCDB trong mạng LAN nhiều phiên bản Access. toancvp 9 303 10-05-17, 06:29 PM
Bài mới nhất: toancvp
  [Help] link data access 32bit từ máy sử dụng access 64bit thucgia 1 146 25-03-17, 12:25 PM
Bài mới nhất: cpucloi
  Tạo ứng dụng Access 2003 chạy qua mạng internet tt1212 12 2,544 10-02-17, 10:57 AM
Bài mới nhất: nguyenduykhanhpt
  Không cho phép sử dụng menu trình khi đã đăng nhập vào? kutieu2016 1 173 04-02-17, 03:44 PM
Bài mới nhất: MTNQ
Rainbow ? Thuộc tính Làm mờ giá trị textbox để người dùng không sửa vuga 1 180 04-01-17, 07:13 AM
Bài mới nhất: cpucloi

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ