Restrict access to parent form while child form open?

[jjfcpa]

I want to keep the user from making changes to the parent form while the child form is open. I thought by setting the child form to modal this would keep them from returning to the parent form, but I can close the parent form without any problems with this setting.

I didn't really want to hide the parent form in case they wanted to refer to the data on it.

[Stan Mathews]

Re: Restrict access to parent form while child form open?

I assume you are using Action Scripting to open the child form. Check to options tab of the action script genie, window style, and set the style to dialog.

[jjfcpa]

Re: Restrict access to parent form while child form open?

I assume you are using Action Scripting to open the child form. Check to options tab of the action script genie, window style, and set the style to dialog.

Actually, I'm not.

I'm using the following code.

form.load()
form.show()
form.activate()

The reason I'm doing this is because I've got some code to pass some data from my parent table to the child table. The code is between the load() and the show().

Just noticed that I can do this in the load(). Thanks for the nudge...

[jjfcpa]

Re: Restrict access to parent form while child form open?

This is weird...

Here is the code in my "Edit" button on the parent table.

'  IF FIXES FORM IS NOT LOADED
if .NOT. is_object("Fixes") then	
   Form.load("Fixes","Dialog")
end if	

'  PUT IN EDIT RECORD MODE	
Fixes.Change_Mode()

' now assign PK of the primary table to that record
Fixes:pk_app.value = parentform:pk.value	

dim t_fixes as p
t_fixes = table.current(4)
Fixes:section.value = t_fixes.section
Fixes:desc.value = t_fixes.desc

'  SHOW THE FORM
Fixes.show()

'  SET FOCUS TO IT
Fixes.activate()

And here is the code in my "Cancel" button on the child form:

topparent.cancel()
topparent.close()

The problem is that I need to click the Cancel button twice to get the form to close. What am I doing wrong?


I discovered a little more information. When I click the Cancel button the first time, it is just canceling the "Edit" mode. I can tell by the Status bar. When I click it again, it closes the form.

This same behavior is exhibited if I click the red X to close the form.

[Mike Wilson]

Re: Restrict access to parent form while child form open?

This is the Action script code for close form changing the parentfrom.commit() to cancel(). Try it, see what happens.

'Close current form or browse window.
DIM mode as c
mode = parentform.mode_get()
'If the form is in Enter or Change mode, first save the changes before closing the form
if mode = "ENTER" .or. mode = "CHANGE" then
   parentform.cancel()
   'Check to see if the record was successfully saved
   if parentform.mode_get()<>"VIEW" then
      ui_msg_box("Unable to save your changes","Please correct and save, or discard your changes", UI_STOP_SYMBOL)
      end
   end if
end if
'Close the form
parentform.close(.f.)

[G Gabriel]

Re: Restrict access to parent form while child form open?

It's a timing issue.
Change to:

topparent.cancel()
xbasic_wait_for_idle()
topparent.close()