Is there a way to test if a table/query is in edit mode?  ie.  if a user clicks a button, I want a function to run that checks if a table is in edit mode...if it is then a message
box appears warnining the user...if not then the user can continute.

Thanks

NM wrote:

> Is there a way to test if a table/query is in edit mode?  ie.  if a user clicks a button, I want a function to run that checks if a table is in edit mode...if it is then a message
> box appears warnining the user...if not then the user can continute.
>
> Thanks
>

if table1.state in [dsEdit, dsInsert] then
  Ok := mrYes = MessageDlg('Warning-You are in edit mode'+#13#10+'Do
you want to continue?', mtWarning, [mbYes,mbNo], 0)
else
  Ok := true;

if Ok then
  begin
    //Continue
  end;


Dave

<< Is there a way to test if a table/query is in edit mode?  ie.  if a user
clicks a button, I want a function to run that checks if a table is in edit
mode...if it is then a message box appears warnining the user...if not then
the user can continute. >>

if (MyDBISAMTable.State in [dsInsert,dsEdit]) then

--
Tim Young
Elevate Software
www.elevatesoft.com

Tim Young [Elevate Software] wrote:
> << Is there a way to test if a table/query is in edit mode?  ie.  if a user
> clicks a button, I want a function to run that checks if a table is in edit
> mode...if it is then a message box appears warnining the user...if not then
> the user can continute. >>
>
> if (MyDBISAMTable.State in [dsInsert,dsEdit]) then
>

If you are wanting to warn a user that another user is editing that
record then you will want a different approach. If it is single user,
then this will work. I wasn't totally sure which was the case from your
post.

Jim

"Jim Margarit" <mail@drmargarit.com> wrote in message
news:8A92EE9C-670F-49E8-B222-86508933D626@news.elevatesoft.com...
>
> If you are wanting to warn a user that another user is editing that record
> then you will want a different approach. If it is single user, then this
> will work.

Even then, a single user could have the table in edit mode via another
tTable. You need to use pessimistic lock mode, though of course that has
other issues involved.

Robert

I wasn't totally sure which was the case from your
> post.
>
> Jim

Jim Margarit <mail@drmargarit.com> wrote:

Tim Young [Elevate Software] wrote:
> << Is there a way to test if a table/query is in edit mode?  ie.  if a user
> clicks a button, I want a function to run that checks if a table is in edit
> mode...if it is then a message box appears warnining the user...if not then
> the user can continute. >>
>
> if (MyDBISAMTable.State in [dsInsert,dsEdit]) then
>

If you are wanting to warn a user that another user is editing that
record then you will want a different approach. If it is single user,
then this will work. I wasn't totally sure which was the case from your
post.

Jim


Yes, I want to warn a user that another user is editing the record...so how would I go about doing this then?

Thanks

<< Yes, I want to warn a user that another user is editing the record...so
how would I go about doing this then? >>

See here in the manual:

http://www.elevatesoft.com/dbisam4d7_updating_tables_query_results.htm

under "Editing an Existing Record".

--
Tim Young
Elevate Software
www.elevatesoft.com

"Tim Young [Elevate Software]" <timyoung@elevatesoft.com> wrote:

> See here in the manual:
>
> http://www.elevatesoft.com/dbisam4d7_updating_tables_query_results.htm
>
>under "Editing an Existing Record".


Yes this looks like it is what I want.  However, when I try to implement the following code I get an 'undeclared identifier: DBISAM_RECLOCKFAILED' error:


procedure TMyForm.MyTableEditError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  Action:=daAbort;
  if (E is EDBISAMEngineError) then
     begin
     if (EDBISAMEngineError(E).ErrorCode=DBISAM_RECLOCKFAILED) then
        begin
        if MessageDlg('The record you are trying to edit '+
                      'is currently locked, do you want to '+
                      'try to edit this record again?',
                       mtWarning,[mbYes,mbNo],0)=mrYes then
           Action:=daRetry;
        end
     else if (EDBISAMEngineError(E).ErrorCode=DBISAM_KEYORRECDELETED) then
        begin
        MessageDlg('The record you are trying to edit '+
                   'has been modified since it was last '+
                   'retrieved, the record will now be '+
                   'refreshed',mtWarning,[mbOk],0);
        DataSet.Refresh;
        Action:=daRetry;
        end
     else
        MessageDlg(E.Message,mtError,[mbOK],0);
     end
  else
     MessageDlg(E.Message,mtError,[mbOK],0);
end;

<< Yes this looks like it is what I want.  However, when I try to implement
the following code I get an 'undeclared identifier: DBISAM_RECLOCKFAILED'
error: >>

Be sure to include the dbisamcn unit in your USES clause.

--
Tim Young
Elevate Software
www.elevatesoft.com