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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Запрос с ...

RE: Запрос с исключением

15.06.2007 21:08:05

makc

48 сообщения

RE: Запрос с исключением

Если я все правильно понял то можно попробовать эту функцию
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

с помощь этой функции можно создать в примечании формы поле суммирующее все значения в области данных типа было
1 Иванов
2 Петров
3 Сидоров
Стало: Иванов, Петров, Сидоров (кажется)
тебе надо будет ее переделать что бы можно было в SQL запросе написать where [ID] не равно и ссылку на это поле.
Пробовать лень напиши что получиться.

P.S. Общий раздел по запросам
Автор: makc от 20.02.2004 7:56:08 Источник ...

15.06.2007 21:08:05

Alexander1

23 сообщения

RE: Запрос с исключением

Идея немного другая..я попробовал создать двумя способами. Можно сказать решение мертвое.. Приходиться писать сложную обработку на то чтобы информация в других полях не затиралась.
Тупик..Через проверку гараздо проще..
Но все равно спасибо..
Хотя бы за то что было не лень калякнуть пару слов..

P.S. Общий раздел по запросам
Автор: Alexander от 20.02.2004 23:17:54 Источник ...

Страница 2 из 2

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

Microsoft Access. Файлы mdb и accdb

Тема: Запрос с ...

Поиск

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

Начало | Forums