В чем ошибка

Тема в разделе "Lotus - Программирование", создана пользователем allex, 13 окт 2005.

Статус темы:
Закрыта.
  1. allex

    allex Гость

    Ошибка при выполнении агента такая - Object variable set not set
    Код (Text):
    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
    Народ подскажите в чем может быть ошибка
     
  2. Guest

    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]
     
  3. Guest_medevic_*

    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]
     
  4. Domino6

    Domino6 Гость

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

    allex Гость

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


    Код (Text):
    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
     
  6. Domino6

    Domino6 Гость

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

    или
    Set session = NotesSession -> Set session = New
     
  7. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    <!--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]
    Должно быть:
    Код (Text):
    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]
    Должно быть:
    Код (Text):
    Set view = bd1.GetView("predstavlenie")
     
Загрузка...
Похожие Темы - чем ошибка
  1. rn3rjd
    Ответов:
    4
    Просмотров:
    863
  2. IvendsI
    Ответов:
    2
    Просмотров:
    1.182
  3. rainprogrammer
    Ответов:
    3
    Просмотров:
    1.170
  4. dimat
    Ответов:
    2
    Просмотров:
    1.850
  5. m0tion
    Ответов:
    1
    Просмотров:
    102
Статус темы:
Закрыта.

Поделиться этой страницей