Solved

User choose folder in Microsoft Access 2003

Posted on 2008-09-29
2
645 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
ID: 22596403
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
ID: 22597245
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

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
It took me quite some time to sort out all the different properties of combo and list boxes available from Visual Basic at run-time. Not that the documentation is lacking: the help pages are quite thorough and well written. The problem was rather wh…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

910 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

23 Experts available now in Live!

Get 1:1 Help Now