ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Связь между двумя формами средством VBA
10 сообщений из 10, страница 1 из 1
Связь между двумя формами средством VBA
    #39863133
Pahomsql
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pahomsql
Гость
Здравствуйте, имеется пример БД с формой для выгрузки данных(по всем столбцам) с фильтрацией в Exel. На этой форме также есть возможность скрыть столбцы для отображения. Подскажите пожалуйста, как сделать чтобы при скрытии столбцов это учитывалось и при выгрузке, т.е. как отображены в форме данные так и происходила выгрузка в Exel. Можно ли как-то как прописать ссылку/связь между формами для фильтрации?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub cmdApply_Click()
On Error Resume Next
    With Me.sfrmPreView.Form
        Forms.frmColHidden.chkIsSelect
        .Filter = IIf(Len(.Filter) > 0, .Filter & " And ", vbNullString) & Nz(BuildWhere(Me.cboCondition1.Value, Me.cboFields1, Me.txtValue1.Value, .Recordset.Fields(Me.cboFields1).Type), "")
        .FilterOn = Len(.Filter) > 0
        .Filter = Me.chkIsSelect
    End With
End Sub
...
Рейтинг: 0 / 0
18.09.2019, 07:30
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39863141
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Pahomsqlкак сделать чтобы при скрытии столбцов это учитывалось и при выгрузке, т.е. как отображены в форме данные так и происходила выгрузка в Exel.
Pahomsql, пробеги по форме, прочитай какие поля видны (в примере есть как это сделать), составь строку запроса (учти фильтр), получи набор данных, скинь его на лист Excel. Всё.
PahomsqlМожно ли как-то как прописать ссылку/связь между формами для фильтрации?Можно.

ЗЫ. Пользуйся тэгами оформления кода.
...
Рейтинг: 0 / 0
18.09.2019, 08:04
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39863923
Pahomsql
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pahomsql
Гость
Панург, спасибо за ответ, но не могли вы пожалуйста подсказать в какой процедуре идёт проверка видимости полей?
...
Рейтинг: 0 / 0
19.09.2019, 13:26
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39863943
Pahomsql
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pahomsql
Гость
Панург, и ещё мне не совсем понятно как написать такой запрос, который бы учитывал выбор столбцов через форму «показать/скрыть поля». Проще говоря, мне бы лучше было объединить обе формы в одну, чтобы то, что отображается в sfrmPreView(в данный момент) и выгружалось в Exel
...
Рейтинг: 0 / 0
19.09.2019, 13:40
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39863984
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Pahomsqlв какой процедуре идёт проверка видимости полей?
Pahomsqlвыбор столбцов через форму «показать/скрыть поля»дык тут и определяется. Набор данных формируется.
Если мы говорим о моём примере, этот не смотрел.
...
Рейтинг: 0 / 0
19.09.2019, 14:24
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39864310
Albegx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Albegx
Гость
спасибо за ответ.
...
Рейтинг: 0 / 0
20.09.2019, 00:59
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39864610
Pahomsql
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pahomsql
Гость
Панург, не лучше ли будет сделать фильтрацию по полям такую же как и скрыть/показать? При использовании формы скрыть/показать поля происходит изменение в таблице(фильтрация столбцов), как сделать чтобы фильтр в этой форме применялся как фильтр и для таблицы?
...
Рейтинг: 0 / 0
20.09.2019, 13:54
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39864742
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
В процедуре выгрузки перед ExitHere: вставьте код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    With Me.sfrmPreView.Form.Section(0).Controls
        For i = 0 To .Count - 1
            Select Case .Item(i).ControlType
            Case acTextBox, acComboBox, acCheckBox, 115&, 116&
                If .Item(i).ColumnHidden Then
                    objWSExcel.Columns(i + 1).Delete
                End If
            End Select
        Next
    End With
...
Рейтинг: 0 / 0
20.09.2019, 16:11
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39864758
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
гляньте это(или сформировать строку SQL в зависимости от скрыто\отображено поле):
...
Рейтинг: 0 / 0
20.09.2019, 16:24
| Ответить | Цитировать | Написать  
Связь между двумя формами средством VBA
    #39864835
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Pahomsqlне лучше линет, не лучше. в данном случае данные только не показываются, но никак не изменяется их характер, количество и прочее.
...
Рейтинг: 0 / 0
20.09.2019, 19:33
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Связь между двумя формами средством VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=26&tid=1610467]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 38ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 12ms
total:  165ms
созд. / загр.: 165ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]