使用变量的紧凑型数据库
Compact database using variable
我有以下代码:
Dim location As String
location = DLookup("[db_location]", "locationandsetup")
DBEngine.CompactDatabase "'" & location & "'\ReadinessDatabase_Backend.accdb", "'" & location & "'\ReadinessDatabase_Backup.accdb"
当我付诸行动时,它显示 "not a valid file name"。文件名是正确的,变量 "location" 显示了正确的位置,所以我不明白为什么它说它不是一个有效的文件名。有什么想法吗?
使用该变量的原因是因为用户在 运行 第一次设置时选择数据库所在的位置,然后将其存储到 table 中。然后,只要他们需要该位置来在数据库中执行任何操作,它将使用存储在 table 中的位置。这个方法我已经用在很多潜艇上了,没有任何问题,只是在这一个动作中它不起作用。
编辑:
db_location 是路径
Locationandsetup 是 table
当我将 table 中的路径复制并粘贴到 VBA 中时,替换变量,它起作用了。
去除引号:
DBEngine.CompactDatabase location & "\ReadinessDatabase_Backend.accdb", location & "\ReadinessDatabase_Backup.accdb"
我有以下代码:
Dim location As String
location = DLookup("[db_location]", "locationandsetup")
DBEngine.CompactDatabase "'" & location & "'\ReadinessDatabase_Backend.accdb", "'" & location & "'\ReadinessDatabase_Backup.accdb"
当我付诸行动时,它显示 "not a valid file name"。文件名是正确的,变量 "location" 显示了正确的位置,所以我不明白为什么它说它不是一个有效的文件名。有什么想法吗?
使用该变量的原因是因为用户在 运行 第一次设置时选择数据库所在的位置,然后将其存储到 table 中。然后,只要他们需要该位置来在数据库中执行任何操作,它将使用存储在 table 中的位置。这个方法我已经用在很多潜艇上了,没有任何问题,只是在这一个动作中它不起作用。
编辑: db_location 是路径 Locationandsetup 是 table
当我将 table 中的路径复制并粘贴到 VBA 中时,替换变量,它起作用了。
去除引号:
DBEngine.CompactDatabase location & "\ReadinessDatabase_Backend.accdb", location & "\ReadinessDatabase_Backup.accdb"