How to Locate a file names and launch it from a file path in MS Access 2007 using a button click

Question

0.00/5 (No votes)

See more:

Please I am new in VBA access database and my background programming language has been focused on C#

I have a task to launch a specific file name (all files in doc, xls, etc) from the same directory path when the user click on a button for each specific file name.

I have been googling and used different approach still it seemed not to work.

I tried this:

Private Sub FileMsReports_Click()

Dim f As Object

Set f = Application.FileDialog(3)

f.AllowMultiSelect = True

If f.Show Then
    For i = 1 To f.SelectedItems.Count
        sFile = FileName(f.SelectedItems(i), sPath)
        MsgBox sPath & "---" & sFile
    Next
End If
End Sub

Public Function FileName(ByVal strPath As String, sPath) As String
    sPath = Left(strPath, InStrRev(strPath, "\"))
    FileName = Mid(strPath, InStrRev(strPath, "\") + 1)

End Function

I ended up getting a file dialog show up but it is not actually what my supervisor wanted me to do!
I am still like less a year in programming and right now this is a task giving to me for the place of my Practicum.

Please I need someone to help me out and direction on how to go about this.

Thanks in advance.

Posted 18-Dec-13 9:00am

Chukse

Updated 18-Dec-13 10:15am

Maciej Los

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2013-12-18T12:13:00

All you need to do is:

Create table[^] to store file names

SQL

CREATE TABLE MyFiles (MyFile CHAR);

Create new form[^] and drop on it ListBox control
Drop a Button control and create OnClick event
Bind ListBox[^] with MyFiles table
Go to form module[^] and create new procedure EnumMyFiles

VB

Private Sub EnumMyFiles()
'body of the procedure
End Sub

Inside the body of EnumMyFiles procedure:

Clear ListBox using RowSource[^] property

VB

Listbox.RowSource = ""

Remove all data from table (How? See point no. 5 - last sentence)

VB

DELETE * FROM MyFiles;

define variable to store initial directory - this databse path[^]
loop through the collection of files using Dir function (VB)[^] function.
Insert each file name which corresponds to the extension into database using DoCmd.RunSQL[^] method

VB

DoCmd.RunSQL "INSERT INTO MyFiles (MyFile) VALUES('" & sFileName & "');"

(re)Bind ListBox

VB

LisBox.RowSource = "MyFiles"

Inside Button_Click procedure call EnumMyFiles procedure

VB

Privare Sub Button_Click()
    EnumMyFiles
End Sub

Save changes and test it