Find Extension of current database

[exipnakias]

Dear Sirs/Madams,

Let me ask you a question about a Visual Basic Code in Access 2007.

I try to do a simple thing (as I believe) but I do not know how.
I want a code that will check the extension of the current Access 2007 Database file and give a spesific msg.

For example, I need a code that will find the path of the running database
ex: "C:\test.accdb" and will check the following:

If the file path is *.accdb then Msgbox "The file extension is accdb"
If the file path is *.accde then Msgbox "The file extension is accde"

How can I do that ?
If u know to do this in access 2003 or older versions just tell it to me pls and I will try it to 2007.
Thanks in advnaced.

[Dököll]

Dear Sirs/Madams,

Let me ask you a question about a Visual Basic Code in Access 2007.

I try to do a simple thing (as I believe) but I do not know how.
I want a code that will check the extension of the current Access 2007 Database file and give a spesific msg.

For example, I need a code that will find the path of the running database
ex: "C:\test.accdb" and will check the following:

If the file path is *.accdb then Msgbox "The file extension is accdb"
If the file path is *.accde then Msgbox "The file extension is accde"

How can I do that ?
If u know to do this in access 2003 or older versions just tell it to me pls and I will try it to 2007.
Thanks in advnaced.

Not sure how this can be handled, exipnakias!

I know below to work when we need to add/submit to a database, in the current directory, perhaps it can be mastered to do otherewise:

 
App.Path + "\MyDatabase.mdb"
 
 

Come to think of it, try Google "VB to read Windows Processes in Task Manager", see what happens.

Will forward to Access forum for added support, please stay tuned!

Dököll

[HiTechCoach]

The extension really does not determine the actual file format. You can change the extension to from accdb manually (in Windwos Explorer) to accde, but the does not change the actual format. The point I am trying to make is that checking the extension is not the most reliable way to test the format.

I use this in Access 97 to 2003:
How to programmatically determine if your database is in MDE format


To get the name of a database:

? Currentproject.name
Northwind.mdb
 

Hope this Helps...
Boyd Trimmell
aka Hi Tech Coach

Dear Sirs/Madams,

Let me ask you a question about a Visual Basic Code in Access 2007.

I try to do a simple thing (as I believe) but I do not know how.
I want a code that will check the extension of the current Access 2007 Database file and give a spesific msg.

For example, I need a code that will find the path of the running database
ex: "C:\test.accdb" and will check the following:

If the file path is *.accdb then Msgbox "The file extension is accdb"
If the file path is *.accde then Msgbox "The file extension is accde"

How can I do that ?
If u know to do this in access 2003 or older versions just tell it to me pls and I will try it to 2007.
Thanks in advnaced.

[exipnakias]

Thank you for your help guys.

Yesterday, by searching the net I managed to find "Currentproject.name" command which HiTechCoach posted.

It works great. If someone changes the extension of the file (or the name but this does not matther) the wanted msg will appear.

The aim was to check the extsension of the file. This command checks the name and the extension so the wanted msg will also appear when someone changes only the name (not extension) but this is ok for me, this command has solved the problem I had.

[ADezii]

Thank you for your help guys.

Yesterday, by searching the net I managed to find "Currentproject.name" command which HiTechCoach posted.

It works great. If someone changes the extension of the file (or the name but this does not matther) the wanted msg will appear.

The aim was to check the extsension of the file. This command checks the name and the extension so the wanted msg will also appear when someone changes only the name (not extension) but this is ok for me, this command has solved the problem I had.

This will work for you:

Dim strPathToCurrentDatabase As String, strExtension As String
 
'Absolute Path to Current Database
strPathToCurrentDatabase = CurrentProject.path & "\" & CurrentProject.Name
 
'Extract the Extension with period
strExtension = Right$(strPathToCurrentDatabase, Len(strPathToCurrentDatabase) - _
                      InStrRev(strPathToCurrentDatabase, ".") + 1)
 
Select Case strExtension
  Case ".accdb"
    MsgBox "The File extension is: " & ".accdb"
  Case ".accde"
    MsgBox "The File extension is: " & ".accde"
  Case Else
    MsgBox "The File extension is: " & strExtension
End Select

[exipnakias]

This will work for you:

Dim strPathToCurrentDatabase As String, strExtension As String
 
'Absolute Path to Current Database
strPathToCurrentDatabase = CurrentProject.path & "\" & CurrentProject.Name
 
'Extract the Extension with period
strExtension = Right$(strPathToCurrentDatabase, Len(strPathToCurrentDatabase) - _
                      InStrRev(strPathToCurrentDatabase, ".") + 1)
 
Select Case strExtension
  Case ".accdb"
    MsgBox "The File extension is: " & ".accdb"
  Case ".accde"
    MsgBox "The File extension is: " & ".accde"
  Case Else
    MsgBox "The File extension is: " & strExtension
End Select

This is the best solution for my problem. Thank u!

[ADezii]

This is the best solution for my problem. Thank u!

You are quite welcome, exipnakias.