Поле Сheckbox

14.05.2008
16
0
#1
Здравствуйте, как можно скопировать данные из поля А1 в Поле А2 при выборе значения в поле Сheckbox A3.
Спасибо
 
14.05.2008
16
0
#3
тьма вариантов - все в хэлпе дизигнера
Буду признателен помощи.
Я пробую так но не получаеться
Код:
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

Well-Known Member
05.09.2006
639
6
Москва
#4
Буду признателен помощи.
Я пробую так но не получаеться
Код:
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