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

[ABarmin]

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

		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. Какую еще переменную ему надо?

 

[hosmtest]

workspace.CurrentDatabase.Database

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

 

[Cleric-Lviv]

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

dim ses as new notessession
dim db as notesdatabase

set db = ses.curentdatabase

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

 

[hosm]

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

 

[hosm]

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