Trouble defining variables

[David92595]

Hello,

I am having problems opening up a windows shell to a file path in a Module Function. I have it working as a sub, but am trying to convert to a module so it can be centrally located.

I can get a basic explorer window to open
RetVal = Shell("explorer.exe ")

However, when I try to put in a file path with variables I start getting errors. I think my problem is defining the location of my variables. Particularly, LN (Loan Number) and Client_Name
Here is my code:

Function Loan_Folder_Search2()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT LN FROM [Loan_Info_Local]")
Dim LN As String
LN = rs![LN]
Dim Client_Name As String
Client_Name = rs![Client_Name]
Dim RetVal As String
Dim LFPath As String

Dim aPath As String
aPath = LN

If Client_Name Like "Bank of David *" Then
LFPath = "\\MSERVER\MDefault\BOD\"
RetVal = Shell("explorer.exe " & LFPath & aPath, vbNormalFocus)

Else
MsgBox "Either Client Name is Unknown or Client does not have a loan folder for this LN#.  Please Check to see if a Loan folder exists for this LN# or see your supervisor for directions."
End If

End Function

apath is a needed secondary variable. There are cases where I have to do some case specific changes to LN.

As Always, any help would be greatly apprechated.
Thank you,
David92595

 

[jdraw]

David92595,

When you cross post, please advise the readers that you have done so.

http://www.utteraccess.com/forum/Opening-Windows-Explorer-t1996774.html

Here is the rationale for advising readers.
http://www.excelguru.ca/content.php?184-A-message-to-forum-cross-posters

 

[David92595]

My apologies, I will do so in the future.

David92595