Solved

User choose folder in Microsoft Access 2003

Posted on 2008-09-29
2
643 Views
Last Modified: 2013-11-28
In my system I want the user to be able to set the systemfolder so the database, templates and other files can be moved. Today I use only a textfield, but it would be nice if the user could choose folder by browsing to the folder with a dialogbox.

Thank you!
0
Comment
Question by:hke72
2 Comments
 
LVL 84

Accepted Solution

by:
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 250 total points
Comment Utility
This link has code and examples of using a folder browser:

http://www.mvps.org/access/api/api0002.htm
0
 
LVL 10

Expert Comment

by:therealmongoose
Comment Utility
here's a useful function to achieve this. You can also set a default path to start the browse... Please note you need to set a reference to the shell32.dll (vba editor, tools, references... browse for the dll

To use the function, have a text field (or code variable) which is populated from a command button

me.txtfield = fncBrowseForFolder("Select a folder", "C:\")


Option Explicit
 

'Browse for folder function - allows selection of start folder (strRoot argument)

'requires reference to "c:\windows\system32\shell32.dll to be set in tools menu
 

Private Const BIF_RETURNONLYFSDIRS = &H1
 

Function fncBrowseForFolder(strTitle As String, strRoot As String) As String
 

On Error GoTo fncBrowseForFolder_error
 

    Dim shlObj As Shell

    Dim fldFolder As Folder

    Dim strFolder As String

    

    Set shlObj = New Shell

    Set fldFolder = shlObj.BrowseForFolder(hWndAccessApp, strTitle, BIF_RETURNONLYFSDIRS, strRoot)

    Set shlObj = Nothing

    

    strFolder = fldFolder.Self.Path

        

    Set fldFolder = Nothing

    

fncBrowseForFolder_exit:
 

    fncBrowseForFolder = strFolder

    Exit Function

    

fncBrowseForFolder_error:

    

    If Err.Number <> 91 Then 'object error = user pressed cancel - folder not created

        MsgBox Err.Number & " - " & Err.Description

    End If

    

    Resume fncBrowseForFolder_exit

    

End Function

Open in new window

0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Most if not all databases provide tools to filter data; even simple mail-merge programs might offer basic filtering capabilities. This is so important that, although Access has many built-in features to help the user in this task, developers often n…
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now