Добрый день.
Есть формы
Форма 1 каркас. На ней 4 вкладки
Вкладка1:
ПодФорма2 РеестрПациентов (таблица пациенты)
ПодФорма3 Реестр обследований (таблица Обследования) выводятся итоги обследования кратко данного пациента по каренту РеестраПациентов
Вкладка2 - видима если у пациента есть обследования:
ПодФорма 4 краткая инфа о пациенте rst на (таблица пациенты)
ПодФорма 5 Анамнез (таблица Обследования)
ПодФорма 6 Обследование (таблица Обследования) - выводится данное обследование данного пациента по каренту РеестраОбследований
Вкладка3 - видима если у пациента есть обследования:
Дубль ПодФормы 4
Дубль ПодФормы 5
Под6 Диагноз-Назначения (таблица Обследования) - выводятся Диагноз-Назначения в данном обследовании у данного пациента по каренту РеестраОбследований
Вкладка4 - видима если в данном обследовании был выписан рецепт:
Дубль ПодФормы 4
Дубль ПодФормы 5
ПодФорма 7 Рецепт на очки (таблица Очки) - выводятся рецепты в данном обследовании, по карренту РеестраОбследований.
---
На трех вкладках выводятся формы 4 и 5 (сведения о пациенте и анамнез), нужно чтобы они всегда были видны.
Связка мастерслэйвами по текстбоксам на главной.
Чтобы формировать видимость вкладок и подформ, пишу в главном модуле функцию и вызываю ее при открытии формы и на карентах РеестраПациентов и РеестраОбследований.
Set frm = Forms![01Main]![01ReestrObsl].Form
Set dbs = CurrentDb
'Если нет Pacienta - Pacienta, вкладки и кнопки удаления не показывать
II = Forms![01Main]![LikDoc].Value
strSQL = "SELECT ID_Doc FROM [01Пациент] WHERE ID_Doc = " & II & ";"
Set rst = dbs.OpenRecordset(strSQL)
If rst.RecordCount = 0 Then 'Пациентов нет
Forms![01Main]![Поиск].SetFocus
Forms![01Main].Form![Obsled].Visible = False
Forms![01Main].Form![Diagnoz].Visible = False
Forms![01Main].Form![Recept].Visible = False
Forms![01Main].Form![DelObsled].Visible = False
Forms![01Main].Form![DelPacienta].Visible = False
Forms![01Main].Form![01ReestrObsl].Visible = False
Else 'Пациенты есть
Forms![01Main].Form![DelPacienta].Visible = True
II = Forms![01Main]![LinkPacient].Value
strSQL = "SELECT ID_Name FROM [01Obsled] WHERE ID_Name = " & II & ";"
Set rst = dbs.OpenRecordset(strSQL)
If rst.RecordCount = 0 Then 'Обследований нет
Forms![01Main]![01Реестр].SetFocus
Forms![01Main].Form![Obsled].Visible = False
Forms![01Main].Form![Diagnoz].Visible = False
Forms![01Main].Form![Recept].Visible = False
Forms![01Main].Form![DelObsled].Visible = False
Forms![01Main].Form![01ReestrObsl].Visible = False
Else 'Обследования есть
Forms![01Main].Form![Obsled].Visible = True
Forms![01Main].Form![Diagnoz].Visible = True
Forms![01Main].Form![Recept].Visible = False
Forms![01Main].Form![DelObsled].Visible = True
Forms![01Main].Form![01ReestrObsl].Visible = True
II = Forms![01Main]![СвязникObsled].Value
strSQL = "SELECT ID_EyeTest FROM [01Очки] WHERE ID_EyeTest = " & II & ";"
Set rst = dbs.OpenRecordset(strSQL)
If rst.RecordCount = 0 Then 'Receptа нет
Forms![01Main].Form![Recept].Visible = False
Else 'Receptы есть
Forms![01Main].Form![Recept].Visible = True
End If
End If
End If
rst.Close
Set dbs = Nothing
Если не ставить обработчик ошибок - вылетает по ошибкам Нет текущей записи; выход за границы, выражение не содержит значения и еще что-то.
Если игнорировать ошибки - все работает нормально. Но видимо так все же неправильно делать, раз ошибки летят.
Насколько я понимаю это происходит из-за нескольких проходов аксесса на формах, когда в начале данные еще не готовы.
Подскажите как это можно поправить?
зы пробовал упростить код по совету Панурга
frm.Visible = Not (frm.Recordset.EOF And frm.Recordset.BOF)
не получается, EOF BEF ведут себя непредсказуемо.
Сорри за длинный текст
http://www.sql.ru/forum/1177226/oshibki-na-podchinennyh-formah
