automation error server threw an exception

Question

For Each objObj In .CurrentProject.AllForms

DoEvents
intObj = intObj + 1
.DoCmd.OpenForm objObj.Name, acDesign, , , , acHidden

Set objForm = .Forms(objObj.Name)
With objForm
'my task
end with
.DoCmd.Close acForm, objObj.Name
next
:errorhand
Resume Next


in the above code i am getiing automation error server throw an exception this error when one of the form gets opend after that next fomrs not get accessed it throws new error
automation error the object invoked has disconnected from its clients how do i access next fomrs

Answer 1

For Each objObj In .CurrentProject.AllForms

DoEvents
intObj = intObj + 1
.DoCmd.OpenForm objObj.Name, acDesign, , , , acHidden

Set objForm = .Forms(objObj.Name)
With objForm
'my task
end with
.DoCmd.Close acForm, objObj.Name
next
:errorhand
Resume Next


in the above code i am getiing automation error server throw an exception this error when one of the form gets opend after that next fomrs not get accessed it throws new error
automation error the object invoked has disconnected from its clients how do i access next fomrs

post the error here please:

---

Don't judge me, just Upgrade me. Thanks!

Answer 2

automation error server threw an exception this is an error i am getting