ну да, я уже понял что 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.

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

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

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