Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Đặt hạn sử dụng chương trình
#1
Chào các bạn.
Mình có biết một chương trình nhỏ bằng Access và đặt hạn sử dụng chương tình theo cách trong file đính kèm.
Link : https://docs.google.com/file/d/0B7Y3jP6g...sp=sharing
Nhưng hạn chế của cách làm này là người dùng có thể tự vào Table tblThoiGian để sửa lại ngày sử dụng.
Nhờ các bạn hướng dẫn mình viết đoạn code VBA chèn luôn ngày sử dụng vào trong From mà không cần lấy ngày sử dụng từ Table tblThoiGian.

Cảm ơn.
Chữ ký của sorryikillyo Xin chào, mình là sorryikillyo, Tham gia http://thuthuataccess.com/forum từ ngày 27-02 -13.
Reply
Những người đã cảm ơn
#2
1/ Trong form không bao giờ lưu trữ dữ liệu
2/ Đặt hạn sử dụng ngay trong modul rồi chuyển sang file thưc thi(.mde)
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn sorryikillyo
#3
Cảm ơn Xuân Thanh đã ghé xem.
Bạn có thể hướng dẫn mình cách viết một Module như vậy k? Mình cũng mới tìm hiểu về Access nên chưa biết nhiều về VBA và Module.
Chữ ký của sorryikillyo Xin chào, mình là sorryikillyo, Tham gia http://thuthuataccess.com/forum từ ngày 27-02 -13.
Reply
Những người đã cảm ơn
#4
Bạn nào biết chỉ giúp mình với!!!024
Chữ ký của sorryikillyo Xin chào, mình là sorryikillyo, Tham gia http://thuthuataccess.com/forum từ ngày 27-02 -13.
Reply
Những người đã cảm ơn
#5
Bạn có thể đặt trong mainform, đặt ở sự kiện on open hoặc on load:
Mã:
if Date()> Ngày bạn muốn Then
msgbox "Het han"
docmd.Quit
End if
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn sorryikillyo
#6
Bạn ơi, mình đã viết code như thế này:
Mã PHP:
Private Sub Form_Load()
If 
Date #3/20/2013# Then
    
MsgBox "Het han."vbCriticalMe.Caption
    DoCmd
.Quit
End 
If 

Mình gõ ngày là 20/03/2013 nhưng sau đó nó tự sửa lại là 3/20/2013. Mình đã định dạng ngày tháng trong Control Panel là dd/mm/yyyy rồi.
Bạn hướng dẫn mình sửa lại đoạn code để khi khi gõ ngày tháng nó không tự đổi lại nha. Cảm ơn bạn.
Chữ ký của sorryikillyo Xin chào, mình là sorryikillyo, Tham gia http://thuthuataccess.com/forum từ ngày 27-02 -13.
Reply
Những người đã cảm ơn
#7
haquocquan ơi, giúp mình với.
Chữ ký của sorryikillyo Xin chào, mình là sorryikillyo, Tham gia http://thuthuataccess.com/forum từ ngày 27-02 -13.
Reply
Những người đã cảm ơn
#8
Để đặt thời gian cho người khác sử dụng có 1 cách đơn giản bạn làm như sau: Tạo một nút lệnh bất kỳ (nút thêm mới chẳng hạn) bấm phải chuột chọn "Build Event " sau đó bạn Paste đoạn mã sau vào giữa đúng vị trí con trỏ . CHúc thành công

If Now > #3/22/2013# Then

MsgBox "Ban dang dung phan mem khong ban quyen" & vbCrLf & vbCrLf & "Hãy liên hê: Nguyễn Tất Thắng"
DoCmd.Quit

End If
Chữ ký của wintq Đang có mấy chương trình đ.ồ á.n tốt nghiệp trước viết cho Sinh viên về: QL nhân sự, Thư viện, QL Báo, QL Bán hàng,......ai có nhu cầu liên hệ: 0904 506 777.
ღღღღღTài sản của wintq (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
(16-03-13, 08:41 PM)haquocquan Đã viết: Bạn có thể đặt trong mainform, đặt ở sự kiện on open hoặc on load:
Mã:
if Date()> Ngày bạn muốn Then
msgbox "Het han"
docmd.Quit
End if

Làm như thế này người ta chỉnh lùi ngày hệ thống là xem như có thể sử dụng được.
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
#10
Cảm ơn các bạn, mình làm được rồi.
Chữ ký của sorryikillyo Xin chào, mình là sorryikillyo, Tham gia http://thuthuataccess.com/forum từ ngày 27-02 -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
  [Help] link data access 32bit từ máy sử dụng access 64bit thucgia 1 83 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,327 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 125 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 118 04-01-17, 07:13 AM
Bài mới nhất: cpucloi
Question Khắc phục lỗi khi sử dụng hàm dcount và record không được thêm vào vuga 2 141 25-12-16, 08:39 PM
Bài mới nhất: vuga

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ơ