Три вопроса по VBA

[Юнлинг]

УВажаемые господа!
ПРи написании одной задачи возникло три вопроса:
Вопрос 1:
ПРи чтении из БД часто встречается пустая запись (поле =NULL). Как подправить следующую строчку
ot = oRes.Fields(4).Value
nm(j) = RTrim(fio) + " " + Left(im, 1) + ". " + Left(ot, 1) + "."
чтобы в случае если oRes.Fields(4).value=NULL выполнялась другая операция
nm(j) = RTrim(fio) + " " + Left(im, 1) + ". "
структуру типа IF oRes.fields(4).value=NULL then или IF oRes.fields(4).value iS NULL не работают
Вопрос 2:
При формировании страницы для печати (режим разметки страниц) в макросе
Rows("1:41").Select
k = (j - 1) * 41 / 13 + 1
Selection.Copy
Range("a" & k).Select
ActiveSheet.Paste
Rows("" & ((j - 1) * 41 / 13 + 8) & ":" & (((j - 1) / 13 + 1) * 41 - 8)).Select
Range("a" & ((j - 1) * 41 / 13 + 8) & ":" & "IU" & (((j - 1) / 13 + 1) * 41 - 8)).Select
Selection.ClearContents
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$1:$" & (((j - 1) / 13 + 1) * 41)
With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintGridlines = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Range("a" & k).Activate
Set ActiveSheet.HPageBreaks(1).Location = Range("A" & k)
Достаточно часто возникает ошибка и прога заканчивает работу. Но на листе разметка произведена.
Повторный запуск программы уже этой ошибки не дает. Все листы находятся в состоянии разметки страниц.

Вопрос 3:
читаем данные из базы стандартным способом VBA
Dim Conn As ADODB.Connection
Dim oRes As ADODB.Recordset
Dim oCmd As ADODB.Command
...
Set Conn = CreateObject("ADODB.Connection")
Set oRes = CreateObject("ADODB.Recordset")
Set oCmd = CreateObject("adodb.command")

Conn.Open "Provider=SQLOLEDB.1;Password=Proje ct2;Persist Security Info=True;User ID=Project2;Initial Catalog=e6work;Data Source=172.18.12.6"
...
oCmd.ActiveConnection = Conn
str = "ep_Askvtidata @cmd='List',@idvti=" & idVTI & ", @idreq=" & rndval & ", @TimeStart='" & Dtn & " 20:00' , @TimeEnd='" & Dtk & " 20:00'"
oCmd.CommandText = str
oCmd.Execute
...
str = "select sum(valuefl), sum(idVTI) from vtidatalist where valuefl>4 and idvti=" & idVTI & " and idreq=" & rndval
oRes.Open str, Conn
Вопрос сумирование выполняется на компьютере где запущена прога VBA vs Excel или на MS SQL сервере. Если на своем компе то как заставить производить операцию сервер (подозрительно долго считает ~ 0,5 сек)

Заранее балгодарен за ответы.

[EducatedFool]

Вопрос 1.

Попробуйте так: If IsNull(oRes.fields(4).Value) Then

Вопрос 2:

Возможно, ошибка возникает при попытке установить позицию для несуществующего разделителя страниц:
ActiveSheet.HPageBreaks(1).Location = Range("A" & k)

тогда используйте перед этой строкой метод HPageBreaks.Add

Какая ошибка возникает? Номер, описание ошибки?
На какой строке останавливается выполнение кода?

[Юнлинг]

Сообщение от EducatedFool

Вопрос 1.

Попробуйте так: If IsNull(oRes.fields(4).Value) Then

Сработало спасибо!

[Юнлинг]

Сообщение от EducatedFool

Вопрос 2:

Возможно, ошибка возникает при попытке установить позицию для несуществующего разделителя страниц:
ActiveSheet.HPageBreaks(1).Location = Range("A" & k)

тогда используйте перед этой строкой метод HPageBreaks.Add

Какая ошибка возникает? Номер, описание ошибки?
На какой строке останавливается выполнение кода?

Не работает ошибка RunTime 1004
добавив рекомендованную ВАМИ строку возникает такая же ошибка

[EducatedFool]

добавив рекомендованную ВАМИ строку возникает такая же ошибка

Имелся ввиду вариант типа такого:
ActiveSheet.HPageBreaks.Add Range("A" & k)

тогда строка ActiveSheet.HPageBreaks(1).Location = Range("A" & k) не нужна

Напимер, можете использовать такой код:

Sub test2()
    ' сначала убираем все имеющиеся на данный момент разделители страниц
    For i = 1 To ActiveSheet.HPageBreaks.Count
        ActiveSheet.HPageBreaks(1).Delete
    Next
    ' а потом уже ставим разделители страниц как надо:
    ActiveSheet.HPageBreaks.Add Range("A" & 12)
    ActiveSheet.HPageBreaks.Add Range("A" & 25)
End Sub

[Юнлинг]

Сообщение от EducatedFool

Имелся ввиду вариант типа такого:
ActiveSheet.HPageBreaks.Add Range("A" & k)

тогда строка ActiveSheet.HPageBreaks(1).Location = Range("A" & k) не нужна

Напимер, можете использовать такой код:

Sub test2()
    ' сначала убираем все имеющиеся на данный момент разделители страниц
    For i = 1 To ActiveSheet.HPageBreaks.Count
        ActiveSheet.HPageBreaks(1).Delete
    Next
    ' а потом уже ставим разделители страниц как надо:
    ActiveSheet.HPageBreaks.Add Range("A" & 12)
    ActiveSheet.HPageBreaks.Add Range("A" & 25)
End Sub

УРАААА! сработало.

Остался последний третий вопрос.
По первому сам ошибся. Все работает!!!

[Юнлинг]

Уважаемый EducatedFool!

Если вчера все работало. То сегодня вновь возникла ошибка
Run-time error "1004"
Application-defined or object-defined error