vba - Access Database VB

Question

I have a database built in access I need to create a button where I click it and it will open a folder related to Employee ID the problem is that the employee's folders are named as John Mich 000321 where the 000321 is john Employee Id

question from:https://stackoverflow.com/questions/65651439/access-database-vb

Answer 1

Try below sub

Private Sub cmdOpenEmpFolder_Click()
Dim partialName As String, partialFolder As String
Dim folderName As String
Dim folderfullPath As String

    partialName = CStr(Me.txtEmployeeID)

    partialFolder = Application.CurrentProject.Path & ""
    folderName = Dir(partialFolder & "*" & partialName, vbDirectory)
    folderfullPath = partialFolder & folderName
    Debug.Print "explorer.exe " & Chr(34) & folderfullPath & Chr(34)
    Shell "explorer.exe " & Chr(34) & folderfullPath & Chr(34), vbNormalFocus
    
End Sub