ник: SergeyKV
Уважаемый час! я сделал вот так (благодаря вашей наводке 
) :
Private Sub Кнопка1_Click()
Dim dbs As Database
Dim strSQL As String
' Возвращает ссылку на текущую базу данных.
Set dbs = CurrentDb
' Создает строку SQL.
strSQL = "UPDATE Пластик SET ДЧИ = True"
' Выполняет запрос на изменение.
dbs.Execute strSQL
' Возвращает число обновленных записей.
Debug.Print dbs.RecordsAffected
Set dbs = Nothing
End Sub
|
А иначе висит и висит , считает что то .....