closing EditForm dynamically

SandraDema

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?

RolfBroch

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.