Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
sneg
Member

Откуда:
Сообщений: 153
Документ Word из ленточной формы, выборка по фильтру. Таблица в несколько столбцов.
Если поле пустое , то "Invaiid use of Null". И дальше не прибавляет, как обойти пробую : If i=0 Then i=1, самое простое, что приходит в голову, но не работает.

Private Sub btnWord_Click()
Dim WrdA As New Word.Application
Dim WrdD As Word.Document
Dim strA As String

Set WrdD = WrdA.Documents.Add(CurrentProject.Path & "\sample.dot")
WrdA.Visible = True
'Dim i As Integer
With Form.RecordsetClone
If .RecordCount <> 0 Then
i = 2
.MoveFirst
While Not .EOF
WrdD.Tables(1).Rows(i - 1).Select
WrdA.Selection.InsertRowsBelow 1
WrdD.Tables(1).Cell(i, 1).Range = !Pole1
WrdD.Tables(1).Cell(i, 2).Range = !Pole2
WrdD.Tables(1).Cell(i, 3).Range = !Pole3
WrdD.Tables(1).Cell(i, 4).Range = !Pole4

i = i + 1
.MoveNext
Wend
End If
End With

End Sub
16 авг 05, 10:21    [1788803]     Ответить | Цитировать Сообщить модератору
 Re: Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
4321
Member [заблокирован]

Откуда:
Сообщений: 3573
ленивое решение:
WrdD.Tables(1).Cell(i, k).Range = .Fields("Pole" & k) & ""
(полагаясь на неявные приведения типов) но можно и явно
Иф Нот ИзНулл(!ххх) Зэн
написать, что видимо вернее
16 авг 05, 10:47    [1788959]     Ответить | Цитировать Сообщить модератору
 Re: Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
Тяп-ляп
Member

Откуда: Москва
Сообщений: 801
переделай:
nz(!Pole1, "")
nz(!Pole2, "")
nz(!Pole3, "")
nz(!Pole4, "")
16 авг 05, 10:50    [1788975]     Ответить | Цитировать Сообщить модератору
 Re: Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
sneg
Member

Откуда:
Сообщений: 153
Спасибо! Работает. Сразу пробую по примеру Тяп-ляп - кажется так быстрее.
Но попробую и 4321.
16 авг 05, 11:08    [1789101]     Ответить | Цитировать Сообщить модератору
 Re: Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
RVI
Member

Откуда: Москва
Сообщений: 5373
Set WrdD = WrdA.Documents.Add(CurrentProject.Path & "\sample.dot")
WrdA.Visible = True
'Dim i As Integer - так и должно быть?
With Form.RecordsetClone
If .RecordCount <> 0 Then
16 авг 05, 11:10    [1789109]     Ответить | Цитировать Сообщить модератору
 Re: Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
sneg
Member

Откуда:
Сообщений: 153
RVI
Set WrdD = WrdA.Documents.Add(CurrentProject.Path & "\sample.dot")
WrdA.Visible = True
'Dim i As Integer - так и должно быть?
With Form.RecordsetClone
If .RecordCount <> 0 Then


Set WrdD = WrdA.Documents.Add(CurrentProject.Path & "\sample.dot")
WrdA.Visible = True
Dim i As Integer
With Form.RecordsetClone
If .RecordCount <> 0 Then
16 авг 05, 11:25    [1789220]     Ответить | Цитировать Сообщить модератору
 Re: Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
sneg
Member

Откуда:
Сообщений: 153
В продолжение.
А не подскажите как понумеровать таблицу?
16 авг 05, 11:27    [1789234]     Ответить | Цитировать Сообщить модератору
 Re: Документ Word из ленточной формы. Если поле пустое , то "Invaiid use of Null".  [new]
RVI
Member

Откуда: Москва
Сообщений: 5373
sneg
В продолжение.
А не подскажите как понумеровать таблицу?

FAQ: Что мы знаем про каунтеры (aka счетчики)
16 авг 05, 11:33    [1789285]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить