ошибка "type Mismatch"

[Guest]

в документе текущем есть поле числовое, по умолчание значение 0,

Пишу вот такой код:

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument


Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document


If doc.isSended= 0 Then - вот здесь выпадает с сообщением об ошибке....

Может надо метод какой-нибудь испльзовать....

Код написан в событии QueryClose()
Помогите пожалуйста, почему не хочет работать :-(((

 

[Guest]

Эх, все решилось вот таким образом:

Dim flag As Variant


flag = doc.GetItemValue("isSended")
If flag(0) = 0 Then


Если кто знает другие варианты, то прошу сообщите, заранее благодарю...

 

[Medevic]

Вот так:
<!--QuoteBegin-Светлана1342+2:02:2007, 08:06 -->
<span class="vbquote">(Светлана1342 @ 2:02:2007, 08:06 )</span><!--QuoteEBegin-->If doc.isSended(0) = 0 Then

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

[/quote]

 

[oshmianski]

и вот так можно

If doc.GetItemValue("isSended")(0) = 0 Then

 

[pbnoob]

да хоть так
Код
If Cstr(doc.isSended(0)) = "0" Then

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

 

[Guest]

Спасибо огромное всем, за поддержку...