Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2013, 10:19   #41
Emmelman
Пользователь
 
Регистрация: 27.11.2012
Сообщений: 84
По умолчанию

Дайте совет,пожалуйсто! вот такая форма, внизу куча чекбоксов для фильтрации данных. Я написал около 30 условий для реализации фильтрации. Пять чекбоксов,значит может быть Т Т Т Т Т (где Т - это True) и F F F F F (где F - это false), ну и по аналогии остальные варианты,заманался их выдумывать. И тут мне дали задачу добавить шестой чекбокс, тип будет T T T T T T, и мой вопрос в том - можно ли это сделать как-то проще? На втором скрине показано то, как у меня сейчас код выглядит weekly.JPG weekly sql.jpg

Мне не в падлу написать еще кучу условий, но просто может есть метод поэлегантней?
Emmelman вне форума Ответить с цитированием
Старый 28.02.2013, 11:16   #42
Андрэич
Форумчанин
 
Аватар для Андрэич
 
Регистрация: 20.05.2012
Сообщений: 311
По умолчанию

"Элегантней" собирать строку (в предложении Where запроса) рекордсурса динамически в коде VBA:
см, например, http://allenbrowne.com/ser-62.html или прилож файл
Вложения
Тип файла: rar la_find.rar (46.5 Кб, 6 просмотров)

Последний раз редактировалось Андрэич; 28.02.2013 в 11:20.
Андрэич вне форума Ответить с цитированием
Старый 01.03.2013, 02:11   #43
alvk
Форумчанин
 
Регистрация: 22.05.2012
Сообщений: 136
По умолчанию

Не видно всего текста, три первых вообще одинаковые. Раз текста нет, то могу только в общих чертах посоветовать:
1. Сделать таблицу с условиями и условия брать оттуда (пять чеков и условие)
2. Посмотреть в сторону select case.
alvk вне форума Ответить с цитированием
Старый 01.03.2013, 10:41   #44
Emmelman
Пользователь
 
Регистрация: 27.11.2012
Сообщений: 84
По умолчанию

если присмотреться,то можно увидеть разницу в true и false' ах ну не суть...
я пока бахнул в тупую, кучу условий еще прописал, быстро надо было сделать, а с остальными методами попробую позже разобраться,чтобы в дальнейшем их имплементировать
Emmelman вне форума Ответить с цитированием
Старый 01.03.2013, 11:50   #45
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

набор условий делаю по схеме
--создаю запрос без условий в конструкторе
--добавляю условия для check=trus
Код:
Sub a130301()
MyDate = Date
HyDate2 = Replace(Format(HyDate, "yyyy/mm/dd"), "/")
MyDate3 = Date - 7
HyDate4 = Replace(Format(HyDate3, "yyyy/mm/dd"), "/")
Dim MyS As ADODB.Recordset
Set HyS = New ADODB.Recordset
Dim HySQL As String
HySQL = HySQL & "SELECT Weekly_operations.*"
HySQL = HySQL & " FROH Query8"
HySQL = HySQL & " RIGHT JOIN (Query6"
HySQL = HySQL & " INNER JOIN eekly_operations"
HySQL = HySQL & " ON  Querуб.DEBIT_ACCOUNT_OWNER_NAHE = Weekly_opei"
HySQL = HySQL & " where true"
If Check2.Value = True Then
HySQL = HySQL & " and (AHOUNT_OPERATION>=30000 and[CURRENCY]='RUB' )"
End If
If Check6.Value = True Then
HySQL = HySQL & " and (AHOUNT_OPERATION>=30000 and[CURRENCY]='RUB' )"
End If
If Check9.Value = True Then
HySQL = HySQL & " and (AHOUNT_OPERATION>=30000 and[CURRENCY]='RUB' )"
End If
HySQL = HySQL & " Order By OPERATIONDATE"

[Forms]![Weekly_form]![Forml-operations].Form.RecordSource = HySQL
[Forms] ![Weekly_form] ![Forml-operations].Requery
End Sub
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 01.03.2013, 16:11   #46
Emmelman
Пользователь
 
Регистрация: 27.11.2012
Сообщений: 84
По умолчанию

Данный код нужно привязать к кнопке или к чекбоксу?
Emmelman вне форума Ответить с цитированием
Старый 01.03.2013, 17:37   #47
Андрэич
Форумчанин
 
Аватар для Андрэич
 
Регистрация: 20.05.2012
Сообщений: 311
По умолчанию

Цитата:
Сообщение от Emmelman Посмотреть сообщение
Данный код нужно привязать к кнопке или к чекбоксу?
Когда нужно видеть результаты фильтрации: на чекбокс - после обновления, на кнопке - нажатие
Андрэич вне форума Ответить с цитированием
Старый 01.03.2013, 17:40   #48
Андрэич
Форумчанин
 
Аватар для Андрэич
 
Регистрация: 20.05.2012
Сообщений: 311
По умолчанию

Только смотри: там пробелы лишние, а то будет, как в тот раз, не работать
Андрэич вне форума Ответить с цитированием
Старый 04.03.2013, 09:15   #49
Emmelman
Пользователь
 
Регистрация: 27.11.2012
Сообщений: 84
По умолчанию

Буду пробовать, новый рабочий день!) Но это будет уже в порядке улучшения - ибо уже начали мою прогу тестить, закачали в нее таблицу на 30к строк) код импорта оооочень быстро файлы обрабатывает( а они там по 10к строк),прям не нарадуюсь
Emmelman вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Приведение к 3 н.ф. базы данных leha_leha Помощь студентам 2 26.11.2012 22:50
приведение числовых данных к единому виду сантехник Microsoft Office Excel 42 20.09.2011 11:27
Приведение типов в Qt mike_tihomirov Qt и кроссплатформенное программирование С/С++ 1 19.06.2010 13:14
Необхоима подборка данных за определенный срок koma Общие вопросы Delphi 3 01.10.2009 14:08
Приведение к типу __Demon__ Общие вопросы C/C++ 1 27.09.2009 17:40