Restricting records in the Tables in a Set

[Ted Giles]

Not sure if this is possible.
I have a Set displayed on a Form with;
Parent
..Child ( a Browse)
....Grandchild (a Browse)

I want to place a restriction on the number of records allowed in each Table - shown in the two Browse objects.
Parent = 2
..Child = 5
....Grandchild = 10

At the Parent level, I get the UI Message to fire and take the user back to the menu if a 3rd record is entered.
At the Child and Grandchild level, if the record number is exceeded, the UI Message doesn't fire, but the user is taken back to the menu if the number of records is exceeded.

Question. How to fire the UI message on a Child/Grandchild record number exceeded? The following is in the Field Rules for each table.

recs = this.records_get() [It might need to refer to the separate tables?]
if recs >= 2
ui_msg_box("You have reached the record limit","You cannot add any more records.")
cancel()
end if

[G Gabriel]

Re: Restricting records in the Tables in a Set

At the form level, use dbcount() or tablecount() or anything similar to trigger the message.
example:

if browse_name.mode_get()=2
if dbcount(........)=2
..msg()
end if
end if

[Ronald Anusiewicz]

Re: Restricting records in the Tables in a Set

I'm not sure if you need to use a pointer. The following is from the runtime documentation. Seems that as your code is working for the parent, then it should work for the child/grandchild.

You may want to create demo versions of your application .........To do this, you would attach a script to each table�s CanSaveRecord event, which is defined in Field Rules. The following script shows how to restrict the user to just 50 records in a table:

T=table.current()
Records = t.records_get()
If Records > 50 then
Cancel()
End If

[Ted Giles]

Re: Restricting records in the Tables in a Set

@ Ron.
That won't work in a Set. Fine for individual Tables, but not in a Set.
@ Gabe.
This allows the users to add data directly into the Table if they can get at it. Yes, I know I can do all the CP hide and such, but I would like to be absolutely sure.

I was hoping to use the Field Rules, so I will investigate more.

Edit:
This works in a Set.

recs1 = TABLECOUNT("NAME.DBF", ".T.")
recs2 = TABLECOUNT("NAME2.DBF",".T.")
if recs1 >= 5
ui_msg_box("You have reached the record limit for Name","You cannot add any more records.")
cancel()
elseif recs2 >= 5
ui_msg_box("You have reached the record limit for Name 2","You cannot add any more records.")
cancel()
end if

[Tom Cone Jr]

Re: Restricting records in the Tables in a Set

Ted,

The onArrive event for each browse could be used to compute and display the current "record count".
The onSave event for each browse could be used to compute and display the current "record count".
The CanSave event for each browse could be used to compute the count, and "cancel" with a message if too many.

An alternative would use the CanEnterRecord event in field rules to compute the count and cancel with message.

[Ted Giles]

Re: Restricting records in the Tables in a Set

Thanks Tom, it was the Set management I was struggling with.
The answer (above) allows different numbers of records within the Set, so I could have 10 Parents, 20, Children, and make it stop at 50 Grandchildren now.
Only needs to be in one place - well until I do more testing that is! LOL!

[Tom Cone Jr]

Re: Restricting records in the Tables in a Set

Ted,

In many cases one would need to consider the difference in a limit on the number of "linked" records and a limit on the number of all records, whether linked or not...

-- tom

[Ted Giles]

Re: Restricting records in the Tables in a Set

True. I put the code in each table.
I really want someone to be restricted to 2 Parents, up to 5 Children, and 10 Grandchildren for a DEMO.
If they have 1 Parent and 1 child but 11 Grandchildren, they will have busted it.

[G Gabriel]

Re: Restricting records in the Tables in a Set

If you want to use the Field Rules, in the Record Events, in the OnEnterRecord, do something like this:

dim shared x as C
x=child_table_name->linking_field
lst=table.external_record_content_get(..... , "linking_field=var->x")
cnt=*count(lst)
if cnt>2
...msg()
cancel()
end if

Incidentally, how do users get access to the table? Are you not able to hide the control panel and encode the tables..etc?

[Ted Giles]

Re: Restricting records in the Tables in a Set

I am dealing with AS professionals!
Thanks G, I'll be trying that later. Really appreciate the code.
My next door neighbour had Spitfire Mk9 and is buzzing the house!