prederso
asked on
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...
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...
ASKER
It shuts down and shows this message. then the users have to restart the application...
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.
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.
ASKER
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("CustomUR L")
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.AddI tem CampaignURL, 0
frmBrowser.brwWebBrowser.N avigate CampaignURL
frmBrowser.Show
Exit Sub
ErrHandler:
MsgBox "Fel:" & Err.Number & " " & Err.Description, vbCritical, "Varning"
End Sub
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("CustomUR
Set frmBrowser.OB_Object = OB_Object
CampaignURL = MyPair.StringValue & "&phonenumber=" & OB_Object.phone & "&agentid=" & SPhone.txtAgentID & "&dnis=" & SPhone.lblCustomerService.
frmHistory.AddToHistory OB_Object.phone, CampaignURL
frmBrowser.cboAddress.AddI
frmBrowser.brwWebBrowser.N
frmBrowser.Show
Exit Sub
ErrHandler:
MsgBox "Fel:" & Err.Number & " " & Err.Description, vbCritical, "Varning"
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks, I will try this. Might take a while...
Resume The_Exit:
Should be
Resume The_Exit
I'm allllways doing that :(
Should be
Resume The_Exit
I'm allllways doing that :(
Is your application actually crashing or is this displayed in some kind of message box but the continues to run?
Anthony.