字符串不能作为表名 - 访问 VBA -

Question

以下代码的开头应该是获取表单文本框中文件名的BaseName，并将其设置为字符串“tblnewbid”。 Debug.Print tblnew 出价完全按照预期打印出正确的表名称。我验证了字符完全匹配，并且有一个与该名称匹配的实际表。

当我运行代码时出现错误：找不到表或约束。如果我手动将 tblnew 更改为实际的表名，则代码运行良好。难道我需要将 tblnewbid 调暗为字符串以外的东西吗？

Private Sub btnInsertRegions_Click()

DoCmd.Hourglass True  ' turn on Hourglass


Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim FSO As New FileSystemObject
Dim tblnewbid As String

Set db = CurrentDb
tblnewbid = FSO.GetBaseName(Me.txtFileName)


Debug.Print tblnewbid

db.Execute "ALTER TABLE tblnewbid ADD COLUMN O_StateRegion CHAR", dbFailOnError
db.Execute "ALTER TABLE tblnewbid ADD COLUMN D_StateRegion CHAR", dbFailOnError

Set rs = db.OpenRecordset("Select [OriginState] from [tblnewbid];")

rs.MoveFirst

    strSQL = "UPDATE [tblnewbid] INNER JOIN [tblStates]"
    strSQL = strSQL & " ON [tblStates].[StateAbbrev] = [tblnewbid].[OriginState]"
    strSQL = strSQL & " SET [tblnewbid].[O_StateRegion]=[tblStates].[StateRegion]"


    db.Execute (strSQL), dbFailOnError


rs.MoveFirst

    strSQL = "UPDATE [tblnewbid] INNER JOIN [tblStates]"
    strSQL = strSQL & " ON [tblStates].[StateAbbrev] = [tblnewbid].[DestinationState]"
    strSQL = strSQL & " SET [tblnewbid].[D_StateRegion]=[tblStates].[StateRegion]"


    db.Execute (strSQL), dbFailOnError

rs.Close

Set rs = Nothing

Answer 1

当你将一个变量放在双引号内时，它不再是一个变量，而是一个文字字符串。

您想要做的是对变量进行评估，然后将其放置在字符串中。您可以通过串联来做到这一点：

即：

db.Execute "ALTER TABLE " & tblnewbid & " ADD COLUMN O_StateRegion CHAR", dbFailOnError

将此连接应用于需要评估变量的每一行。