|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.05.2017, 10:30 | #1 |
Пользователь
Регистрация: 26.04.2017
Сообщений: 86
|
Access.VBA Изменение данных по условию
Доброго времени суток
Хочу сделать программку, которая добавляла бы "0" в выбранное поле выбранной таблицы. Но, не во все записи поля, а только в те, где длина записи - 5 символов (т.к. нужная длина - 6 символов и нуля может не хватать ошибочно). Опираясь на свои колоссальные(сарказм) познания VBA, я написал код: Код:
Код:
P.S. Формат БД - 2002-2003 Access Библиотеки: Visual Basic For Applications Microsoft Access 14.0 Object Library OLE Automation Microsoft Office 14.0 Access database engine Object Library Microsoft ActiveX Data Objects 2.1 Library Microsoft Word 14.0 Object Library Microsoft Office 14.0 Object Library |
18.05.2017, 10:38 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Код:
имхо, Ваш подход неверен. Так как если rs будет больше 1 записи, вы будете сравнивать длину первой записи
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. Последний раз редактировалось Aleksandr H.; 18.05.2017 в 10:55. |
18.05.2017, 10:38 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
у вас в fd находится название поля?
тогда так попробуйте: Код:
|
18.05.2017, 11:17 | #4 |
Пользователь
Регистрация: 26.04.2017
Сообщений: 86
|
Aleksandr H., Serge_Bliznykov спасибо, ошибка пропала.
Однако программа работает не так, как нужно. Начал тестировать на табличке. Вставляет ноль, если первая запись поля из 5 символов, иначе ничего не происходит. И, вставляет в каждую запись поля, а не только туда, где запись из пяти символов В коде чего-то не хватает upd Aleksandr H., действительно. Сейчас опробую предложенный вами способ Последний раз редактировалось Ethex; 18.05.2017 в 11:22. |
18.05.2017, 12:03 | #5 | |
Пользователь
Регистрация: 26.04.2017
Сообщений: 86
|
Aleksandr H. попробовал ваш вариант, изменений в таблице не происходит
По поводу Цитата:
Код:
Последний раз редактировалось Ethex; 18.05.2017 в 12:17. |
|
18.05.2017, 12:57 | #6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
странно, у меня меняло
ATT.jpg Неа. Вариант2: Код:
Код:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. Последний раз редактировалось Aleksandr H.; 18.05.2017 в 13:17. |
18.05.2017, 20:43 | #7 |
Пользователь
Регистрация: 26.04.2017
Сообщений: 86
|
Aleksandr H.
Сработал, спасибо большое. Варианты с Format записал в тетрадь, потестирую как время будет, сейчас другие задачи передо мной поставили. Хотел было ответить, что ранее в других модулях сравнивал длину текстовой строки с числом, но увидел, что в тех случаях она не была объявлена как строковая переменная |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA, Access, Импорт данных | Ethex | Помощь студентам | 5 | 05.05.2017 22:43 |
VBA, Access, Размножение данных | Ethex | Microsoft Office Access | 13 | 04.05.2017 23:03 |
Изменение диапазона данных точечной диаграммы через переменные VBA | ymnuhj | Microsoft Office Excel | 3 | 05.05.2016 18:59 |
Реализовать возможность поиска по заданному условию по одной из таблиц БД (есть программа Delphi база данных Access) | carrie bradshaw | Помощь студентам | 3 | 27.03.2014 22:20 |
Изменение данных в таблице access | AD_min | БД в Delphi | 2 | 27.10.2008 12:23 |