Noname > 08-10-10, 07:42 PM
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
Dim frm As String
Dim t As Integer
frm = DCount("formname", "Forminfo", "formname='" & Me.Name & "'")
t = Nz(DLookup("times", "Forminfo", "formname='" & Me.Name & "'"), 0)
If frm = 0 Then 'Neu form chua mo lan nao
t = t + 1
DoCmd.RunSQL "Insert into Forminfo(formname,times) values('" & Me.Name & "'," & t & ")"
txtT = t
ElseIf frm > 0 And t < 5 Then 'Cong don so lan mo form
t = t + 1
DoCmd.RunSQL "Update FormInfo set Times =" & t
txtT = t
ElseIf frm > 0 And t = 5 Then ' Neu da mo form duoc 5lan
MsgBox "This form was opened 5 times" & vbCrLf & vbCrLf & "Expired!!!"
Cancel = True
End If
End Sub
haquocquan > 08-10-10, 11:08 PM
no1blue > 10-12-10, 12:24 AM
Noname > 10-12-10, 12:27 AM
hieuvn > 15-03-11, 05:18 PM
Noname > 15-03-11, 10:05 PM
huydungit19 > 22-04-11, 12:23 PM
vulhu06 > 17-04-14, 08:31 AM
(22-04-11, 12:23 PM)huydungit19 Đã viết: Chào bạn Noname
cảm ơn bạn đã có gợi ý rất hay nên mình đã làm được rồi, nhưng mình hỏi bây giờ thay vì mình giới hạn bằng số lần mở form bằng đến ngày nào đó thì hết không được sử dụng nữa thì làm thế nào bạn hướng dẫn cho mình với, bạn cho mình code luôn nhé.
Cảm own Noname Nhiều
Chúc bạn luôn vui vẻ và hạnh phúc
trunghieu > 17-04-14, 04:28 PM
vulhu06 > 18-04-14, 10:53 AM
(17-04-14, 04:28 PM)trunghieu Đã viết: Nếu hẹn bằng ngày thì khi người khác chỉnh ngày hệ thống hoặc chỉnh thông tin ở table forminfo thì xem như vô hiệu rồi.
Nếu hẹn bằng số lần mở thì mờ table forminfo chỉnh lại số lần mở về 0 hoặc thậm chí về -1000 thì mở thoải mái luôn.hihi
Theo tôi lại có cách khác nữa, giả sử bạn có table chính để lưu dữ liệu cần thiết, bạn dùng hàm Dcount để đếm cái record của table này, và chỉ giới hạn cho người dùng lưu vào 1 số lượng nhất định. Quá số lượng đó thì form nhập, login hoặc form quan trọng nào đó không mở lên được thì xem như xong. Khi đó, nếu họ muốn mở vẫn mở thoải mái, nhưng mà xài thì không được do bị giới hạn về số lượng record phải nhập vào.
Không biết cách này có nhược điểm nào không nữa.