automation error server threw an exception

nikhilkajrekar

Expand|Select|Wrap|Line Numbers

 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

Stewart Ross Inverness

It is hard to say what is happening without knowing the details of what MyTask is doing. The error you quote will happen if the form is closed part way through processing of objForm.

You will need to trace the exact point at which the error occurs, by setting a breakpoint at, say, the start of the FOR-loop then manually stepping through each line executed until you determine which step is causing the error.

-Stewart

NeoPa

When posting any code on here please :

Ensure you have Option Explicit set (See Require Variable Declaration).
Try to compile it. If it doesn't compile for any reason please explain that clearly - including the error message and which line of your code it appears on. Compilation is done from the Visual Basic Editor menu - Debug \ Compile Project (Where Project is the actual name of your project).
Copy your code (using the Clipboard - Cut / Copy / Paste) from your project directly into your post. Typing in code is not appreciated as it is likely to introduce typos which cause members to waste their time unnecessarily.
Ensure that the code in your post is enveloped within CODE tags. The hash (#) button in the posting page helps with this. Simply select your code and click on the hash button to have it enveloped automatically.

If all these points are covered then all members will be better able to understand, and therefore attempt to answer, your question.

ADezii

Quote:

Originally Posted by nikhilkajrekar

Expand|Select|Wrap|Line Numbers

 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

I think you need to restructure your code, something similar to:

Expand|Select|Wrap|Line Numbers

 Dim obj As AccessObject

Dim objProject As Object

Dim frm As Form
 
Set objProject = Application.CurrentProject
 
For Each obj In objProject.AllForms

  DoCmd.OpenForm obj.Name, acDesign, , , , acHidden

    Set frm = Forms(obj.Name)

      With frm

        'Simulate your Task(s) here

        Debug.Print frm.Name & " | " & frm.Width

          DoCmd.Close acForm, frm.Name

      End With

Next obj

nikhilkajrekar

Expand|Select|Wrap|Line Numbers

 On Error GoTo ErrorHandler

Dim appAccess As New Access.Application

Dim objForm As Form

With appAccess
 
.OpenCurrentDatabase "E:\mydb\COMETV4.mdb"

'.DoCmd.Minimize
 
DoEvents
 
Dim obj As AccessObject

Dim objProject As Object

Dim frm As Form
 
Set objProject = appAccess .CurrentProject
 
For Each obj In objProject.AllForms

  DoCmd.OpenForm obj.Name, acDesign, , , , acHidden

    Set frm = Forms(obj.Name)

      With frm

        'Simulate your Task(s) here

        Debug.Print frm.Name & " | " & frm.Width

         Debug.Print frm.Section(0).Height

          DoCmd.Close acForm, frm.Name

      End With

     infrm = infrm + 1

      Label1.Caption = infrm + 1

Next obj

    .CloseCurrentDatabase

End With

ErrorHandler:

If Err.Number < 0 Then
 
Label1.Caption = Err.Description

End If

 Resume Next

 'End If

End Sub

i restructured code but frm getting is nothing

NeoPa

Quote:

Originally Posted by NeoPa

When posting any code on here please :

Ensure you have Option Explicit set (See Require Variable Declaration).
Try to compile it. If it doesn't compile for any reason please explain that clearly - including the error message and which line of your code it appears on. Compilation is done from the Visual Basic Editor menu - Debug \ Compile Project (Where Project is the actual name of your project).
Copy your code (using the Clipboard - Cut / Copy / Paste) from your project directly into your post. Typing in code is not appreciated as it is likely to introduce typos which cause members to waste their time unnecessarily.
Ensure that the code in your post is enveloped within CODE tags. The hash (#) button in the posting page helps with this. Simply select your code and click on the hash button to have it enveloped automatically.

If all these points are covered then all members will be better able to understand, and therefore attempt to answer, your question.

Nikhil, in case it wasn't clear, I posted this as a moderator. That means you must pay attention and follow these instructions otherwise I will take the matter further and apply an infraction to your account.

I am trying not to slap an infraction on it quite so soon after your joining the site, but frankly I'm being swamped with issues concerning you and these must stop.

Your code wouldn't even be allowed to be entered into the code window as it is, let alone compile. This wastes the time of our experts tidying up your code which you should be doing yourself before it ever sees this forum.

You have been warned.

Administrator.

automation error server threw an exception

re: automation error server threw an exception

re: automation error server threw an exception

re: automation error server threw an exception

re: automation error server threw an exception

re: automation error server threw an exception

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about