Help!sos!now!Проблема при работе скрипта

[Max_from_UA]

Нашел скрипт "Кнопка, добавляющая новые данные в поля представления"

dim NDB As NotesDatabase
dim NV As NotesView
dim ND As NotesDocument
dim keys(1) As Variant

Set NV=NDB.GetView("ViewName")'На всякий случай беру вид прямо из базы
'Первый столбец в виде отображает поле organization_1, второй столбец
'отображает поле organization_2, оба столбца отсортированы

keys(0)="Первое требуемое значение"
keys(1)="Второе требуемое значение"

'Проверяем нет ли уже такого значения в виде
if NV.GetDocumentByKey(keys) Is Nothing then
Set ND=NDB.CreateDocument
'Название формы, документы по которой отбираются в вид
ND.Form="FormName"
ND.organization_1=keys(0)
ND.organization_2=keys(1)
Call ND.Save(True, False)
'Если скрипт находится на кнопке, в этом виде - можно вид отрефрешить
End if

В 4.6.4 не пашет, что тут не так и как его следует переделать для следующей задачи, уже упомянутой один разок.

У меня есть два поля org_1 и org_2.
Следует по нажатию кнопки добавить их значения в представление ОРГАНИЗАЦИИ, при условии, что они не совподают с уже существующими там значениями organizatio_1 и organizatio_2. Представление заполняется формой
с полями organizatio_1 и organizatio_2, которые нахожятся не в той форме, что поля org_1 и org_2.

Форма Организация с полями organizatio_1 и organizatio_2 задает представление ОРГАНИЗАЦИИ.
ФОРМА Карточка с полями org_1 и org_2 существует отдельно.

Можно ли обойтись только @-функциями.

Большое спасибо за работоспособный ответ.

 

[Guest]

А что не пашет-то?
Ты сам пробовал разбираться?

 

[Domino6]

<!--QuoteBegin-Max_from_UA+23:03:2006, 11:10 -->
<span class="vbquote">(Max_from_UA @ 23:03:2006, 11:10 )</span><!--QuoteEBegin-->что тут не так и как

[snapback]32342" rel="nofollow" target="_blank[/snapback]​

[/quote]

Нет сессии
Нет определения базы

 

[Max_from_UA]

Нет сессии
Нет определения базы

Спасибо, я сообщу, если запашет.
Кстати, електронных учебников ни у кого нету для начинающих девелоперов и программистов.