[AccessD] Opening an exployer window in access

Dale Kalsow dkalsow at yahoo.com
Mon May 21 13:26:45 CDT 2012


Good Afternoon,
 
I have the following code running behind a button in VBA:
 
Private Sub btnFileShare_Click()
    Dim strDirectory As String
    
    strDirectory = strMasterPath & Me!txtCaseID.Value
    
    If Dir(strDirectory, vbDirectory) = "" Then
        CreateDirectory (strDirectory)
    End If
    Dim X As Variant
    X = Shell("C:\windows\explorer.exe " & strDirectory, vbNormalFocus)
    
End Sub
Public Sub CreateDirectory(sPath As String)
    On Error GoTo DirectoryError
    
    Dim sPathPart As String
    Dim i As Integer
        
    MkDir sPath
    Exit Sub
    
DirectoryError:
    Resume Next
    
End Sub
 
 
If is working properly.  My question is can the window that opens be contained in a tab on an access tab.  In other words, I have one tab for general client information.  One tab for payments from that client.  And one tab for a fileshare where the user can please any documents relating to the client.
 
Thanks!
 
Dale
 

________________________________
 From: jwcolby <jwcolby at colbyconsulting.com>
To: Access Developers discussion and problem solving <accessd at databaseadvisors.com> 
Sent: Monday, May 21, 2012 8:53 AM
Subject: [AccessD] Blatt or other email
  
Does anyone have a "plug and play" library for an email package other than Outlook?  I need to send email with attachments.  I am hoping that someone has written a module for Access which I can just drop in, place a dll or something in a known location and start sending email.

-- John W. Colby
Colby Consulting

Reality is what refuses to go away
when you do not believe in it

-- AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


More information about the AccessD mailing list