vba, Retrieving data from an Access Database into Excel

Susy · Jun 29th 2017

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

Code:

Code

Dim db as dao.DatabaseDim DBFullName as StringDBFullName = 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!

**Carim** · Jun 29th 2017

Re: vba, Retrieving data from an Access Database into Excel

Hello,

You can take a look at the link below for Error Handling :

https://msdn.microsoft.com/en-us/library/ee358847(v=office.12).aspx

and specifically for error 3024 :

http://www.vbforums.com/showthread.php?592216-RESOLVED-Runtime-error-3024-Could-not-find-file

Hope this will help

**alansidman** · Jun 29th 2017

Re: vba, Retrieving data from an Access Database into Excel

Susie,
I have added code tags to your post. Please take a few minutes to read the forum rules you agreed to. Pay particular attention to the section on Code Tags. Please abide by the few rules we have in the future.

Alan

Susy · Jun 29th 2017

Re: vba, Retrieving data from an Access Database into Excel

Thanks AlanSidman, I guess I forgot them even though I am pretty sure I used them...

vba, Retrieving data from an Access Database into Excel

Participate now!

Share