Архив форумов ЦИТФорума

[Ginger]

Есть такая необходимость:
нужно программо добавлять данные для отчета в MS Access'e. Мне нужно смоделировать те данные которые приходят в отчет из запроса или таблицы.
на VB это должно выглядеть типа того:

Me.datasource.AddNew

Но я не знаю как реально это сделать! Кто знает плиз, помогите! Это нужно срочно!!!

[vladimir_kg]

[Ginger]

[vladimir_kg]

Спасибо Владимир!
Но предложенный вариант не подходит.
в упрощенном виде это должно выглядеть так:
у меня в отчете в области наддых есть поле Name.
Мне нужно для этого поля на VB добавлять данные.
while(n<count)
Me!Name.value="Что-нить вставляем..."
Wend
.[/quote]

Слушай есть еще один вариант...

Можно сделать так

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
me.print "что хочешь, только незабудь про форматирование"
''' можешь использовать и цикл....
End Sub

только есть одна проблема отслеживание конца страницы....
нужно почить справку по этому вопросу....

[Ginger]

Вот именно! Нужно многое что отслеживать если делать таким образом.
Поэтому самый простой вариант - программано посылать данные в отчет.
Как это сделать?
Все остальные варианты очень трудные.

есть ли что-то типа

Me![ОбластьДанных].AddNewData

или

Me![ОбластьДанных].AddNewRow

какая либо функция, которой можно управлять данными в области данных!

[vladimir_kg]

Тогда предлагаю два этих метода совместить....

короче говоря прежде нужно настроить это поле:
полей есть такое свойство как "РАСШИРЕНИЕ" ставим да...

далее добавляем следующий код:

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
Dim mystr As String
For i = 1 To Me.val
mystr = mystr & "Наши данные " & Str(i) & vbCrLf
Next i
Me.НашеПоле = mystr
End Sub

vbCrLf - эта константа переводит при форматировании строки в поле курсор на новую строку, что и позволяет получить нужный результат...

типа такого вида:

id val

1 2 наше Мои данные 1
Мои данные 2
2 4 наше Мои данные 1
Мои данные 2
Мои данные 3
Мои данные 4
3 5 наше Мои данные 1
Мои данные 2
Мои данные 3
Мои данные 4
Мои данные 5


Примечание:
ТАК ЕЩЕ НЕ ИЗВРАЩАЛСЯ НА АКСЕСЕ....

[vladimir_kg]

потерялось форматирование ((((
и по этому плохо видно что в итоге получается....

если есть желание могу выслать примерчик по почте forlove.82@mail.ru, на котором только что извращался....

[Ginger]

спасибо за ответы!
Если я правильно понял - этот пример вкладывает все данные в одно поле.
А мне нужно чтобы создавалось другое поля для новых данных.

Пример:
В таблице есть строки:
Строка 1
Строка 2
Строка 3
Строка 4
Строка 5
Строка 6

Мы делаем отчет на основе этой таблице, где в свойство Source текстового поля ставим столбец таблицы в котором хранятся эти строки.
При выводе (предпросмотре или печате) отчета мы получаем 6 полей со строками из нашей таблицы.
Это есстественное дело.

ТАК ВОТ: мне нужно программно посылать данные в отчет чтобы получилось тоже самое (тот же самый результат):

SUB
For i = 1 To 6
Me.source.НашеПоле.AddNew
Me.НашеПоле = "Строка " & Str(i)
Next i
End Sub

Результат должен быть одинаковый как при естественном выводе отчета на основе таблици.
Вот только проблема как добавить это новое поле (или новый комплект данных, которые соответсвуют одной строке таблицы или запроса)???

Как смоделитьровать сами данные и как их добавлять - это не проблема.

[vladimir_kg]

Если твой проект *.mdb

встроенный SQL .mdb не позволит создать такой запрос.

Запрос выполнятеся строка за строкой, попытка использовать подзапрос ни к чему не приведет. (т.е. нельзя заставить выполнить строку несколько раз)

но всетаки решение нашлось...
сразу хочу оговориться, что работает оно только до определенного диапазона значений...
максимально количество строк в принципе не ограничено, но необходимо их прописать...

ВОТ САМ ПРИМЕР

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

------------------------------------
n..............................ef
------------------------------------
1..............................1
2..............................1
2..............................2
3..............................1
3..............................2
3..............................3
4..............................1
4..............................2
4..............................3
4..............................4
5..............................1
5..............................2
5..............................3
5..............................4
5..............................5
---------------------------
можно продолжать в том же духе......

в моем примере максимально количесвто выводимых строк 5...


а вот твоя таблица:

где n количество повторов строки.
id - уникальный номер
val - какое либо значение

----------------------------------------------------------------------------
ID..............................n..............................val
----------------------------------------------------------------------------
1..............................2..............................два
2..............................3..............................три
3..............................5..............................а это пять
4..............................4..............................этот текст (4 раза)


А теперь самое простое:
Запрос который выведет то что мы так долго искали...

SELECT t1.ID, t1.val, t1.n
FROM t1 INNER JOIN dop ON t1.n=dop.n;

Результат запроса для представленных выше данных следущий:

----------------------------------------------------------------------------
ID..............................val..............................n
----------------------------------------------------------------------------
1..............................два..............................2
1..............................два..............................2
2..............................три..............................3
2..............................три..............................3
2..............................три..............................3
3..............................а это пять..............................5
3..............................а это пять..............................5
3..............................а это пять..............................5
3..............................а это пять..............................5
3..............................а это пять..............................5
4..............................этот текст (4 раза)..............................4
4..............................этот текст (4 раза)..............................4
4..............................этот текст (4 раза)..............................4
4..............................этот текст (4 раза)..............................4

вот пожалуй и все что могу предложить на текущий момент.

Примечание...
Как альтернативу ручному вводу в дополнительную таблицу могу предложить использовать программный код на vba... который выполниться один раз, и не будет повторяться перед каждой выборкой.

Данный пример не подойдет для тех случаев когда приходится выводить большое количество повторов....

Специально для Админа (когда будет работать форматирование, это существенно....)

[Ginger]

Спасбо!
Я как раз использую сейчас такой пример с таблицей (это обсуждалось еще в других темах)...
Тока я немного оптимизировал эту схему.

Мне хочется узнать 2 вопроса:
1. Всетаки возможно ли это сделать на SQL (и в каких СУБД).
2. Возможно ли программно добавлять (засылать) данные в отчет (собственно о чем тема и идет...).

Если кто знает о такой возможности (и реальных примерах) поделитесь мудростью!

[Lamers]

Запрос1: