Error Message

[anp_mca]

Hello there,
I just developed an vb application which is for resizing a selected picture and displaying it.
It works fine in almost all machines.
But it's not working in a machine having MS Office 2003.
All my code contains are

1)Making thumbnail of given picture.
2)Saving that file name into MS Access Database.

I am getting error "C:\ProgramFiles\Microsoftoffice\OFFICE11\1033\SETUP.CHM"

Please advice me how can i fix this error.

Many thanks in advance.

[akhileshbc]

If possible, try to attch your project. So that we will be able to find where the problem is...

[Hack]

1. What are you using setup.chm for?
2. Please post the code that is giving the error.
3. Please state the exact wording of the error along with the error number.

[anp_mca]

My code is just
Dim sPic As StdPicture
Set sPic = LoadPicture(filename)
pictureBox1.AutoRedraw = True

pictureBox1.PaintPicture sPic, 0, 0, pictureBox1.ScaleWidth, pictureBox1.ScaleHeight
pictureBox1.Picture = pictureBox1.Image
SavePicture pictureBox1.Picture, filename
Set sPic = Nothing
rs.Open "select * from photodetails", con, 3, 2, 1
If Not rs.EOF Then
rs.Fields("filename") = filename
rs.Update
Else
rs.AddNew
rs.Fields("filename") = filename
rs.Update
End If
rs.Close

Please help!

[Hack]

Do you know what line causes the error?

Also, I would like to know the exact wording of the error along with the error number.

[anp_mca]

The entire error message is
“The path to Microsoft Office Project Professional 2003 cannot be found. Verify that you have access to this location and try again or try to find the installation package ‘PRJTROE.MSI’ in a folder from which you can install the product Microsoft Office Project Professional 2003”

[Hack]

MS Project??? What does your program have to do with MS Project?

I see nothing in the code that you posted that would generate that error.

Again, do you know what specific line of code is causing this?

[akhileshbc]

What's that meant for?

[akhileshbc]

Which line shows the error?

[anp_mca]

i think updating record will cause this error

rs.Open "select * from photodetails", con, 3, 2, 1
If Not rs.EOF Then
rs.Fields("filename") = filename
rs.Update
Else
rs.AddNew
rs.Fields("filename") = filename
rs.Update
End If
rs.Close

But i don't have VB installed on that machine, so don't know where the error is.

[akhileshbc]

Try to post the entire project.

[anp_mca]

Actually when i click a button this error happens.

I posted entire code of click event.

What else you need to fix this error?

[akhileshbc]

Try to make the setup program of you application using package & deployment wizard.

[anp_mca]

I am using innosetup.
Should i use "package & deployment wizard"?

[akhileshbc]

The error may be due to the lack of runtime files in that computer. Try to create the setup file or install vbruntime files in that computer(available in many websites, download it and install)
good night pal

[anp_mca]

I think this is due to problem in MS office of that machine.
Is it possible?

[akhileshbc]

Use it. After creating the setup file, there will a folder along with it which contains all the dll, ocx files. Use them in inno, and remember to let them installed in system folder or application folder

[akhileshbc]

Are you using any resource from ms office. I don't whether you are using anything. That's why i am asking you to post the entire project.
Anyway i am now browsing the web through my mobile, so i cant give you any code.