topic Re: closing EditForm dynamically in ArcPad Questions

closing EditForm dynamically

SandraDema — Wed, 02 May 2012 19:01:56 GMT

I am trying to close the built-in EditForm dynamically. I want the user to see the form, click a button, causing the Editform to close, and a custom form to open. The following is the code I am using:

dim aForm
set aForm = Application.Map.layers("Parcels").Forms("EditForm")
aForm.close
set aForm = Application.Map.Layers("Parcels").Forms("Form3")
aForm.show

If, for example, I use this code for Form2 and Form3:
dim aForm
set aForm = Application.Map.layers("Parcels").Forms("Form2")
aForm.close
set aForm = Application.Map.Layers("Parcels").Forms("Form3")
aForm.show
it works perfectly. It only "kinda" works for the EditForm.

When I select parcel "A" and then click the button I have placed on the EditForm, it calls the correct subroutine and the form will close.
Then, when I click on parcel "B", the EditForm opens showing the information for parcel A, not parcel B. The form is now unresponsive, though I can continue to click on the map. The only way to close the form is to close the program.

I have spent several hours searching forums and the web for a solution and have had no luck. Has anyone had any success with this?

Has anyone else experienced this?

Re: closing EditForm dynamically

RolfBroch — Thu, 03 May 2012 05:19:23 GMT

One way of doing this is to open the second form from the onunload event of the first form.

Look at http://forums.arcgis.com/threads/53633-Prevent-OK-Button-from-Closing-Form for some ideas.

Rolf

Re: closing EditForm dynamically

SandraDema — Thu, 03 May 2012 12:22:48 GMT

Thanks so much for the reply. Opening Form3 is not a problem. The code I am using is fired by the OnClick event of a button I have placed on EditForm.

I have done further testing with the OnUnload event of the form and the OnValidate event of the page for EditForm. Neither of these are being called when EditForm is closed by using aForm.close.
Is there is different syntax necessary to close a built-in form?

Re: closing EditForm dynamically

RolfBroch — Thu, 03 May 2012 12:50:04 GMT

Could you zip your layer file (.apl) and associated .vbs file and post it?

Rolf

Re: closing EditForm dynamically

SandraDema — Thu, 03 May 2012 13:05:11 GMT

thanks for looking

Re: closing EditForm dynamically

RolfBroch — Thu, 03 May 2012 13:15:55 GMT

Modify your .vbs according to this

Function BeginEdit
dim aForm
set aForm = Application.Map.layers("Parcels").Forms("EditForm")
aForm.close
End Function

Sub Editform_OnUnLoad()
dim aForm
set aForm = Application.Map.Layers("Parcels").Forms("Form3")
aForm.show
End Sub

And remove onunload="Call OpenForm3" statement in your apl. By naming your subroutine "Editform_OnUnLoad()" it should trigger automatically.

Re: closing EditForm dynamically

SandraDema — Thu, 03 May 2012 14:06:27 GMT

By naming your subroutine "Editform_OnUnLoad()" it should trigger automatically.

This is what fixed my problem. Overriding the OnUnload event allows me to dispose the form properly.

Thanks so much for all your help.

Cheers!