Как получить значение поля из формы

Тема в разделе "Lotus - Программирование", создана пользователем Vlan, 4 апр 2007.

  1. Vlan

    Vlan New Member

    Регистрация:
    4 апр 2007
    Сообщения:
    3
    Симпатии:
    0
    Есть форма, в ней поле "word_", на форме кнопка с кодом. Не получается взять значение из поля и передать его в ворд. Спотыкается на строке fio = uidoc.FieldGetText(word_) Подскажите плиз что не так?

    Sub Click(Source As Button)
    Dim doc As NotesDocument
    Dim todaydate As New notesdatetime("Today")
    Dim word As Variant
    Dim wordoc As Variant
    Dim todaysdate As String
    Dim orderid As String
    Dim producedby As String
    Dim storeid As String
    Dim customername As String
    Dim address As String
    Dim citytown As String
    Dim postcode As String
    Dim daytimeno As String
    Dim eveningno As String
    Dim fio As String
    fio = uidoc.FieldGetText(word_)
    uidoc.Save
    'Присваивание значений пересенным (Lotus)
    todaysdate = todaydate.localtime
    orderid = "2183763248"
    producedby = s.username
    storeid = "12345"
    customername = "John Doe"
    address = "Apartment 5c, 5 Test Avenue"
    citytown = "Testtown"
    postcode = "XX5 5XX"
    daytimeno = "1234567890"
    eveningno = "0987654321"
    'Создание Word-документа
    Set word = CreateObject("Word.Application") 'Создание объекта Word'a
    Call word.documents.add("C:\Return and Uplift.dot") 'Создание нового документа по шаблону Return and Uplift.dot
    Set worddoc = word.activedocument 'Активация объекта
    'Присваивание полям-Word'a значений из полей notes-документа
    worddoc.FormFields(1).result = todaysdate
    worddoc.FormFields(2).result = orderid
    worddoc.FormFields(3).result = producedby
    worddoc.FormFields(4).result = storeid
    worddoc.FormFields(5).result = customername
    worddoc.FormFields(6).result = address
    worddoc.FormFields(7).result = citytown
    worddoc.FormFields(8).result = postcode
    worddoc.FormFields(9).result = daytimeno
    worddoc.FormFields(10).result = eveningno
    worddoc.FormFields(11).result = fio
    worddoc.saveas(customername) 'сохранение документа-Word'a с именем файла "John Doe.doc"
    word.visible = True 'Сделать видимым окно Word'a
    'word.quit 'закрытие Word'a
    End Sub
     
  2. allex

    allex Гость

    fio = uidoc.FieldGetText(word_)

    fio = uidoc.FieldGetText("word_")
     
  3. Vlan

    Vlan New Member

    Регистрация:
    4 апр 2007
    Сообщения:
    3
    Симпатии:
    0
    В отладчике все равно ругается на fio = uidoc.FieldGetText("word_")
     
  4. allex

    allex Гость

    У меня такого характера скрипт работает без проблем...
    Смотрите внимательнее свой скрипт.
     
  5. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Для: Vlan
    Проверте в отладчике , существует ли поле "word_" у uidoc.document - , чтото меня смущает символ _ в конце имени поля
    з.ы. используйте hasItem
     
  6. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Я начинающий программист по Lotus, но где
    Dim wks As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = wks.CurrentDocument
    fio = uidoc.FieldGetText("word_")
     
  7. Vlan

    Vlan New Member

    Регистрация:
    4 апр 2007
    Сообщения:
    3
    Симпатии:
    0
    Спасибо большое "WOWA", я тоже начинающий программист. По Вашему замечанию все получилось.
    Вопрос снят.
     
  8. wowa

    wowa Well-Known Member

    Регистрация:
    1 фев 2007
    Сообщения:
    842
    Симпатии:
    0
    Пожалуйста!!! )))))
     
  9. allex

    allex Гость

    При использовании чужих кодов будте внимательны, так как его хозяин использует у себя по своему.
    Что за частую приводит к неправильной работе у других людей
     
Загрузка...

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