Đánh giá chủ đề:
  • 5 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tính số ngày sử dụng chương trình
#1
Yêu cầu: Mình có một chương trình Access tự viết nhỏ, mình muốn chương trình tính được số ngày sử dụng hoặc số lần đã mở chương trình nhưng không phụ thuộc vào ngày của hệ thống


hungtan Đã viết:bạn tạo 1 table T2, tạo field có tên là userTime, kiểu number

Khi user mở starup form, ở sự kiện open của form, bạn viết 1 đoạn code mở table trên và edit thêm sự kiện như sau:

Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("T2")
With rs
.MoveFirst
.Edit
!UserTime = !UserTime + 1
.Update
End With
rs.Close
End Sub
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng , haquocquan , mrchau911 , kaise86
#2
sao lại bị báo lỗi ở dòng lệnh .MoveFirst bạn hướng dẫn cụ thể hơn được không?
Chữ ký của ndthanh29 Xin chào, mình là ndthanh29, Tham gia http://thuthuataccess.com/forum từ ngày 08-10 -12.
Reply
Những người đã cảm ơn
#3
Bạn đã tạo table T2 chưa?
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(12-10-12, 11:44 AM)ndthanh29 Đã viết: sao lại bị báo lỗi ở dòng lệnh .MoveFirst bạn hướng dẫn cụ thể hơn được không?

Thêm cái này nữa mới đúng và không bị lỗi
If .RecordCount > 0 Then .MoveFirst

Vì khi lần đầu sử dụng thì T2 làm gì đã có Recordset mà MoveFirst?
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 Noname , kaise86
#5
(06-08-10, 12:59 PM)Noname Đã viết: Yêu cầu: Mình có một chương trình Access tự viết nhỏ, mình muốn chương trình tính được số ngày sử dụng hoặc số lần đã mở chương trình nhưng không phụ thuộc vào ngày của hệ thống


hungtan Đã viết:bạn tạo 1 table T2, tạo field có tên là userTime, kiểu number

Khi user mở starup form, ở sự kiện open của form, bạn viết 1 đoạn code mở table trên và edit thêm sự kiện như sau:

Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("T2")
With rs
.MoveFirst
.Edit
!UserTime = !UserTime + 1
.Update
End With
rs.Close
End Sub

Đoạn code này phải chỉnh lý lại như sau mới hoàn chỉnh

Mã PHP:
Private Sub Form_Open(Cancel As Integer)
   
Dim rs As DAO.Recordset
   Set rs 
CurrentDb.OpenRecordset("T2")
   
With rs
      
If .Recordcount 0 Then
         
.Edit
         
!UserTime = !UserTime 1
         
.Update
      
Else
         .
AddNew
         
!UserTime 1
         
.Update
      End 
If
   
End With
   rs
.Close
End Sub 
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
#6
(18-10-12, 04:54 PM)Xuân Thanh Đã viết:
(06-08-10, 12:59 PM)Noname Đã viết: Yêu cầu: Mình có một chương trình Access tự viết nhỏ, mình muốn chương trình tính được số ngày sử dụng hoặc số lần đã mở chương trình nhưng không phụ thuộc vào ngày của hệ thống


hungtan Đã viết:bạn tạo 1 table T2, tạo field có tên là userTime, kiểu number

Khi user mở starup form, ở sự kiện open của form, bạn viết 1 đoạn code mở table trên và edit thêm sự kiện như sau:

Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("T2")
With rs
.MoveFirst
.Edit
!UserTime = !UserTime + 1
.Update
End With
rs.Close
End Sub

Đoạn code này phải chỉnh lý lại như sau mới hoàn chỉnh

Mã PHP:
Private Sub Form_Open(Cancel As Integer)
   
Dim rs As DAO.Recordset
   Set rs 
CurrentDb.OpenRecordset("T2")
   
With rs
      
If .Recordcount 0 Then
         
.Edit
         
!UserTime = !UserTime 1
         
.Update
      
Else
         .
AddNew
         
!UserTime 1
         
.Update
      End 
If
   
End With
   rs
.Close
End Sub 

Cho mình hỏi Bài này là Kiểm tra số lần mở chương trình hay kiểm tra theo ngày??? CHo mình hỏi nếu kiểm tra theo ngày thì phải dùng hàm như thế nào? Vì cách thông thường Thằng sử dụng sẽ thay đổi ngày hệ thống vậy mình đâu có lấy hàm Date() để dùng được? Các bạn có cách nào không?
Chữ ký của quyvt1993 Xin chào, mình là quyvt1993, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -12.
Reply
Những người đã cảm ơn
#7
Cái này mình cũng đang cần, nếu như thay đổi ngày hệ thống thì lại quay về ban đầu.
Chữ ký của ndthanh29 Xin chào, mình là ndthanh29, Tham gia http://thuthuataccess.com/forum từ ngày 08-10 -12.
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
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,189 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,730 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail) Noname 4 4,784 10-04-15, 02:08 PM
Bài mới nhất: m.vuong2211
  Phân quyền sửa Chương trình trong Access Noname 6 5,991 28-11-14, 11:43 AM
Bài mới nhất: nvthanghcm
  [Thủ Thuật] Đưa file icon vào chương trình bằng code nguyentung 9 1,551 01-11-14, 07:52 PM
Bài mới nhất: quanghoasla

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ơ