Compiled runtime error

[flint]

Can anyone tell me what to do at this point? I have created a standard exe application in VB6...it runs fine in the design evironment but not when I compile it as a stand-alone exe file format. I have several forms in this application that basically run formulas that calculate the input from several text field and puts the results in label fields.

The error that I get is entitled
"Run-time error'-2147417848 (80010108)': Automation Error

If someone can help I will really appreciate it & possibly do a commissioned consult in the near future.

Flint Puckett MBA
Johnson & Johnson

mailto:[email protected]

[dimava]

try compling it in P-Code

[flint]

I have tried to compile it both in native (w & w/o options) code and P-code......this does not help. On the microsoft website I found that this is a bug in VB6 that was suppose to be fixed in the SP3 service pack > I downloaded the SP4 and installed it. I still have the error! .....

After trouble shooting a bit I have narrowed it down to a process of loading zeros into several text fields on the form_load event....I tried to move the loading zeros process into a different event and got the same error.

Here's a sample of the code:

(I know that there's an easier way.)

Sub LoadDDDZeros()

'Load DDD Expenditure Zeros
txtIVExp1.Text = "0"
txtIVExp1.Text = Format(txtIVExp1, "$#,##0")
txtIVExp2.Text = "0"
txtIVExp2.Text = Format(txtIVExp2, "$#,##0")
txtIVExp3.Text = "0"
txtIVExp3.Text = Format(txtIVExp3, "$#,##0")
txtIVExp4.Text = "0"
txtIVExp4.Text = Format(txtIVExp4, "$#,##0")
txtIVExp5.Text = "0"
txtIVExp5.Text = Format(txtIVExp5, "$#,##0")
txtIVExp6.Text = "0"
txtIVExp6.Text = Format(txtIVExp6, "$#,##0")
txtIVExp7.Text = "0"
txtIVExp7.Text = Format(txtIVExp7, "$#,##0")
txtIVExp8.Text = "0"
txtIVExp8.Text = Format(txtIVExp8, "$#,##0")

End Sub


I need to load these zeros in the so that the math formulas can process them and total them and then put them in another txtfield for display. VB displays an error if there is no value in all the txtfields and I can not Exit Sub at the point where incurs the no-value. Is there a way around this? Any help will be greatly appreciated.

Cordially,
Flint