Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby
1. Цифровая криминалистика и реагирование на инциденты2. ОС Linux (DFIR) Старт: 16 мая3. Анализ фишинговых атак Старт: 16 мая
Устройства для тестирования на проникновение Старт: 16 мая
Буду признателен помощи.
Я пробую так но не получаеться
Код:
Sub Onchange(Source As Field)
Dim ws As New notesuiworkspace
Dim doc As notesdocument
Dim uidoc As notesuidocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
If doc.Pag = "1" Then
Dam = doc.Pag(0)
End If
End Sub
Буду признателен помощи.
Я пробую так но не получаеться
Код:
Sub Onchange(Source As Field)
Dim ws As New notesuiworkspace
Dim doc As notesdocument
Dim uidoc As notesuidocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
If doc.Pag = "1" Then
Dam = doc.Pag(0)
End If
End Sub
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.