Exit message box

[cotsia]

i have an exit button that works with this condition: parentform.mode_get() = "Change"
my problem is that when i pushed the buttons the form doesn't close..
i also have a save button on the form i would like if i push the save button then the exit button should just close the form..
i know that my code may be weird but i'm in the programming world for only a few months..
thanks in advanced
costantina

ui_dlg_box("VICTORY EXPLORER",<<%dlg%
{wrap=40}
{lf};
{image=$sys_question} Do you want to save the record?;
{lf};
<&Save>  <&Don't Save>  <&Cancel> 

%dlg%,<<%code%
if a_dlg_button = "&Save" then
DIM mode as c
'Save record in current form.
topparent.commit()

'Set 'Value' property of 'Last_updated
DIM form_name as c
if is_object(topparent.this) then 
	form_name = topparent.name()+".this"
else
	form_name = ""
end if 

DELETE expression_result
expression_result =  eval("date()",form_name)
parentform:Last_updated.value = expression_result

'Close current form or browse window.
DIM mode as c
mode = parentform.mode_get()
'If the form is in  Change mode, first save the changes before closing the form
if mode = "ENTER" .or. mode = "CHANGE" then
   parentform.commit()
   '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


if a_dlg_button = "&Don't Save" then
parentform.close(.f.)


end if
end if
if a_dlg_button = "&Cancel" then
	
 
cancel()
end	
end if

%code%)

[Keith Hubert]

Re: Exit message box

Hi Costantina,

i know that my code may be weird

then don't try and do it that way.

There is no need to code anything for the Close button. Use Action Scripting and select from Category Forms/Browse and from Action list select Close Forms/Browse. There is an option check box to save the record on exit. If you want the user to always close the form when they press the save button, then change the text on the button to Save and Close.

[cotsia]

Re: Exit message box

hi keith
i don't want the record always to be saved.. i want the user to have that option thats why i need the message box..
if i use action scripting and create the message box changing the name of the buttons is getting tricky at the don't save button, otherwise it works perfect with action scripting but my boss is very specific with the names of the buttons thats why i tried to create my own message box..

thanks for your reply

[cotsia]

Re: Exit message box

ok i have fixed everything and it works create.. i've created another form with the buttons i needed and used action scripting..
the only problem that i have now is that if i pushed the save button before the exit button then i want just to exit the program without asking me anything

[Keith Hubert]

Re: Exit message box

Hi Costantina,

if i pushed the save button before the exit button then i want just to exit the program

Is that Exit the program or Close the form? Either way, just add that to your Save button.

[cotsia]

Re: Exit message box

thanks for your response but the only way i want tha user to close the form is by the exit button.. i need a condition that says if the record has already been saved (either by pushing the save button or by F9) then when i pushed the exit button the form will close without showing me the message box (Do you want to save your changes?)

[Keith Hubert]

Re: Exit message box

Hi Costantina,

i need a condition that says if the record has already been saved

That would mean the record is in View mode?

[cotsia]

Re: Exit message box

yes view, enter mode.. lets say the user makes a change on a record or creates a new record, if he doesn't click save and pushes the exit button a message pops up asking if he wants to save, don't save or cancel, for the message box i have this condition: parentform.mode_get() = "Change" (this part works great).But if the user makes the changes push the save button and then the exit button i want the close form script to play (and i don't know the condition to do this and if the action is not conditionally then if i pushed the cancel on the message box the form will close because the close form script will execute every-time i push the button)

[martinwcole]

Re: Exit message box

save button code:

if parentform.mode_get() <> "view"
      parentform.commit()
end if

exit button code:

if parentform.mode_get() <> "view"
    ans=ui_get_radio("Select",1,"Save record?","Dont't save record?") 'the default is 1, save the record
    if ans="Save record?"
         parentform.commit()
    else
         parentform.cancel()
    end if 
end if 
parentform.close()