Обновление данных в сторонней таблице

[nikolaynn2008]

Всем привет...подскажите пожалуйста...матерится код в VBA...
Делаю обычный запрос на обновление работает, но мне нужно в VBA
не срабатывает UpdateSQL

Private Sub AddIncome()
Dim rs As DAO.Recordset
Dim UpdateSQL As String
Set rs = CurrentDb.OpenRecordset("Operation", dbOpenDynaset)
rs.AddNew
rs!TYPE_ID = Me!TYPE_ID
rs!FROM_AMOUNT = Me!FROM_AMOUNT
rs!FROM_SOURCE_ID = Me!FROM_SOURCE_ID
rs!FROM_SUBSOURCE_ID = Me!FROM_SUBSOURCE_ID
rs!TO_STORAGE_ID = Me!TO_STORAGE_ID
rs!FROM_CURRENCY = Me!FROM_CURRENCY
rs!DATEt = Me!DATETIME
rs!DESCRIPTION = Me!DESCRIPTION
rs.Update
rs.Close
Set rs = Nothing

UpdateSQL = "UPDATE [Currency] SET [Currency].AMOUNT + " & Me.FROM_AMOUNT & "" _
            " WHERE ([Currency].ID = " & FROM_CURRENCY & ");"


Me.FROM_AMOUNT.Value = Null
Me.FROM_SOURCE_ID.Value = Null
Me.FROM_SUBSOURCE_ID.Value = Null
Me.TO_STORAGE_ID.Value = Null
Me.FROM_CURRENCY.Value = Null
Me.DESCRIPTION.Value = Null


End Sub

[Aleksandr H.]

сформировал какую-то строку UpdateSQL, логично ее бы в дело пустить, DoCmd.RunSQL что-ли.

"UPDATE [Currency] SET [Currency].AMOUNT + " & Me.FROM_AMOUNT & "" _
" WHERE ([Currency].ID = " & FROM_CURRENCY & ");"

"+" точто в записи должен присутствовать?
да и вообще по фразе

Сообщение от nikolaynn2008

матерится код в VBA...

только тру кодеры могут сказать проблему, мы же, простые юзеры, если хочем помочь, требуем привести код ошибки, описание и строку возникновения

[nikolaynn2008]

Сообщение от Aleksandr H.

DoCmd.RunSQL что-ли.

Да Да да...так и сделал..спасибо

DoCmd.RunSQL "UPDATE [Currency] SET [Currency].AMOUNT = [AMOUNT]+[Формы]![NewItems]![FROM_AMOUNT] WHERE (((Currency.ID)=[Формы]![NewItems]![FROM_CURRENCY]));", 1