работа с таблицей через форму

@Alia_89 · Регистрация: 26.05.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте.
Нужна написать процедуру которая по нажатию на кнопку будет уменьшать кол-во материала на значение из Поле2.
Когда то на парах делали так, но почему то возникает ошибка. Basic знаю плохо поэтому не могу понять причину.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Кнопка4_Click()
    Dim b As String
    Dim rs As Recordset
   
    b = матер.Text
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM расход WHERE материал =  + b")
    rs.edit
    rs!количество = rs!количество - Поле2
    rs.Update
End Sub

@alvk · 26.05.2012, 17:36

вам нужен update, а не select

Visual Basic
1
2
3
dim sql as string
sql = "update tablica set поле = поле - " & me.Поле2 & " where материал = '" & me.материал & "'"
currentbd.execute sql

@Alia_89 · 28.05.2012, 15:08 **[ТС]**

Спасибо, сделала все как у вас написано, но у меня выдает ошибку "Невозможно обратиться к свойству или методу элемента управления, пока на этот элемент не установлен фокус ввода."
Выделяет всю строку sql=update.....

@andrey_ba · 28.05.2012, 15:28

перед строкой

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

sql=update....

напишите

Visual Basic
1
me.поле2.setfocus

@Alia_89 · 28.05.2012, 15:28 **[ТС]**

Ту ошибку исправила теперь выдает "object required" на "currentbd.execute sql"

@Agapov_stas · 28.05.2012, 15:41

1.

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

currentDB.execute sql

.....
2. Про "text"(ведь именно из-за него выдает ошибку "Невозможно обратиться к свойству или методу элемента управления, пока на этот элемент не установлен фокус ввода." )...
Почему не:

Visual Basic
1
2
3
4
5
dim sql as string
Dim b
b = Me.[матер].Value 'не text, а value..
sql = "update [tablica] set [поле] = [поле] - " & me.Поле2 & " where [материал] = '" & b & "'"
CurrentDb.execute sql

?

3. И еще..По хорошему, в таблице с количеством материала должен храниться код материала, а не текст...И вернее было бы в условии в запросе указывать в WHERE не текст(наименование материала), а код материала..

@alvk · 28.05.2012, 16:30

я в упор не вижу у меня text...

@Agapov_stas · 28.05.2012, 16:33

Не по теме:

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

я в упор не вижу у меня text...

Это у меня стал проявляться дар ясновидения..Думаю, ТС совместила свой вариант с твоим.
Иначе, как обьяснить ошибку на фокус?...скорее всего именно из-за "text"...

@Alia_89 · 28.05.2012, 16:34 **[ТС]**

Спасибо все работает))

mobile · 28.05.2012, 16:36

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

я в упор не вижу у меня text...

Ну, как же? Строка 5 исходного текста в первом сообщении топика. :-)

Виноват. Перепутал alvk с топикстартером. alvk, прошу прощения :-(
А как удалить свое сообщение, не знаю.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Alia_89 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 4
	28.05.2012, 15:08 [ТС]
	Спасибо, сделала все как у вас написано, но у меня выдает ошибку "Невозможно обратиться к свойству или методу элемента управления, пока на этот элемент не установлен фокус ввода." Выделяет всю строку sql=update..... 0

@Alia_89 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 4
	28.05.2012, 15:28 [ТС]
	Ту ошибку исправила теперь выдает "object required" на "currentbd.execute sql" 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	28.05.2012, 16:30
	я в упор не вижу у меня text... 0

@Alia_89 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 4
	28.05.2012, 16:34 [ТС]
	Спасибо все работает)) 0