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

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?

Bạn đã tạo table T2 chưa?

(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

(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

(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?

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.