Есть программка, которая берет из базы данных (путем простейшего select) данные и заполняет табличку Ворда.
Когда из базы берутся 35 или менее строк, то все работает нормально.
Но когода строк 36, то возникает ошибка:
?err.Description Слияние в новый документ не было выполнено, поскольку все записи данных были пусты или ни одна запись данных не соответствовала условиям отбора.
?err.Number 5631
Кодинг:
Set objStickerTemplate = objWordApp.ActiveDocument objStickerTemplate.MailMerge.MainDocumentType = wdFormLetters objStickerTemplate.MailMerge.OpenDataSource Name:= _ sPathDB & "\CBSD_SP_CRM_vRegistrationList1.odc" _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:=sConnStr _ , SQLStatement:=sSQL, SQLStatement1:="", _ SubType:=wdMergeSubTypeOther With objStickerTemplate.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With
Ошибка возникает на строке:
.Execute Pause:=False
Подскажите в чем тут может быть дело и как это исправить?
|