1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

В чем ошибка

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

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

    allex Гость

    Репутация:
    0
    Ошибка при выполнении агента такая - 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
    Народ подскажите в чем может быть ошибка
     
  2. Guest

    Guest Гость

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

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

    Репутация:
    0
    Ошибка сообщает и строку кода
     
  5. allex

    allex Гость

    Репутация:
    0
    Исправил, но теперь ошибка 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
     
  6. Domino6

    Domino6 Гость

    Репутация:
    0
    Dim session As NotesSession -> Dim session As New NotesSession
    и убрать Set session = NotesSession

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

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

    Репутация:
    0
    Регистрация:
    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]
    Должно быть:
    Код:
    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")
     
Загрузка...
Похожие Темы - чем ошибка
  1. rn3rjd
    Ответов:
    4
    Просмотров:
    995
  2. IvendsI
    Ответов:
    2
    Просмотров:
    1.264
  3. rainprogrammer
    Ответов:
    3
    Просмотров:
    1.260
  4. dimat
    Ответов:
    2
    Просмотров:
    1.939
  5. jojogaga
    Ответов:
    5
    Просмотров:
    61
Статус темы:
Закрыта.

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