|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.01.2019, 11:00 | #1 |
Пользователь
Регистрация: 10.12.2018
Сообщений: 23
|
Выборка из таблицы с помощью формы
Уважаемые программисты и любители VBA, думаю тема избитая, но я недавно этим занимаюсь и не могу найти решения, помогите пожалуйста
Как пример: В таблице в столбце "Отдел" Иванов повторяется три раза и в столбце "№ выезда" 'номер 1230 повторяется три раза, т.е в столбце "код" имеется три одинаковых записи Иванов1230 Код получается: столбец "Отдел"&столбец "№ выезда(А2=B2&C2). При заполнении СB1 Иванов и ТВ2 1230 формы в ТВ3 автоматически записывается код который нужно найти в таблице. Затем на форме в текст боксы TB4,TB5,TB6 автоматически заносятся соответствующие значения строк по столбцам из таблицы. Далее, помогите пожалуйста ! Если по коду в таблице найдено записей больше чем одна... Как сделать так, чтобы в TB4,TB5,TB6 формы циклично (при нажатии кнопки на форме"Следующая запись" отобразились последующие данные , соответствующие коду. Описание задачи есть в самом файле в коде VBA на форме. Заранее благодарен Последний раз редактировалось Vladimir_Der; 07.01.2019 в 11:08. |
07.01.2019, 18:45 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Один с вариантов
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
10.01.2019, 20:20 | #3 |
Пользователь
Регистрация: 10.12.2018
Сообщений: 23
|
Александр, большое спасибо за участие, попробую разобраться с кодом, но пока не работает, спотыкается на строчке
UserForm1.TB4.Text = .Cells(aRowsNr(iCurrRecord), 4), при просмотре выдает значение iCurrRecord=0 (Пробую по Иванову где три записи) и выдает ошибку out of range Следующие постоянные Dim iRecordCount As Integer Dim iCurrRecord As Integer Dim aRowsNr() As Integer я поместил во внутрь блока Private Sub CommandButton2_Click() иначе сразу выдавалась ошибка Может быть в этом и ошибка, что я их неправильно объявляю? Последний раз редактировалось Vladimir_Der; 10.01.2019 в 20:23. |
10.01.2019, 20:28 | #4 |
Пользователь
Регистрация: 10.12.2018
Сообщений: 23
|
Александр, большое спасибо за участие, попробую разобраться с кодом, но пока не работает, спотыкается на строчке
UserForm1.TB4.Text = .Cells(aRowsNr(iCurrRecord), 4), при просмотре выдает значение iCurrRecord=0 (Пробую по Иванову где три записи) и выдает ошибку out of range Следующие постоянные Dim iRecordCount As Integer Dim iCurrRecord As Integer Dim aRowsNr() As Integer я поместил во внутрь блока Private Sub CommandButton2_Click() иначе сразу выдавалась ошибка Может быть в этом и ошибка, что я их неправильно объявляю? |
10.01.2019, 20:54 | #5 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
https://youtu.be/0wQ-tWtMt80
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
11.01.2019, 19:57 | #6 |
Пользователь
Регистрация: 10.12.2018
Сообщений: 23
|
Александр, огромное спасибо! Все работает. Теперь буду знать как объявлять переменные, ранее я не работал с ними.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выборка из таблицы | shtep | PHP | 1 | 17.05.2012 20:40 |
Выборка из таблицы | aimk0 | БД в Delphi | 10 | 14.10.2010 10:39 |
Выборка выборка с таблицы с отношением многие-ко-многим | 8alig8 | БД в Delphi | 2 | 24.06.2010 12:21 |
Выборка из таблицы | Kenny Spark | Microsoft Office Excel | 4 | 16.07.2009 15:15 |
выборка из таблицы | Screame | Microsoft Office Excel | 2 | 12.07.2009 19:55 |