Question

我有一个内置的数据库访问我需要创建一个按钮，点击它，它将打开一个与 Employee ID 相关的文件夹问题是员工的文件夹被命名为 John Mich 000321，其中 000321 是 john Employee Id

Answer 1

试试下面的子

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

访问数据库 VB

1 个答案: