Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName =  "obj_view" 
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка24_Click:
    Exit Sub

Err_Кнопка24_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка24_Click
    
End Sub

Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
    if isnull(textbox2)=true then 
         msgbox ( "Не правильно!" )
         goto Exit_Кнопка24_Click   
    end if
    
Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName =  "obj_view" 
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка24_Click:
    Exit Sub

Err_Кнопка24_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка24_Click
    
End Sub

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

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы