How to find what an error number means [{Solved}]

[daniels012]

Is there a list of error numbers and their meaning?

Michael

 

[Smitty]

Check out "Trappable Errors" in the VBA helpfile. They're listed there.

HTH,

Smitty

 

[daniels012]

OK,
Then how Could I write:

If Error 58 then Range("B11").Value +1


Michael

 

[Smitty]

Check out this link for dealing with errors: http://www.functionx.com/vbaccess/Lesson07b.htm

Smitty

 

[Scott Huish]

Why are you trying to trap the error after it happens, why not prevent the error by checking for the files existance in the first place?

 

[daniels012]

It's Error 58 - "File already Exsists"

I just want to be able to if the file already exsists then add + 1 to the exsisting name. instead of overwriting the file or cancelling.

Does that make sense?

Michael

 

[Smitty]

Why not test for it:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> File()
    <SPAN style="color:#00007F">Dim</SPAN> strfullname <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
        strfullname = "Drive\Path\Filename.xls"
    <SPAN style="color:#00007F">If</SPAN> FileExists(strfullname) <SPAN style="color:#00007F">Then</SPAN>
        MsgBox "You're in it"
    <SPAN style="color:#00007F">Else</SPAN>
        MsgBox "No sign of it!"
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Smitty

 

[Von Pookie]

http://www.mrexcel.com/board2/viewtopic.php?t=246295

 

[daniels012]

What I am trying to do, is create multiple files for 1 customer.
Example:
I have a SaveAs Cell(A1)

A1 = "MyCompany"
I need to SaveAs again as a 2nd MyCompany
Something like "MyCompany2"
then if I need a 3rd...
"MyCompany3"
etc. etc.

Make more sense?

Michael

 

[Scott Huish]

I think FileExists requires a FileSystemObject.