ник: joka
при этом когда переписал код так, то он работает во всех случаях...вот чешу репу не понимаю в чем косяк, кто подскажет??? проблему хоть и решил но все таки интересно узнать...
str = ""
If Not IsNull(rst.Fields(2)) Then str = str & "№ " & rst.Fields(2)
If Not IsNull(rst.Fields(3)) Then str = str & Chr(13) & Chr(10) & "Выдан: " & rst.Fields(3)
If Not IsNull(rst.Fields(4)) Then str = str & Chr(13) & Chr(10) & "Дата выдачи: " & rst.Fields(4)
If Not IsNull(rst.Fields(5)) Then str = str & Chr(13) & Chr(10) & "Действует до: " & rst.Fields(5)
If Not IsNull(rst.Fields(6)) Then str = str & Chr(13) & Chr(10) & "Примечания: " & rst.Fields(6)
Me.Поле6.ControlSource = "= """ & Replace(str, """", """""") & Chr(13) & Chr(10) & " " & """"