Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2219
  • Last Modified:

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

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
prederso
Asked:
prederso
  • 4
  • 3
1 Solution
 
anthonywjones66Commented:
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
 
predersoAuthor Commented:
It shuts down and shows this message. then the users have to restart the application...
0
 
anthonywjones66Commented:
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
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
predersoAuthor Commented:
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
 
anthonywjones66Commented:
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
 
predersoAuthor Commented:
Thanks, I will try this. Might take a while...
0
 
anthonywjones66Commented:
Resume The_Exit:

Should be

Resume The_Exit

I'm allllways doing that :(
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now