Limiting a table to one record.

[preston2]

I have a table and a associated form for storing the users company information. The application needs to only allow one company to be setup and not allow anymore records to be created.

I have tried this and it does not work that good.

t=table.current()
if t.records_get() > 1 then
ui_msg_box("Limit","You can only setup one company.")
cancel()
end if

No mater which event I tie it to or even if I tie it to every possible event it still opens a blank form if you tab past all of the fields on the form, which also happens to be all of the fields in the table. Maybe there is a way to make it so when you reach the end of the tab order it just starts back at tab stop one again but I have not found it in any searching I have done.

Also, while I am on the subject. How do you get the record count back to the starting point? I do not know if this would show up when I distribute the app with the runtime but it will be annoying as heck if the end user has to see record numbers way up because they where there from all my testing.
recordnumber.png

[Corelius]

Re: Limiting a table to one record.

Hi,

there should be more than one solution, that's how I probaly try to get. Have a look to field rules, events, record event, CanEnterRecord

cancel()

msgbox("No more records, used field rules, record events CanEnterRecord")

My company changed the location several times, so my setup database include more than one record. In this way I could recall old invoices with old sender information in one formular / report.

Cornelius

[Keith Hubert]

Re: Limiting a table to one record.

Hi Preston,

I have a Toolbar on my form with this code

topparent.restrict_navigation=.f.topparent.restrict_navigation=.f..AND..NOT.('E'$topparent.command('?Record_cancel'))

This even stops a new record from being started with the Page Down key.

The other way to do this is to make sure you dont have a Menu or Toolbar and the form is opened Modal. Make sure you have a close button on it!!!

[preston2]

Re: Limiting a table to one record.

Hi Preston,

I have a Toolbar on my form with this code

topparent.restrict_navigation=.f.topparent.restrict_navigation=.f..AND..NOT.('E'$topparent.command('?Record_cancel'))

This even stops a new record from being started with the Page Down key.

The other way to do this is to make sure you dont have a Menu or Toolbar and the form is opened Modal. Make sure you have a close button on it!!!

Did not work.

Created a custom toolbar and added that code into it. I guess that is not how I was supposed to do it.

[Keith Hubert]

Re: Limiting a table to one record.

Sorry, I forgot to mention, this is to go on the navigation buttons on the Toolbar.

[G Gabriel]

Re: Limiting a table to one record.

First: Your script says
if t.records_get() > 1 then

Should be:
if t.records_get() = 1

Then it says:
cancel()

What are you cancelling?
Should say:
end

Not to mention, you are using table.current() meaning you already opened the table. Do you want to open the table in the first place? if it has one record?

I am not understanding the logic though. Are you planning to have one table for each company?

[Al Buchholz]

Re: Limiting a table to one record.

Also, while I am on the subject. How do you get the record count back to the starting point?

Pack the table.

Also, I use Cornelius's solution when I need to restrict entry.

[preston2]

Re: Limiting a table to one record.

First: Your script says
if t.records_get() > 1 then

Should be:
if t.records_get() = 1

Then it says:
cancel()

What are you cancelling?
Should say:
end

Not to mention, you are using table.current() meaning you already opened the table. Do you want to open the table in the first place? if it has one record?

I am not understanding the logic though. Are you planning to have one table for each company?

Well I got that code example from another thread that I cannot find again right now but it had a similar code posted by an Alpha employee, which did not work, and the one similar to the one I posted above and I understand that came from the runtime docs. Neither of those worked.

Keith's code example still does not work even placing it in the navigation buttons of a custom toolbar.

The table is to contain the company information of the company using the app. So yes they need to be able to access the table to put their company info in when they first setup the app for their company and they may need to access it for editing if they ever move locations, change phone numbers or anything like that. This company information will be used on report headers such as quotes and invoices. I do not want to hard code company info into the app for every shop that purchases the app so I need to find a fool proof way to limiting them to the one company record. All I know at this point is while trying all the suggested solutions it will still open a new record if you tab past the last tab stop on the form.

[DaveM]

Re: Limiting a table to one record.

Maybe my solution is not so good, but I use the restrict on the form so nothing can be added, eliminate all toolbars and menus - create my own as needed, make sure there is one empty record that the assigned user can modify. That should then be the only record ever entered.
As an aside, I delete anything in the table other than rec-no one each time the form is closed.

[preston2]

Re: Limiting a table to one record.

Hi,

there should be more than one solution, that's how I probaly try to get. Have a look to field rules, events, record event, CanEnterRecord

cancel()

msgbox("No more records, used field rules, record events CanEnterRecord")

My company changed the location several times, so my setup database include more than one record. In this way I could recall old invoices with old sender information in one formular / report.

Cornelius

Ok, I take back that nothing has worked. This method from Cornelius work perfectly. I have the first record created with dummy info that the end user will be able to edit and replace with their own company info. I then placed the code Cornelius posted and it allows you to edit the first record but will not let you even get a new record screen. Love it... Thanks.

Also the "Pack" table worked for my other part of the question. Again, thanks.

Learn something new everyday.

[G Gabriel]

Re: Limiting a table to one record.

OK..
In the field rules, go to the event tab, choose records event, choose "CanEnterRecord", put this script:

t=table.current()
x=t.records_get()
if x>=1
cancel()
end i

Save.

[Jerry Hartness]

Re: Limiting a table to one record.

Dave Mason's reply is the simpliest one. Restrict everything except the "change" as the one record may need to be changed or edited. remove all toolbars/menus. I have a note at the bottom of my "Location" form stating this form cannot be added to or deleted, only edited.

Jerry