Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Добавлени...

Тема: Добавление в поле Мемо

15.06.2007 21:08:01

All

4316 сообщения

Тема: Добавление в поле Мемо

Есть ленточная подчиненной форма. Возможно ли, чтобы в главной форме, в поле мемо попадали значения из ленточной подчиненной. В принципе они туда попадают, но проблема в том, что предыдущая запись затирается, а надо чтобы она сдвигалась в низ, т.е записи как-бы накапливались.

Заранее спасибо

P.S. Запросы на добавление
Автор: Алексей от 0:00:00 Источник ...

15.06.2007 21:08:01

makc

48 сообщения

RE: Добавление в поле Мемо

попробуй
http://www.leadersoft.ru/cgi-bin/rusboard/data/3236.htm
еще раз спасибо за помощь админу
или
Public Function jsSumString(fld As Object) As String
Dim rst As DAO.Recordset
Dim fldName As String
On Error GoTo SumStringErr
Set rst = fld.Parent.Form.RecordsetClone
fldName = fld.Name
With rst
Do Until .EOF = True
'собираем суммарную строку через запятую
jsSumString = jsSumString & ", " & .Fields(fldName).Value
.MoveNext
Loop
End With
'Убираем первую (ненужную) запятую
jsSumString = Mid(jsSumString, 3)
Exit Function
SumStringErr:
jsSumString = "#ERROR#"
End Function

Спасибо Серебрякову Евгению.

P.S. Запросы на добавление
Автор: makc от 04.02.2004 13:20:08 Источник ...

15.06.2007 21:08:01

All

4316 сообщения

RE: Добавление в поле Мемо