Вход на сайт
сново Access VBA
159 просмотров
Перейти к просмотру всей ветки
в ответ Herzog 30.11.06 16:10
Разделитель строки на подстроки - сплит, только примера в помощи не ищи. На VB-страницах можно поискать типа vb-helper.com или vbarchiv.net
Примерно это может выглядеть так:
Dim subStr() As String, i As Integer
Dim rowStr() As String, j As Integer
subStr() = Split(strJAuelle, vbCR) 'есть еще константы vbLF или vbCRLF
For i = 0 To UBOUND(subStr)-1
rowStr() = Split(subStr(i), vbTab)
For j = 0 To UBOUND(rowStr)-1
Forms("Nazvanie formy")("Nazvanie jelementa").Teht = rowStr(j)
Neht j
Neht i
Что касается записи в поле, я нарисовал Forms("Название формы")("Название элемента").Техт - это нужно подправить в зависимости от того, как организована форма. Предполагаю, что элементы в форме не привязаны к полям (в связи с наличием кнопки Save), т.е. перенос информации осуществляется в функции, вызываемой при нажатии этой кнопки. Вполне возможно придется писать в RecordSet, но это другая песня.
Удачи.
Примерно это может выглядеть так:
Dim subStr() As String, i As Integer
Dim rowStr() As String, j As Integer
subStr() = Split(strJAuelle, vbCR) 'есть еще константы vbLF или vbCRLF
For i = 0 To UBOUND(subStr)-1
rowStr() = Split(subStr(i), vbTab)
For j = 0 To UBOUND(rowStr)-1
Forms("Nazvanie formy")("Nazvanie jelementa").Teht = rowStr(j)
Neht j
Neht i
Что касается записи в поле, я нарисовал Forms("Название формы")("Название элемента").Техт - это нужно подправить в зависимости от того, как организована форма. Предполагаю, что элементы в форме не привязаны к полям (в связи с наличием кнопки Save), т.е. перенос информации осуществляется в функции, вызываемой при нажатии этой кнопки. Вполне возможно придется писать в RecordSet, но это другая песня.
Удачи.