Access DEMO - Limit Records

[tomcat21]

I distribute an Access Demo and I want to limit a user to no more than fifty (50) record entries in each form.
I have tried the below code that was supplied to me, but I can not get it to work. I am NOT good with code. I would very much appreciate an EASY way to do this.


Public Sub CountRec()
Dim rst As Recordset
Dim db As Database
Dim rec As Integer

Set db = CurrentDb

Set rst = db.OpenRecordset("Select * from [MyTableName]")
rst.MoveLast
rec = rst.RecordCount
If rec > 50 Then
MsgBox "You have exceded the number of entries in this demo_ "
Edition. Please purchse a registered copy."
DoCmd.Close
Exit Sub
End If
rec = 50 - rec
MsgBox "You may enter another " & rec & " records in this_ "
trial edition."
End Sub

Thomas Bailey

http://www.reportcop.com

tomcat@reportcop.com

 

[PHV]

Replace this:
MsgBox "You have exceded the number of entries in this demo_ "
Edition. Please purchse a registered copy."
By this:
MsgBox "You have exceded the number of entries in this demo[highlight]" _
& "[/highlight] Edition. Please purchse a registered copy."
And similarly:
MsgBox "You may enter another " & rec & " records in this[highlight]" _
& "[/highlight] trial edition."

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244