如何处理错误490？

Question

在我的访问数据库中，我有一个客户列表，每个客户端都有名字，姓氏，ID等等...... 此外，每个客户端都有一个我为他预先打开的文件夹（只读文件夹），里面有关于他的文件。我创建了一个按钮来打开该特定文件夹，但它一直给我：

  

运行时错误490：无法打开指定的文件

VB代码：

Private Sub Command47_Click()
    Dim strInput As String
    strInput = Forms![frmCostumer]![lName]
    Application.FollowHyperlink "D:\SkyDrive\klienti\strInput"
End Sub

表单名称为frmCostumer，文件夹以客户端的姓氏命名（名为lName）。

Answer 1

您正在传递Application.FollowHyperlink一个常量"string literal"，指定一个显然不存在的文件夹。试试这个：

Application.FollowHyperlink "D:\SkyDrive\klienti\" & strInput