Поле Сheckbox

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

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 584
271
#2
тьма вариантов - все в хэлпе дизигнера
 
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
4
#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