Pickliststrings выдает непонятную ошибку

@oBormym · Регистрация: 25.12.2010

Author24 — интернет-сервис помощи студентам

Простой код, на 90% скопированный из справки

LotusScript

        Dim workspace As New NotesUIWorkspace
Dim picklist As Variant
Dim messagelist As String
picklist = workspace.PickListStrings( PICKLIST_CUSTOM, True, workspace.CurrentDatabase.Database.Server, workspace.CurrentDatabase.Database.FileName, "Сотрудники по NN", "Выбор", "Выберите сотрудника", 1)

По отладчику на последней строке выпадает ошибка Object Variable not set. Какую еще переменную ему надо?

31.12.2010, 15:51

Сообщение от ABarmin

workspace.CurrentDatabase.Database

не делай так
бери от сессии - Notessession.CurrentDatabase

@styrys-tvyv · 31.12.2010, 23:42

hosmtest хотел написать что вам нужно добавить следующие строки

dym ses as new notessession
dym db as notesdatabase

set db = ses.curentdatabase

и как результат ви можете заменить следующее workspace.CurrentDatabase.Database.Server и workspace.CurrentDatabase.Database.FileName --- а вот как посмотрите в хелпе:please: наводка дана

@hosm · 01.01.2011, 12:17

Cleric-Lviv да тут уже не наводка, тут уже просто расжевал =) как хорошо, что у меня есть такие толкователи =)
вообще топикстартеру стоит посмотреть в хелпе особенности использования Notesuiworkspace.CurrentDatabase, чтоб понять, почему ее не надо юзать в большинстве случаев...

@hosm · 01.01.2011, 17:48

Еще FileName стоит заменить на FilePath. Почитайте разницу между ними, в вашем варианте это может быть и одинаково, но в общем случае никто не запрещает создавать для базы отдельный подкаталог в каталоге данных сервера.

hosmtyst
	31.12.2010, 15:51	2
	Сообщение от ABarmin workspace.CurrentDatabase.Database не делай так бери от сессии - Notessession.CurrentDatabase

@styrys-tvyv 0 / 0 / 0 Регистрация: 30.12.2007 Сообщений: 583
	31.12.2010, 23:42	3
	hosmtest хотел написать что вам нужно добавить следующие строки dym ses as new notessession dym db as notesdatabase set db = ses.curentdatabase и как результат ви можете заменить следующее workspace.CurrentDatabase.Database.Server и workspace.CurrentDatabase.Database.FileName --- а вот как посмотрите в хелпе:please: наводка дана 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	01.01.2011, 12:17	4
	Cleric-Lviv да тут уже не наводка, тут уже просто расжевал =) как хорошо, что у меня есть такие толкователи =) вообще топикстартеру стоит посмотреть в хелпе особенности использования Notesuiworkspace.CurrentDatabase, чтоб понять, почему ее не надо юзать в большинстве случаев... 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	01.01.2011, 17:48	5
	Еще FileName стоит заменить на FilePath. Почитайте разницу между ними, в вашем варианте это может быть и одинаково, но в общем случае никто не запрещает создавать для базы отдельный подкаталог в каталоге данных сервера. 0