vba ms accessruntime error 3024

[Susy]

Hi there,



how can i catch this error before it happens, i.e., when OpenDatabase(DBFullName) is nothing... but I have tried with If is nothing... or if len()<= 0 then .... it doesn't work

Dim db as dao.Database
Dim DBFullName as String


DBFullName = wkmain.(Cells(30,3).Value ' ---> let's assume that the database in this path cannot be found, then what? --> I would like to check before "Set db = Opendatabase()" if is not empty.

Set db = OpenDatabase(DBFullName)

Do you have any ideas how to check before running into error 3024?

Thanks in advance!

[CJ_London]

you've posted to an access forum - but the reference to cells implies Excel.

either your test would be something like

if not isnull(wkmain.(Cells(30,3).Value) then
    on error resume next
    set db=opendatabase(wkmain.(Cells(30,3).Value)
    if err.number<>0 then msgbox "this file has not be found - " & wkmain.(Cells(30,3).Value
    on error goto 0
else
    msgbox "you must enter a value"
end if

Or I have misunderstood in which case please describe in simple English what you are trying to do

[Susy]

Thanks Ajax...

the issue is that wkmain.Cells(30,3).Value is always filled...

that does not mean that the actual database is there!!!!

When Setting the db = opendatabase() I get the error, because it is trying to opening something which is not there...

So, how can I check before opening?

Regards!

[CJ_London]

did you read my solution?

Alternative is to use the dir function to check it exists - but that won't tell you if it is an access file

[Micron]

It appears your procedure does not include an error handler. Easier just to trap the error number.

Dim db as dao.Database
Dim DBFullName as String

On Error GoTo ErrHandler

DBFullName = wkmain.(Cells(30,3).Value
Set db = OpenDatabase(DBFullName)
do stuff

ExitHere:
Set db = Nothing
Exit Sub

ErrHandler:
If Err.Number = 3024 Then Resume ExitHere
Else
Msgbox .....

[yeah]

Ever get your problem resolved?

[Susy]

Hi there,

thanks for asking. I think I dit...

Sorry that I didn't reply before... I was in a "long vacation".

Regards!