Поле Сheckbox

[Адриан]

Здравствуйте, как можно скопировать данные из поля А1 в Поле А2 при выборе значения в поле Сheckbox A3.
Спасибо

 

[lmike]

тьма вариантов - все в хэлпе дизигнера

 

[Адриан]

тьма вариантов - все в хэлпе дизигнера

Буду признателен помощи.
Я пробую так но не получаеться

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

 

[Kee_Keekkenen]

Буду признателен помощи.
Я пробую так но не получаеться

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

тут
If doc.Pag = "1" Then
ошибка, должно быть
If doc.Pag(0) = "1" Then