vba get database extension

Question

HI

I have to get the extension of the database.

I know if it is an accdr I have to use SysCmd(acSysCmdRuntime).

But I have to know if the access extension is accde or accdb.

Someone can help me?

Thanks

Marco Dell'Oca

Answer 1

Hi,

Have you tried?

Mid(CurrentDb.Name, InStrRev(CurrentDb.Name, ".")+1)

Answer 2

But I have to know if the access extension is accde or accdb.

Hi Marco,

An alternative could be:

  extension = Split(CurrentDb.Name, ".")(UBound(Split(CurrentDb.Name, ".")))

In this way it is also easy to find the part after the last separator (.), as in the example, but also the one but last part, or the second.

Imb.

Answer 3

Many Thanks to everybody.

Marco Dell'Oca

Answer 4

Many Thanks to everybody.

Marco Dell'Oca

Hi Marco,

You're welcome. Imb and I were happy to assist. Good luck with your project.