Возможел ли поиск по БД по определённому параметру (например город) и вывод ВСЕХ , например, фирм, которые находятся в том или ином городе? В каком лучше виде это сделать (я имею в виду отчёт о поиске) и , главное, нужно переходить по клику на какой то из найденных фирм в форму полной инфы о данной фирме и обязательно наличае фильтра (отсортировывать список найденных фирм например по городу, по ИНН и т.д)

прошу прощения за ламмерский для кого-то вопрос!

Shuhardна Ваш вопрос отвечаем - в Access есть SQL и в нём Where каковой ищется усё.
(а также группируется и сортируется )

не сочтите назойливым, но не могли бы вы поподробнее сказать как этой фичей пользоваться? ну или хотябы где именно и как её подрубить. дело в том что в акесе и SQL я , мягко говоря, ......

это всё хорошо. Я даже не претендую на то чтоб ктото писал мне прогу. Я просто прошу совета (желательно попонятнее) или может кто подкинет адрес, где эта проблема раскрывается. Всего то навсего

Vsevolod V 5aciJIaэто всё хорошо. Я даже не претендую на то чтоб ктото писал мне прогу. Я просто прошу совета (желательно попонятнее) или может кто подкинет адрес, где эта проблема раскрывается. Всего то навсего
Вот здесь твоя проблема раскрыта наиболее полно

спасибо за остроумную ссылку!

дело в том что в других топах (я их сейчас проглядел) тема либо схожа с моей, либо раскрыта "сложным" для меня языком. Поэтому и открываю свой топик - чтобы объяснили для незнающего человека как выполнять ту или иную операцию. в данном случае поиск и вывод (например в таблице) всех фирм по какому то параметру (например по городу, в котором оная фирма имеет место быть).

я понимаю что для Вас такие вопросы выглядят как детский лепет, но ктото и этого не знает

дело в том что в других топах (я их сейчас проглядел) тема либо схожа с моей, либо раскрыта "сложным" для меня языком. Поэтому и открываю свой топик - чтобы объяснили для незнающего человека как выполнять ту или иную операцию. в данном случае поиск и вывод (например в таблице) всех фирм по какому то параметру (например по городу, в котором оная фирма имеет место быть).

я понимаю что для Вас такие вопросы выглядят как детский лепет, но ктото и этого не знает

Vsevolod VЕсли ты хочешь, чтобы тебе отвечали, то пиши "что конкретно не получается и в какой ситуации". Что по-твоему можно ответить на твой вопрос??? Откуда узнать, что конкретно не получается? Может у тебя не получается найти кнопку "запросы" в окне БД, может не получается нажать на нее, может не получается найти "конструктор запросов"..............
Твой вопрос очень похож вот на что: "Мне нужно сделать базу данных для учета утопленников в Неве, но я не знаю как. Помогите, кто сможет"

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

я думаю конкретнее некуда

Чертовщина! Разобрался в принципе (там ничё сложного) с запросами ... но вот НИКАК не могу соединить это дело с формой!!! чтоб на форме вводить например в поле "город" город и из всей тадлицы в форме появлялись соответствующие отсортированные записи!

Помогите плиз советом

ЗЫ ... F1 не дал должного результата, даже творчествогосподина Дубнова П.Ю. по акесу 2002 не дало результатов =(

так никто подсказать как соединяется запрос и форма не хочет? :/

спасибо, сейчас гляну

(у мя всегда были проблемы с вычленением из общей массы нужных топиков)

вопрос после увиденного: дайте пожалуйста кто нить линк на нормальный сайт где VBA для таких неумелых как я расписывается ... пусть даже не особо навороченный, главное понятный!

F1, yandex и прочие прелести инета уже юзал =) там либо книжки на покупку, либо сложные сервесы ... вы программеры - вам же виднее!

Программист-ЛюбительВ подсказке Acceess Примеры баз данных;
Создать новую базу - из шаблона Проекты или Контакты.

в примерах нет ничего похожего, а при создании новой базы по шаблонам требуется SQL сервак, коим я на данный момент не обладаю .... да и обязателен ли он при создании шаблона ... в общем не хочет создавать и ругается

ну да, я уже понял что VBA рулит ... =) полезу искать ... да и разбираться я не против - вот тока времени с самого начала нет, а проблему сейчас решать надо ...

спасибо за советы, если что я ещё позадаваю вопросов!!!

ЗЫ ... если не трудно не могли бы вы ещё парочку наглядных экзамплов назвать, чтобы проще было тыкаться

я тут сообразил примерно следующее:
сделал запрос на таблицу Клиенты по 3 полям (Город, ИНН, Телефон), создал форму с полями Город, ИНН, Телефон и с вложенной формой, которая выдаёт инфу о фирмах в виде таблизы с те ми же Городом, ИНН, Телефоном. (всё по примеру Solution). при вводе например города, и последующем переходе по TAB он (что удивительно =) ) и в заправду показывает все записи с полем "город". Т.е. работает. Но при попытке поиска и вывода записай как по телефону, так и по ИНН прога либо ничего не ищет, либо заменяет (!!!) что не есть хорошо, имеющуюся запись (т.е. последнюю запись) и вставляет туда тот, к примеру, ИНН, по которому я хотел найти (!!!) совершенно другую фирму.

КАСЯК!!! В чём дело может быть...

никаким VBA я не пользовался, пока так и не понял что где надо кодить и какой оператор за что отвечает =( дома попробую разобраться

up

а как получить доступ к таблицам базы через встроенный барсик? операторы, названия... т.е. все-все-все!!!

итак... имеется таблица Кленты, из неё выборка на несколько пунктов Город, ИНН, Фирма. Нужно отобразить в форме отфильтрованные по вводу Города. Инн и т.д. в текстовые поля данные. Насколько понятно надо писать это в After Update поля, но непонятно что писать всамой функции.

Поле - тестовое, простое как глобус. Оно находится на форме. В ней подчинееная форма, она же может быть таблицей - не суть важно наверное. Тут сидит программист и ломает голову не понимая, как с этим Acseesом работать.

(программист): Есть фильтр, он есть строка, включаем его FilterOn = True,
вопросы:
1.) Надо писать просто Filter или куда - то его сандалить, если сандалитть - то куда?
2.) Где брать значение поля, т.е. пишем Filter = "?Что-то? = Поле.Текст", а потом включаем, так? Но Где! брать значение???

Спасибо огромное. Но фильтр мы уже сами сделали почти - где-то на полчаса раньше. Но он не работает при 2-х полях и, соответственно 2-х условиях.
Код следующий (кривоватый правда):
If ÒÏÃîðîä.Text = "" Then
If ÒÏÈÍÍ.Text = "" Then
Âíåäðåííûé6.Form.FilterOn = False
Else
Âíåäðåííûé6.Form.Filter = "ÈÍÍ = ÒÏÈÍÍ.Text"
Âíåäðåííûé6.Form.FilterOn = True
End If
Else
If ÒÏÈÍÍ.Text = "" Then
Âíåäðåííûé6.Form.Filter = "Ãîðîä=ÒÏÃîðîä.Text"
Else
Âíåäðåííûé6.Form.Filter = "Ãîðîä=ÒÏÃîðîä.Text and ÈÍÍ = ÒÏÈÍÍ.Text"
Âíåäðåííûé6.Form.FilterOn = True
End If
End If
кириллица глючит...

В общем он выдает Runtime Error 2185 в случае если хотя бы одно поле не пустое.
Что с этим можно сделать?
В общем что-то про фокус ввода и поля гутарит.

Private Sub ТПГород_AfterUpdate()
If ТПГород.Value = "" Then
If ТПИНН.Value = "" Then
Внедренный6.Form.FilterOn = False
Else
Внедренный6.Form.Filter = "ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
Else
If ТПИНН.Value = "" Then
Внедренный6.Form.Filter = "Город=ТПГород.Value"
Else
Внедренный6.Form.Filter = "Город=ТПГород.Value and ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
End If
End Sub

Private Sub ТПИНН_AfterUpdate()
If ТПГород.Value = "" Then
If ТПИНН.Value = "" Then
Внедренный6.Form.FilterOn = False
Else
Внедренный6.Form.Filter = "ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
Else
If ТПИНН.Value = "" Then
Внедренный6.Form.Filter = "Город=ТПГород.Value"
Else
Внедренный6.Form.Filter = "Город=ТПГород.Value and ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
End If
End Sub
________________________________

это чтото типа того должно получиться насколько я понял? только вот именно что "что то" ... потому что и этот код меня балует ошибкой! а именно отсутствием работоспособности и .... и собственно всё! в отличае от варианта с одним полем здесь поиск вообще не производится

ЗЫ ... это код для двух полей (как видно из него для Город и ИНН)

Так, это всё фикна ... уконкречу и урежу вопрос и соответственно проблему:
есть две текстовые формы (так и назовём их ТПГород и ТПИНН) и таблица (Внедрённый6) ... это я не столько для занудности сколько для подробности =) фильтрация по одному полю, как я уже заметил, я разобрался как ваять! Собственно, вот так:

Private Sub ТПИНН_AfterUpdate()
If ТПИНН.Value = "" Then
Внедренный6.Form.FilterOn = False
Else
Внедренный6.Form.Filter = "ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
End Sub

....это, например, с полем ИНН из Внедренной6 таблицы клиентов.

Вот теперь мне нужно как то программным и доступным для VB языком написать примерно следующее условие для фильтрации уже по двум полям (с большим кол-вом идентично этому я так понял будет, в любом случае это потом):

Если поле ТПИНН и ТПГород пусты, то фильтрации нет

Если поле ТПГород имеет какое то значение, а ТПИНН пусто, то сверяем ТПГород с Внедрённой6

Если при заполненном поле ТПГород ввести данные в ТПИНН то соответственно должна фильтрация произвестися (в случае если такого ИНН нет, но Внедрённая6 пуста) ...

Всё то же самое, но наоборот - при заполненном ТПИНН ввели данные в ТПГород и т.д.

И соответственно если оба поля имею данные, отсутствующие в главной таблице, то Внедрённая6 пуста, как степь (как пустая степь) =)

...помоему все случаи рассмотрел :/

сразу скажу что последние 3 часа я это пытался сделать ... но не получилось! получилась шняга типа

Private Sub ТПГород_AfterUpdate()
If ТПГород.Value = "" And ТПИНН.Value = "" Then
Внедренный6.Form.FilterOn = False
Else
If Внедренный6.Form.Filter = "Город = ТПГород.Value" And ТПИНН.Value = "" Then
Внедренный6.Form.Filter = "Город = ТПГород.Value"
Внедренный6.Form.FilterOn = True
Else
Внедренный6.Form.Filter = "ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
End If
End Sub

тока пожалуйста без чёрного юмора =) бессонная ночь даёт о себе знать

Помогите пожалуйста с условием!!! Срочно проект сдавать надо .... а это последний касяк остался ...

ЛЮДИ, ЧЕЛОВЕКИ =) И всё такое ... уже голова просто пухнет, никак составить не могу условие =( всё не работает

БАНЗАЙ!!!!
-----------------------------------------

Private Sub Form_Load()
Внедренный6.Form.FilterOn = False
End Sub

Private Sub ТПГород_AfterUpdate()

If IsNull(ТПГород) Then
If IsNull(ТПИНН) Then
Внедренный6.Form.FilterOn = False
Else
Внедренный6.Form.Filter = "ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
Else
If IsNull(ТПИНН) Then
Внедренный6.Form.Filter = "Город = ТПГород.Value"
Внедренный6.Form.FilterOn = True
Else
Внедренный6.Form.Filter = "Город = ТПГород.Value and ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
End If

End Sub

Private Sub ТПИНН_AfterUpdate()
If IsNull(ТПИНН) Then
If IsNull(ТПГород) Then
Внедренный6.Form.FilterOn = False
Else
Внедренный6.Form.Filter = "Город = ТПГород.Value"
Внедренный6.Form.FilterOn = True
End If
Else
If IsNull(ТПГород) Then
Внедренный6.Form.Filter = "ИНН=ТПИНН.Value"
Внедренный6.Form.FilterOn = True
Else
Внедренный6.Form.Filter = "Город=ТПГород.Value and ИНН = ТПИНН.Value"
Внедренный6.Form.FilterOn = True
End If
End If
End Sub

-----------------------------------------------
и дело всего то было в том что я вместо выделенного задавал пустые поля как ТПГород.Value = "" и соответственно ТПИНН.Value = ""

Неужели это так фатально? Объясните хотябы почему?

ЗЫ ... ещё не пробовал с 3 и более полями, но чувствую что будет весело =)

ЗЗЫ ... зато созрел целый топик для таких "неумных" в акесе и VBA челов как я сам =)

а реально - как будет выглядеть условие при выборке используя 3 текстовых поля? (причём они ОБЯЗАТЕЛЬНО должны бытьсвязаны тем, что при пустом 3-м текстовом поле а заполненных первых 2х - выборка будет происходить по первым 2-м)

См. пример (код) для 2х полей в пред мессаге

и ещё в догонку вопрос (на сёдня последний, итам нехило я тут инфой посорил):
какой у SELECT и WHERE правильный синтаксис? А именно интересует меня чать кода

SELECT *
FROM main_base
WHERE Name Like ([что то там])

которую я собственно здесь и нашёл (это типа для общего поиска по все-е-е-й базе каких уго-о-о-дно данных)

Как сказал автор при правельной установке этот код, при открытии формы (к которой подключен запрос Поиск) должен автоматически запрашивать данные на поиск а при вводе * показывает все данные....

меня интересуют все мнения по этому коду и в частности, как я уже говорил, синтаксис работы с SELECT и WHERE.

ЗЫ ... да, и что это значит =) автор не очень широко раскрыл сам процесс работы кода ... если это уже где-то описано прошу скинуть мне линк

Заранее благодарен! Да и вообще благодарен =) За всю помощь и советы!

Спасибо, реально спасибо!!! сейчас буду тестить

Так, качаемо поиска по трём полям ... прога, мягко говоря, не работает! Если по первому полю ТПГород ещё как то производится поиск (кстати, как избавится от повторно всплывающего окна ввода данных в поле ТПГород, и в другие поля тоже!). На втором поле ввода выдаёт ошибку типа:

Внедренный6.Form.Filter = strWhere

рантайм еррор 2001

в третьем поле так успеха и не добился, он всё время запрашивает вторичный, третичный и т.д. ввод данных во всплывающих окнах ... т.е. сижу и тупо ввожу одно и то же =)

---------------
В общем, может быть я всётаки не очень корректно поставил вопрос: попробую ещё разок!

Есть три поля: ТПГород, ТПИНН и ТПНазвание. При БЕСПОРЯДОЧНОМ вводе данных в любом порядке в разные поля (т.е. в два из трёх ввел, третье пустое. ввел в среднее, первое и третье пустые ... при введённых данных в 1, 2 и при пустом 3 поле производится удаление данных из первого поля и поиск производится по оставшемуся 2 полю .... и т.д. я надеюсь суть понятна)

может быть этот код рассчитан и работате на чём то другом, мне трудно понять ... к сожалению!

БАНЗАЙ ЕЩЁ РАЗ!!!!
таки получилось ! но для этого пришлось скрестить мой вариант для 2х полей и вариант глубокоуважаемого Александра G ...
вот что получилось (решил вывести не апдэйтом а по нажатии баттона)

______________________________________________________

Private Sub ОК_Click()

Внедренный6.Form.FilterOn = True
If Not IsNull(ТПГород) Then
If Not IsNull(ТПИНН) Then
If Not IsNull(ТПНазвание) Then
Внедренный6.Form.Filter = "Город = ТПГород.Value and ИНН = ТПИНН.Value and ТПНазвание = ТПНазвание.value"
Else
Внедренный6.Form.Filter = "Город = ТПГород.Value and ИНН = ТПИНН.Value"
End If
Else
If Not IsNull(ТПНазвание) Then
Внедренный6.Form.Filter = "Город = ТПГород.Value and НазваниеКомпании = ТПНазвание.value"
Else
Внедренный6.Form.Filter = "Город = ТПГород.Value"
End If
End If
Else
If Not IsNull(ТПИНН) Then
If Not IsNull(ТПНазвание) Then
Внедренный6.Form.Filter = " ИНН = ТПИНН.Value and НазваниеКомпании = ТПНазвание.value"
Else
Внедренный6.Form.Filter = "ИНН = ТПИНН.Value"
End If
Else
If Not IsNull(ТПНазвание) Then
Внедренный6.Form.Filter = "НазваниеКомпании = ТПНазвание.value"
Else
Внедренный6.Form.FilterOn = False
End If
End If
End If

End Sub
______________________________________________________

оно так как то полегвче выглядит =)

вот терь буду маяться насчёт большего кол-ва полуй .... мало ли что начальство придумает!!!

ЗЫ ... само начальство знает что оно може ;)

извиняюсь за продолжение "жевания мочалки", но возникла необходимость делать сколько угодно полей для поиска/фильтрации данных в главной таблице (не только как было - для 3х полей). Тем методом который я использовал "if / else / then " никак не укладывается у меня в голове. Кто-то мне говорил что можно короче и проще сделать - но видемо проще не для меня.

так вот - не могли бы дать алгоритм построения условия для полей от 1 до N , где N - сколько угодно много полй для фильтрации.

ОСОБО: учитывать предыдущий вариант и его особенности, т.е. фильтрация не только по одному какому либо полю, а ИМЕННО и по савокупности полей (т.е. что-то типа "искать в найденном")

Заранее благодарен за идеи!


ЗЫ ... сёдня у меня рандеву с программистом - думаю нам это очень поможет!

пардон, действительно :/ сорри! забыл ... заотдыхался совсем!