Private Sub _Click()
CurrentDb.Execute "UPDATE[A_AAF^2]SET[A_AAF_A^S1]=" & Me.[G_AAK_A^S4]& " WHERE[A_AAF^KO]=2"
End Sub
Если данные Me.[G_AAK_A^S4] числовые идет обновление. Если текстовые выдает ошибку ошибка 3061, слишком мало параметров, требуется 2. Формат с числового на текстовое меняю.