В чем ошибка

[allex]

Ошибка при выполнении агента такая - 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

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

 

[Guest]

Ты текст смотрел ?
Во-первых. Куча опечаток.
Во-вторых. Сначала ты берешь документ из представления.<!--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]

 

[Guest_medevic_*]

Ты текст смотрел ?
Во-первых. Куча опечаток.
Во-вторых. Сначала ты берешь документ из представления.<!--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]

 

[Domino6]

Ошибка сообщает и строку кода

 

[allex]

Исправил, но теперь ошибка 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

 

[Domino6]

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

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

 

[Medevic]

<!--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")