Db.server

[NataliGinger]

Dim s As New NotesSession

Dim db As NotesDatabase
Set db = s.CurrentDatabase

Messagebox db.Server

 

[Omh]

Значит локальная база. RTFM вообще-то.

 

[NataliGinger]

Dim s As New NotesSession

Dim db As NotesDatabase
Set db = s.CurrentDatabase

Messagebox db.Server - ничего не возвращает


На
Set coll=ws.PickListCollection( PICKLIST_CUSTOM, True, "local", db.FilePath, " ", "", " " )
Ругается:
"Incorrect argument: non-null string expected"

 

[Sandr]

надо файлнейм указывать, а не файлпаз...

 

[Omh]

Для: Sandr
Тебя сегодня точно штырит.
Надо именно Filepath.

Для: NataliGinger
Set coll=ws.PickListCollection( PICKLIST_CUSTOM, True, db.Server, db.FilePath, VIEW_NAME, "", "" )
Ты имя view не указала, оно не может быть пустым.

db - база в которой находиться нужное тебе view.

 

[Medevic]

<!--QuoteBegin-Omh+26:09:2007, 16:34 -->
<span class="vbquote">(Omh @ 26:09:2007, 16:34 )</span><!--QuoteEBegin-->Тебя сегодня точно штырит.
Надо именно Filepath.

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

[/quote]
Вроде, если база на сервере надо FileName, а если на локальном, то FilePath.

Точнее, наоборот.

 

[Omh]

Для: Medevic
Я ничё не понимаю.
Я вообще не могу показать picklist с локальной базы.
Похоже, ругается на сервер...

_: error at line 9: Notes Error - Incorrect argument: non-null string expected

И похоже, что на локале точно надо db.Filename
Век живт, век учись.
Сейчас ещё покопаюсь.

 

[Medevic]

Для: Omh
Вообще-то ты был прав.
А ошибка из-за того, что не задал заголовок и/или приглашение. Параметры - title$ и prompt$.

 

[Omh]

Фу, в говно запутался.
Короче никаких FileName! Нигде!

Надо так:
Set coll=ws.PickListCollection( PICKLIST_CUSTOM, True, db.Server, db.FilePath, VIEW_NAME, TITLE, PROMPT)

При этом
VIEW_NAME
TITLE
PROMPT
не пустые!

А ну вот!
Сошлись во мнениях

 

[NataliGinger]

Спасибо ВСЕМ. Вы мне очень помогли сегодня.