?
Solved

run-time error '-2147024726(800700aa)'

Posted on 2005-04-05
7
Medium Priority
?
2,156 Views
Last Modified: 2008-01-09
I have a very confusing problem with my VB-application. It mis an application that is running on several clients and every now and then (on average 2 times out of 10) the application crashes and this message pops up:

run-time error '-2147024726(800700aa)'
Automation Error

I have tried to search for information about this error but have found nothing. Please if anyone knows what to do about this...
0
Comment
Question by:prederso
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 8

Expert Comment

by:anthonywjones66
ID: 13707416
This error means:- The requested resource is in use and is being raised from a call somewhere to a windows API (not necessarilyt directly in VB code could also be via a component being used by the VB).

Is your application actually crashing or is this displayed in some kind of message box but the continues to run?

Anthony.
0
 

Author Comment

by:prederso
ID: 13707625
It shuts down and shows this message. then the users have to restart the application...
0
 
LVL 8

Expert Comment

by:anthonywjones66
ID: 13707749
Does the error occur after a specific user action?

Can you reproduce the error whist running the application in the IDE?

What does the application basically do?

Could this be a network problem making say a the contents of a network drive inaccessible occasionally?

Anthony.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:prederso
ID: 13714301
The application is a part of a dialersystem and works sort of like a telephone. One of the important functions is to pop a browser and I think it is here the error occures. But it is hard to reproduce the errror and I have found no pattern of when it occures. Here is the part of the code where I think it happens:

Public Sub OpenBrowser()
'This Sub will open a browser window based upon the URL sent
'as KVP to Sphone by OCS. Key must be "CustomURL"
On Error GoTo ErrHandler
    Dim CampaignURL As String
    Dim MyPair As CTKVPair
    Set MyPair = OB_Object.GetKey("CustomURL")
    Set frmBrowser.OB_Object = OB_Object
    CampaignURL = MyPair.StringValue & "&phonenumber=" & OB_Object.phone & "&agentid=" & SPhone.txtAgentID & "&dnis=" & SPhone.lblCustomerService.Caption
    frmHistory.AddToHistory OB_Object.phone, CampaignURL
    frmBrowser.cboAddress.AddItem CampaignURL, 0
    frmBrowser.brwWebBrowser.Navigate CampaignURL
    frmBrowser.Show
    Exit Sub
ErrHandler:
    MsgBox "Fel:" & Err.Number & " " & Err.Description, vbCritical, "Varning"
End Sub
0
 
LVL 8

Accepted Solution

by:
anthonywjones66 earned 2000 total points
ID: 13714785
Questions you might want to consider are?

What is OB_Object.GetKey doing?
Also OB_Object.phone?

Change sub to:-

Public Sub OpenBrowser()
'This Sub will open a browser window based upon the URL sent
'as KVP to Sphone by OCS. Key must be "CustomURL"
On Error GoTo ErrHandler
    Dim CampaignURL As String
    Dim MyPair As CTKVPair
    Dim lStage as Long

    Set MyPair = OB_Object.GetKey("CustomURL")
    lStage = 1
    Set frmBrowser.OB_Object = OB_Object
    lStage = 2
    CampaignURL = MyPair.StringValue & "&phonenumber=" & OB_Object.phone & "&agentid=" & SPhone.txtAgentID & "&dnis=" & SPhone.lblCustomerService.Caption
    lStage =3
    frmHistory.AddToHistory OB_Object.phone, CampaignURL
    lStage =4
    frmBrowser.cboAddress.AddItem CampaignURL, 0
    lStage =5
    frmBrowser.brwWebBrowser.Navigate CampaignURL
     lStage =6
   frmBrowser.Show
The_Exit:
    Exit Sub
ErrHandler:
    MsgBox "Fel:" & Err.Number & " " & Err.Description & "(Stage: " & lStage & ")", vbCritical, "Varning"
    Resume The_Exit:
End Sub

This should give you an indication which line is failing and not dump the user out of the app.

Anthony.
0
 

Author Comment

by:prederso
ID: 13716748
Thanks, I will try this. Might take a while...
0
 
LVL 8

Expert Comment

by:anthonywjones66
ID: 13724868
Resume The_Exit:

Should be

Resume The_Exit

I'm allllways doing that :(
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Suggested Courses

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question