Vba 语句中的更新SQL错误

我正在尝试使用UPDATE语句，但我一直遇到错误。。。 我就是不知道我做错了什么

    Private Sub Command85_Click()
Dim sqlstrcombo83 As String
Dim strSQL As String
Dim sqlstrcombo79 As String

sqlstrcombo83 = IsNull(Me.Combo83)
If sqlstrcombo83 = False Then
    sqlstrcombo83 = " tbl_Import! " & "[" & Me.Combo83 & "]"
    Else
    sqlstrcombo83 = " "
End If

sqlstrcombo79 = IsNull(Me.Combo79)
If sqlstrcombo79 = False Then
    sqlstrcombo79 = Me.Combo81 & "." & "[" & Me.Combo79 & "]"
    Else
    sqlstrcombo79 = " "
End If

With CurrentData

    For Each aob In .AllTables
    If aob.IsLoaded Then
    DoCmd.Close acTable, aob.Name, acSaveYes
    End If
    Next aob
End With

strSQL = " UPDATE " & Me.Combo81 & _
              " SET " & (sqlstrcombo79) = (sqlstrcombo83) & _
            " WHERE " & [tbl_Import]![pnr] = Me.Combo81.[pnr]        

DoCmd.RunSQL strSQL
End Sub

要更新的表取自组合框（combo81）。 要插入的字段是combo79，要复制的字段是combo83。 [pnr]对于两个表都是通用的

代码没有运行。。。出现错误，说明找不到对象

谁能指出我做错了什么

---

提前感谢..

我发现您的代码中有一些错误，至少您没有替换update语句中的“=”：

strSQL = " UPDATE " & Me.Combo81 & _
         " SET " & (sqlstrcombo79) &  "=" & (sqlstrcombo83) & _
         " WHERE " & [tbl_Import]![pnr] & "=" & Me.Combo81.[pnr]     

---

如果仍然失败，请尝试提供strSQL的值以查看实际运行的内容。

谢谢，我更改了SQL。。。我仍然有一个错误。。。在WHERE语句中，我认为它与“[]”有关。。。。。。。错误是MS Access无法读取字段[…。我认为它没有读取表和字段的名称…您能显示它试图运行的完整SQL吗？（strSQL的值）我有一个msgbox来显示SQL…但在此之前它失败了…并显示错误..msgbox不会出现…但是如果我删除WHERE语句并运行msgbox，它会出现…我想我.combobox81.[pnr]…这里有问题…它是无效引用。。。