Opentextfile leads to error 5

[Kingz]

Hi guys,

I'm trying to access a file which seemingly exists, but gives me an error 5.

Here is my code:

`Strfilepath="...\query.txt"
Set DBs = currentdb()

Set fso = CreateObject("Scripting.FilesystemObject")
If fso.FileExists(strfilepath) then
Set file = fso.opentextfile(strfilepath,ForReading, false)
End if
StrSqlquery= file.readall
File.close

It's the "opentextfile" line that gives me the error.
Thanks in advance.

 

[Gasman]

And error 5 is?
Strfilepath appears to be commented out?
Have looked at your variables?
Not even sure that would be a valid path anyway?

 

[ebs17]

ForReading

If you use late binding, constants from the object used are unknown.
So you would have to insert the real value or declare the constant explicitly.

Const ForReading = 1

 

[arnelgp]

see post #2, Error 5 is Access Denied (pertains to file).

 

[Kingz]

ForReading

If you use late binding, constants from the object used are unknown.
So you would have to insert the real value or declare the constant explicitly.

Const ForReading = 1

Thanks dude.. That did it!

 

[cheekybuddha]

Make sure you have Option Explicit declared at the top of every code module (above or below Option Compare Database).

This will catch any errors for undefined variables/constants or typos in your code.

 

[arnelgp]

or you can set it once in VBA (tools->options)

 

[cheekybuddha]

or you can set it once in VBA (tools->options)

Do this. Option Explicit will then be added automatically to all new code modules

But you will also need to add it manually to all existing code modules.