Get just the name of the file and not the full path

[Ruegen]

If I used currentdb.name



I get the full path and the file name.

I want only the file name not the full path.

Is there a separate property for that??

[June7]

Not that I am aware of. It is simple enough to extract from the full path with string manipulation functions.

[Ruegen]

Not that I am aware of. It is simple enough to extract from the full path with string manipulation functions.

yeah I am using

'gets the name of the file and makes it skip to staff and not admin if missing "A" character on frontend file title
Dim sFullPath As String
Dim sFullFilename As String
Dim sFilename As String


sFullPath = CurrentDb.Name
sFullFilename = Right(sFullPath, Len(sFullPath) - InStrRev(sFullPath, "\"))
sFilename = Left(sFullFilename, (InStr(sFullFilename, ".") - 1))


If sFilename <> "DatabaseFrontEndA" Then
DoCmd.OpenForm "frmSplashscreen"
DoCmd.Close acForm, "frmOPEN"
Exit Sub
End If

Question - can you de-reference a library from VBA? I have runtime users which if the outlook library is checked then they can't use the database (get a nice error) so I would like to disable it before the runtime users load...

[June7]

Bing: Access vba unselect library reference

See if this helps.
http://www.vbaexpress.com/kb/getarticle.php?kb_id=272

[Ruegen]

Bing: Access vba unselect library reference

See if this helps.
http://www.vbaexpress.com/kb/getarticle.php?kb_id=272

It sort of does but that is for excel - I need to uncheck the reference for the access database (probably currentDB?)

[June7]

Couldn't hurt to try the adaptation.

[Ruegen]

Couldn't hurt to try the adaptation.

I didn't get anywhere.

I tried

http://www.access-programmers.co.uk/...ad.php?t=92526

however because it is runtime I have to do the check before everything else starts to avoid the problem.

(This is what I am trying to avoid- )

[Ruegen]

ok hoping something like this will work

Private Sub Form_Open(Cancel As Integer)




Dim refItem As Reference


On Error Resume Next


For Each refItem In References
If refItem.IsBroken Then
MsgBox "reference " & refItem & " is broken, which is normal."
References.Remove refItem
End If




Next refItem



End Sub

[Ruegen]

Do you think I should deactivate it then perhaps activate it when an "admin" user logs in?

[Ruegen]

I removed the reference then added the references when the admin enter's their area using:

Dim strPath As StringDim strR As Reference
        'name of path of office outlook library needed to do emails
        strPath = "C:\Program Files (x86)\Microsoft Office\Office14\MSOUTL.OLB"


For Each strR In Access.References
    If strR.FullPath = strPath Then
    MsgBox strPath
    Access.References.Remove strR
    End If
Next strR


               'checks if it is there to use
               If FileExists(strPath) Then
        
               'add the reference
               References.AddFromFile (strPath)
               
               'do rest of tasks
               DoCmd.Minimize
               DoCmd.OpenForm "frmOffice", acNormal
                
               Else
        MsgBox "You can't use admin because you don't have the nessesary outlook library, the application will now close - please talk to admin."
        Access.Quit
End If

[Ruegen]

This really is a temp fix until I figure out how to remove the reference on application load.

I still have to remove the reference on close for it to work effectively until I get a proper fix.

[June7]

An alternative to Outlook is using CDO for email. Doesn't require Outlook library reference.

[Ruegen]

An alternative to Outlook is using CDO for email. Doesn't require Outlook library reference.

yes but it won't integrate with Outlook which is what the users want.

For generic tasks like no-reply emails I will use CDO