Цикл по записям в текстовом поле формы

@dpantin · Регистрация: 13.12.2017

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

Добрый день!

Подскажите пожалуйста, как обработать несколько записей из текст бокса в форме.

Юзеры вставляют список серийныйх номеров в текст бокс (поле KKS), выбирают другие параметры в оставшихся текст боксах. Серийные номера разделены Enter. Для каждого серийного номера нужно сделать запись в таблицу с данными из других полей этой же формы.

Наверное, надо сделать цикл, но как пробежаться по этим значениям из текст бокса? Засунуть их в рекордсет?

Я приложил скрин с формой, чтобы было более понятно.

Спасибо за помощь.

@ltv_1953 · 05.06.2019, 10:45

Посмотрите функцию Split. На форуме много примеров ее использования.

@Панург · 05.06.2019, 10:46

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

Наверное, надо сделать цикл, но как пробежаться по этим значениям из текст бокса? Засунуть их в рекордсет?

наверное надо было сделать давно отдельную таблицу для хранения серийных номеров, а на форме сделать подчинённую форму (ленточную). И не надо было бы ничего никуда засовывать.

@Eugene-LS · 05.06.2019, 10:50

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

Наверное, надо сделать цикл, но как пробежаться по этим значениям из текст бокса? Засунуть их в рекордсет?

Правильно!

Visual Basic
1
2
3
4
5
6
7
8
9
Dim s$, i%
Dim vArr As Variant
   
    s = Me!txtTestMemo & ""
    vArr = Split(s, vbCrLf) 'Разделитель = перевод строки
    
    For i = LBound(vArr) To UBound(vArr)
        Debug.Print vArr(i)
    Next i

@dpantin · 05.06.2019, 10:57 **[ТС]**

Спасибо за ответ, но вы, наверное, (или всё-таки я) что-то не поняли. Таблица с серийными есть, но юзеры хотят копировать серийники из других источников, встаить в форму и в один клик ввести для всех одинаковые данные.

Добавлено через 3 минуты
Юджин-ЛС, большое спасибо! Очень похоже на то, что нужно!
Я попробую.

@Eugene-LS · 05.06.2019, 10:59

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

Я попробую.

С Recordset!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'
Dim s$, i%, iCount%
Dim vArr As Variant
Dim rst As Recordset
   
    s = Me!txtTestMemo & ""
    vArr = Split(s, vbCrLf) 'Разделитель = перевод строки
    
    
    Set rst = CurrentDb.OpenRecordset("DataTest", dbOpenDynaset)
    With rst
        For i = LBound(vArr) To UBound(vArr)
            'Debug.Print vArr(i)
            .AddNew
            !TestTextPole = vArr(i)
            .Update
            iCount = iCount + 1
        Next i
    End With
    
    On Error Resume Next
    rst.Close
    Set rst = Nothing
    
    MsgBox "Успешно добавлено " & iCount & " записей.", vbInformation

Названия только на свои поменяйте ...

@dpantin · 05.06.2019, 11:20 **[ТС]**

Юджин, спасибо, работает!

Спасибо вам большое! Хорошего дня!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@dpantin 1 / 1 / 0 Регистрация: 13.12.2017 Сообщений: 33

	Цикл по записям в текстовом поле формы 05.06.2019, 10:40. Показов 1478. Ответов 6 Метки поле ввода, форма, цикл (Все метки) Добрый день! Подскажите пожалуйста, как обработать несколько записей из текст бокса в форме. Юзеры вставляют список серийныйх номеров в текст бокс (поле KKS), выбирают другие параметры в оставшихся текст боксах. Серийные номера разделены Enter. Для каждого серийного номера нужно сделать запись в таблицу с данными из других полей этой же формы. Наверное, надо сделать цикл, но как пробежаться по этим значениям из текст бокса? Засунуть их в рекордсет? Я приложил скрин с формой, чтобы было более понятно. Спасибо за помощь. Миниатюры 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	05.06.2019, 10:45
	Посмотрите функцию Split. На форуме много примеров ее использования. 0

@dpantin 1 / 1 / 0 Регистрация: 13.12.2017 Сообщений: 33
	05.06.2019, 10:57 [ТС]
	Спасибо за ответ, но вы, наверное, (или всё-таки я) что-то не поняли. Таблица с серийными есть, но юзеры хотят копировать серийники из других источников, встаить в форму и в один клик ввести для всех одинаковые данные. Добавлено через 3 минуты Юджин-ЛС, большое спасибо! Очень похоже на то, что нужно! Я попробую. 0

@dpantin 1 / 1 / 0 Регистрация: 13.12.2017 Сообщений: 33
	05.06.2019, 11:20 [ТС]
	Юджин, спасибо, работает! Спасибо вам большое! Хорошего дня! 0

Цикл по записям в текстовом поле формы

Решение