В чем ошибка

  • Автор темы allex
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

allex

#1
Ошибка при выполнении агента такая - Object variable set not set
Код:
Sub Initialize

Dim db1 As NotesDatabase
Dim db2 As New NotesDatabase ("server", ",basa.nsf")
Dim view As NotesView
'Dim uidoc As NotesUIDocument
Dim doc1 As NotesDocument
Dim session As NotesSession

Set db1 = session.CurrentDatabase

'Set uidoc = session.CurrentDocument
Set doc1 = view.GetFirstDocument

Set view = bd1.Get.View("Predstavlenie")
Set session = NotesSession

If doc1.IsNewDoc Then 
While Not (doc1 Is Nothing)
Call doc1.CopyToDatabase( db2 )
Set doc1 = view.GetNextDocument(doc1)
Wend
Print "All OK :-)"
End If

End Sub
Народ подскажите в чем может быть ошибка
 
G

Guest

#2
Ты текст смотрел ?
Во-первых. Куча опечаток.
Во-вторых. Сначала ты берешь документ из представления.<!--QuoteBegin-allex+13:10:2005, 14:33 -->
<span class="vbquote">(allex @ 13:10:2005, 14:33 )</span><!--QuoteEBegin-->Set doc1 = view.GetFirstDocument
[snapback]25793" rel="nofollow" target="_blank[/snapback]​
[/quote]
Только потом указываешь представление.
<!--QuoteBegin-allex+13:10:2005, 14:33 -->
<span class="vbquote">(allex @ 13:10:2005, 14:33 )</span><!--QuoteEBegin-->Set view = bd1.Get.View("Predstavlenie")
[snapback]25793" rel="nofollow" target="_blank[/snapback]​
[/quote]
 
G

Guest_medevic_*

#3
Ты текст смотрел ?
Во-первых. Куча опечаток.
Во-вторых. Сначала ты берешь документ из представления.<!--QuoteBegin-allex+13:10:2005, 14:33 -->
<span class="vbquote">(allex @ 13:10:2005, 14:33 )</span><!--QuoteEBegin-->Set doc1 = view.GetFirstDocument
[snapback]25793" rel="nofollow" target="_blank[/snapback]​
[/quote]
Только потом указываешь представление.
<!--QuoteBegin-allex+13:10:2005, 14:33 -->
<span class="vbquote">(allex @ 13:10:2005, 14:33 )</span><!--QuoteEBegin-->Set view = bd1.Get.View("Predstavlenie")
[snapback]25793" rel="nofollow" target="_blank[/snapback]​
[/quote]
 
A

allex

#5
Исправил, но теперь ошибка Type mismatch
Что это за ошибка
Не судите строго за ошибки


Код:
Sub Initialize

Dim session As NotesSession	
Dim db1 As NotesDatabase
Dim db2 As New NotesDatabase ("server", "basa.nsf")
Dim view As NotesView
'Dim uidoc As NotesUIDocument
Dim doc1 As NotesDocument


Set session = NotesSession
Set db1 = session.CurrentDatabase
Set view = bd1.Get.View("predstavlenie")
Set doc1 = view.GetFirstDocument	
'Set uidoc = session.CurrentDocument

If doc1.IsNewDoc Then 
While Not (doc1 Is Nothing)
Call doc1.CopyToDatabase( db2 )
Set doc1 = view.GetNextDocument(doc1)
Wend
Print "All OK :-)"
End If

End Sub
 
D

Domino6

#6
Dim session As NotesSession -> Dim session As New NotesSession
и убрать Set session = NotesSession

или
Set session = NotesSession -> Set session = New
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#7
<!--QuoteBegin-allex+14:10:2005, 13:22 -->
<span class="vbquote">(allex @ 14:10:2005, 13:22 )</span><!--QuoteEBegin-->Set session = NotesSession
[snapback]25844" rel="nofollow" target="_blank[/snapback]​
[/quote]
Должно быть:
Код:
Set session = New NotesSession
<!--QuoteBegin-allex+14:10:2005, 13:22 -->
<span class="vbquote">(allex @ 14:10:2005, 13:22 )</span><!--QuoteEBegin-->Set view = bd1.Get.View("predstavlenie")
[snapback]25844" rel="nofollow" target="_blank[/snapback]​
[/quote]
Должно быть:
Код:
Set view = bd1.GetView("predstavlenie")
 
Статус
Закрыто для дальнейших ответов.