процедура на VBA для анализа

[Tan'ka]

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

[Teslenko_EA]

Здравствуйте Tan'ka.
объясните, что значит "..для анализа верности запроса.." - синтаксис, введенные аргументы, отображаемые данные ?
Евгений.

[Tan'ka]

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

[Teslenko_EA]

Здравствуйте Tan'ka.
"на вводимые данные..." - вводимые куда? Подобная конструкция применима только при использовании формы для ввода данных.
"сверять с имеющимися..." - если подразумевается проверка на уникальность, можно задать ограничения на поле источника (таблицы) - сделав его индексным + уникальным (Совпадения не допускаются).
Но это всё мои версии, Вы как нибудь "поширее" осветите вопрос.
Евгений.

[Tan'ka]

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

[Teslenko_EA]

Здравствуйте Tan'ka.
простите но я с трудом ориентируюсь в Вашей терминологии, "...форму для ввода данных" - нет вопросов, "(форма на табл)" - форма с подключеной таблицей в качестве источника данных(?), "либо форму на запрос..." - Вы тут не определились нужна форма или запрос или запрос является источником записей формы(?), "..а нужно что бы...не предпринмалось никакиих" - в случае если "то пустая" или если "выводится заполненная форма"?
Из всего что я понял (или догадался, буду надеяться верно) следующие рекомендации:
Количество записей в источнике подключенном к форме можно узнать из свойства Me.Recordset.Recordcount, если это значение равно нулю (или не равно нулю?), в общем проверяйте свойство и выводите "сообщение об ошибке" или "просто" закрывайте форму.
на будущее: объяснение "на пальцах" не дает желаемого результата.
Выкладывайте архив с заранее подготовленным (избавленным от переизбыточных данных, OLE объектов,.... и сжатый средствами MS Access) файлом БД, что бы можно было на примере Вашей БД продемонстрировать способы решения задачи.
Евгений.

[Tan'ka]

спасибо...сделала так:


Private Sub Form_Click()
If Me.Recordset.RecordCount > 0 Then
DoCmd.OpenForm "форма_запрос_PO_PR", , , , , acDialog
Else
MsgBox "Нет данных"
End If
End Sub


только вот не пойму...эту процедуру нужно прописывать на событие:нажатие кнопки ок,а как это сделать,веь это окно с просьбой о вводе автоматом сделалось,я это нигде не прописывала..просто сделал запрос....
я пропиывала этот код на собитие:выполнение формы запрос..но тож нечего не происходит...
и вообще подскажите пожалуйста,код то примерно правльный=)?

[Teslenko_EA]

Здравствуйте Tan'ka.
Мне кажется я догадался что значит - "окно с просьбой о вводе автоматом сделалось". Вы создали Запрос с параметрами и пытаетесь применить его в качестве источника, программно не передавая в него "параметры". Но это моё предположение, а дать совет я смогу только проанализировав Вашу конструкцию (БД).
Для возможности оказания помощи, выложите архив с заранее подготовленным (избавленным от переизбыточных данных, OLE объектов,.... и сжатый средствами MS Access) файлом БД, без него ...
Евгений.

[Tan'ka]

вот моя БД....

[Teslenko_EA]

Здравствуйте Tan'ka.
Проверку кол-ва записей можно выполнять подобным кодом:

Private Sub Form_Open(Cancel As Integer)
    If Me.Recordset.RecordCount = 0 Then Cancel = True
End Sub

проблема с которой я ранее не сталкивался заключается не только в том, что я не перешел на работу с MS Access 2007 (и в ближайшее время не планирую), а скорее в том что Вы не перешли на работу с VBA и вся конструкция требует "доработки напильником".
"Нехорошо заставлять" пользователя вводить (вручную(!)) имена и названия, это в принципе не верно, т.к. добавляются к возможным ошибкам, ошибки "Человеческого фактора".
думаю Вам стоит заняться изучением структуры и способов применяемых в подобных БД, прежде чем продолжить работу с Вашей конструкцией.
Удачи Вам.
Евгений.