UPDATE SQL ошибка в заявлении

Question

Я пытаюсь использовать оператор 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 

таблица будет Обновлено взято из окна Combo (combo81). Вводимое поле - combo79, а поле для копирования - combo83. [pnr] является общим для обеих таблиц.

код не запускается ... ошибка показывает вверх с указанием объекта не найден ..

может кто-нибудь, пожалуйста Укажите, что я делаю неправильно

заранее спасибо ..

Answer 1

я вижу I несколько ошибок в коде, по крайней мере, вам не хватает для усиков на «=» заявлении обновления:

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

Если по-прежнему не удается, попробуйте предоставить значение strSQL, чтобы увидеть, что года u на самом деле запущены.