Sub TestInsertToMemo()
Dim db As Database
Set db = CurrentDb
Dim strSQL As String
strSQL = "INSERT INTO Tab ( [memo] ) VALUES ('NEW TEST" & vbCrLf & _
"New text line');"
db.Execute strSQL
End Sub
Заполнение поля MEMO
Всем здрасте!
Я пытаюсь заполнить поле MEMO в Access через VBA. И вроде всё получается... кроме перехода на новую строку :(
Может кто подскажет, как это сделать?
Сразу скажу, ChrW(13) и String(1, 13) не помогают - вместо перевода строки(то бишь энтера) вылезает какой-то квадратик!:(
Заранее всем благодарен!:)
Я пытаюсь заполнить поле MEMO в Access через VBA. И вроде всё получается... кроме перехода на новую строку :(
Может кто подскажет, как это сделать?
Сразу скажу, ChrW(13) и String(1, 13) не помогают - вместо перевода строки(то бишь энтера) вылезает какой-то квадратик!:(
Заранее всем благодарен!:)
Цитата: Apy4
Всем здрасте!
Я пытаюсь заполнить поле MEMO в Access через VBA. И вроде всё получается... кроме перехода на новую строку :(
Может кто подскажет, как это сделать?
Сразу скажу, ChrW(13) и String(1, 13) не помогают - вместо перевода строки(то бишь энтера) вылезает какой-то квадратик!:(
Заранее всем благодарен!:)
Я пытаюсь заполнить поле MEMO в Access через VBA. И вроде всё получается... кроме перехода на новую строку :(
Может кто подскажет, как это сделать?
Сразу скажу, ChrW(13) и String(1, 13) не помогают - вместо перевода строки(то бишь энтера) вылезает какой-то квадратик!:(
Заранее всем благодарен!:)
Формируй строку запроса, а не передавай в запросе кашу.
Код:
Спасибо за совет!:)
vbCrLf - именно то, что мне нужно!
Ну ступил я, ну бывает!:D
vbCrLf - именно то, что мне нужно!
Ну ступил я, ну бывает!:D