RUN TIME ERROR '6':

RUN TIME ERROR '6':

Anonymous
Not applicable
431 Views
1 Reply
Message 1 of 2

RUN TIME ERROR '6':

Anonymous
Not applicable
On certain computer when I use my program in vba It gives me an error
RUN TIME ERROR '6':
OVERFLOW

I click on END and I start again the program and it all functions why this
error?

Here is the sub program where I find this error at this line "If Reponse =
vbYes Then"

Sub Permission_Update()
Reponse = MsgBox("Voulez-vous faire un update des ballons...(SEULEMENT si
vous avez fait des modification au niveau des details.", vbYesNo, "Update de
ballons")
If Reponse = vbYes Then
Set help =
ThisDrawing.Application.GetInterfaceObject("Acadunsupp.Application.1")
help.EvalLispExpr "(command ""-vbarun""
""Module_Shearing.Update_ballon"")"
End If
End Sub

Windows NT workstation
Autocad 14.01
Thank's
marc_sylvain@canammanac.com
0 Likes
432 Views
1 Reply
Reply (1)
Message 1 of 2

Anonymous
Not applicable
On certain computer when I use my program in vba It gives me an error
RUN TIME ERROR '6':
OVERFLOW

I click on END and I start again the program and it all functions why this
error?

Here is the sub program where I find this error at this line "If Reponse =
vbYes Then"

Sub Permission_Update()
Reponse = MsgBox("Voulez-vous faire un update des ballons...(SEULEMENT si
vous avez fait des modification au niveau des details.", vbYesNo, "Update de
ballons")
If Reponse = vbYes Then
Set help =
ThisDrawing.Application.GetInterfaceObject("Acadunsupp.Application.1")
help.EvalLispExpr "(command ""-vbarun""
""Module_Shearing.Update_ballon"")"
End If
End Sub

Windows NT workstation
Autocad 14.01
Thank's
marc_sylvain@canammanac.com
0 Likes