ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Игра с отчетом
19 сообщений из 19, страница 1 из 1
Игра с отчетом
    #32283597
@SEL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@SEL
Гость
Привет всем

Подскажите , как решить проблемку
Имеется одна форма, которая долэна открыть отчет в зависимовти от выбранных юзером условий. Условия назначаются контролами на форме

Мне необходимо изменить строку в RecordSource у открываемого запроса в зав. от желаний юзера

Я пытался сделать так: через DoCmd открываю форму, а потом пытаюсь изменить RecordSource = но ничего не получается

Пытался передавать через OpenArgs, но почему-то после открытияотчет не содержит OpenArgs

Что делать?
...
Рейтинг: 0 / 0
03.10.2003, 17:04
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283606
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
DoCmd.OpenReport "MyRep", acViewPreview, , "(Число=1 And Строка='2') or Флаг=True"
...
Рейтинг: 0 / 0
03.10.2003, 17:08
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283609
@SEL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@SEL
Гость
Я так понял , Вы написала параметр WhereCondition.
А мне нужно кардинально поменять рекордсет у отчета, то бишь , поменять RecordSource
...
Рейтинг: 0 / 0
03.10.2003, 17:11
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283617
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
пытаюсь изменить RecordSource = но ничего не получается
как ты пытаешься это сделать? Может после изменения стоит что-то обновить?
...
Рейтинг: 0 / 0
03.10.2003, 17:14
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283619
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PA
Участник
Можно так, например:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
        Set frm=Forms(''MyForm ")
        Select Case frm.TypeReport.Value
            Case 1 
                Me.RecordSource = "MyFavoriteQuery1 "
            Case 2 
                Me.RecordSource = "MyFavoriteQuery2"
    
        End Select
...
Рейтинг: 0 / 0
03.10.2003, 17:15
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283624
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
PA
Me.requery тоже не помешает...
...
Рейтинг: 0 / 0
03.10.2003, 17:17
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283626
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
/topic/38865&hl=Docmd.echo
...
Рейтинг: 0 / 0
03.10.2003, 17:17
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283631
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Такой проблемы нет, скорей всего ты что-то напутал.
Вот простой пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
        NameForm =  "F_list" 
        DoCmd.OpenForm NameForm     
        ' Устанавливаем источник для элемента подч. форма
        Forms![F_list]![PF_list].SourceObject = "PF_zpAktivPassiv"
        ' устанавляиваем для нее RecordSource 
        Forms![F_list]![PF_list].Form.RecordSource =  "SELECT "  & SBFTableName &  ".Счет13, "  & SBFTableName &  ".Activeacc, " ..... т.д.
...
Рейтинг: 0 / 0
03.10.2003, 17:20
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283633
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Забавно. В новом форуме видно, как я искал сообщение :)

2@SEL
Там я менял сортировку посредством открытия в конструкторе. Аналогично можно поменять и источник данных.
...
Рейтинг: 0 / 0
03.10.2003, 17:21
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283638
@SEL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@SEL
Гость
Извините за неточность.
Нужно открыть отчет и в нем менять рекордсет в зависимости от условий на форме из которой был отчет запущен.

to PA:

Не работает. Ставил прямо в событие Open. Вот пример:

Private Sub Report_Open(Cancel As Integer)
Dim sql As String
Dim frm As Form

Select Case Forms("FORM1").cmdReportType.Value
Case "Coutry"
Me.RecordSource = "MyFavoriteQuery1"
Case 2
Me.RecordSource = "MyFavoriteQuery2"

End Select
...
Рейтинг: 0 / 0
03.10.2003, 17:25
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283643
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PA
Участник
to Vsevolod V

у отчёта нет метода Requery



to @SEL

Должно работать, где-то у тебя косячок...
...
Рейтинг: 0 / 0
03.10.2003, 17:30
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283649
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
вместо

Select Case Forms("FORM1").cmdReportType.Value
Case "Coutry"
Me.RecordSource = "MyFavoriteQuery1"
Case 2
Me.RecordSource = "MyFavoriteQuery2"


попробуй

Select Case Forms("FORM1").cmdReportType.Value
Case "Coutry"
Me.RecordSource = "MyFavoriteQuery1"
Case "2"
Me.RecordSource = "MyFavoriteQuery2"
...
Рейтинг: 0 / 0
03.10.2003, 17:32
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283653
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Кстати да, на OnOpen отчета можно поменять Me.RecordSource...
...
Рейтинг: 0 / 0
03.10.2003, 17:36
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283671
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
тогда
в Forms("FORM1").cmdReportType.Value
можно загнать строку с текстом рекордсоусера
и
на OnOpen отчета можно поменять Me.RecordSource=Forms("FORM1").cmdReportType.Value
...
Рейтинг: 0 / 0
03.10.2003, 17:45
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283674
@SEL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@SEL
Гость
Не работает пример. Я делал так же раньше - поэтому и пишу

Пишет ошибку : Application-defined or Object-Defined Error
...
Рейтинг: 0 / 0
03.10.2003, 17:47
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283675
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
какой пример?
...
Рейтинг: 0 / 0
03.10.2003, 17:48
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283686
@SEL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@SEL
Гость
Любой, связанный с Forms("FORM1").cmdReportType.Value

Останавливается и ругается, как будто формы такой нет вообще.
...
Рейтинг: 0 / 0
03.10.2003, 17:51
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283698
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
Private Sub Report_Open(Cancel As Integer)
Dim sql As String
Dim frm As Form


debug.print Forms("FORM1").cmdReportType.Value


Select Case Forms("FORM1").cmdReportType.Value
Case "Coutry"
Me.RecordSource = "MyFavoriteQuery1"
Case 2
Me.RecordSource = "MyFavoriteQuery2"

End Select
...
Рейтинг: 0 / 0
03.10.2003, 17:58
| Ответить | Цитировать | Написать  
Игра с отчетом
    #32283714
@SEL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
@SEL
Гость
Спасибо.

Это было что-то с Аксессом.
После нескольких запусков он накрылся, сообщив о непримиримой ошибке. После перегруза компа все поехало, как надо.
...
Рейтинг: 0 / 0
03.10.2003, 18:07
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Игра с отчетом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32283624&tid=1679064]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 201ms
total:  343ms
созд. / загр.: 343ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]