Поиск и фильтрация записей базы - удобный и наглядный способ

@intersk · Регистрация: 07.09.2014

Author24 — интернет-сервис помощи студентам

выкладываю черновик базы, в которой реализован удобный и наглядный метод фильтрации записей базы.
Главная роль здесь принадлежит пользователю с ником shanemac51.
Возникла ошибка. Скрин и базу прилагаю.
Еще вопрос - как скрыть "область данных" в форме "Данные для поиска" при открытии формы и при отсутствии записей по условиям фильтра. А то при загрузке формы всегда перед глазами висят одни и те же первые записи.

shanemac51 · 14.09.2014, 22:08

ошибка выскакивает, если запись не найдена, а добавление записей запрещено

если добавление запрещено, то
в Fpoisk надо вставить проверку на пустую выборку(надо подумать как), а при SelStart проверять флажок

IF fpoisk()=TRUE THEN
Me.wденьга.SelStart = Len(S0) + 1
ENDIF

если же разрешено, работает и так, как предложено

@intersk · 14.09.2014, 22:39 **[ТС]**

повставлял везде "On Error Resume Next", но думаю что это не профессиональное решение )
- форму надо открывать пустой, и выводить только те записи которые ответствуют введенным в поля значениям
- оставить добавление запрещено, так как пустая строка не нужна
- реагировать только на не менее 2 символов
- при очистке полей нужно чтобы "область данных" пропадала, оставался только "заголовок формы" формы "Данные для поиска"

Visual Basic

Private Sub wôèëüòð_äîãîâîð_Change()
On Error Resume Next
S0 = "" & Me.wôèëüòð_äîãîâîð
Call fpoisk
Me.wôèëüòð_äîãîâîð.SelStart = Len(S0) + 1
End Sub
 
Private Sub wôèëüòð_íàèìåíîâàíèå_Change()
On Error Resume Next
S0 = "" & Me.wôèëüòð_íàèìåíîâàíèå
Call fpoisk
Me.wôèëüòð_íàèìåíîâàíèå.SelStart = Len(S0) + 1
End Sub
 
Private Sub wôèëüòð_íîìåð_äåëà_Change()
On Error Resume Next
S0 = "" & Me.wôèëüòð_íîìåð_äåëà
Call fpoisk
Me.wôèëüòð_íîìåð_äåëà.SelStart = Len(S0) + 1
End Sub

shanemac51 Модератор 11966 / 4834 / 779 Регистрация: 07.08.2010 Сообщений: 14,154 Записей в блоге: 4
	14.09.2014, 22:08	2
	ошибка выскакивает, если запись не найдена, а добавление записей запрещено если добавление запрещено, то в Fpoisk надо вставить проверку на пустую выборку(надо подумать как), а при SelStart проверять флажок IF fpoisk()=TRUE THEN Me.wденьга.SelStart = Len(S0) + 1 ENDIF если же разрешено, работает и так, как предложено 0

	14.09.2014, 22:39