Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Игра с отчетом / 19 сообщений из 19, страница 1 из 1
03.10.2003, 17:04
    #32283597
@SEL
@SEL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игра с отчетом
Привет всем

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

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

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

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

Что делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2003, 17:08
    #32283606
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игра с отчетом
DoCmd.OpenReport "MyRep", acViewPreview, , "(Число=1 And Строка='2') or Флаг=True"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2003, 17:11
    #32283609
@SEL
@SEL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игра с отчетом
Я так понял , Вы написала параметр WhereCondition.
А мне нужно кардинально поменять рекордсет у отчета, то бишь , поменять RecordSource
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2003, 17:14
    #32283617
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игра с отчетом
пытаюсь изменить RecordSource = но ничего не получается
как ты пытаешься это сделать? Может после изменения стоит что-то обновить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2003, 17:15
    #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:17
    #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:20
    #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:21
    #32283633
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игра с отчетом
Забавно. В новом форуме видно, как я искал сообщение :)

2@SEL
Там я менял сортировку посредством открытия в конструкторе. Аналогично можно поменять и источник данных.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2003, 17:25
    #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:30
    #32283643
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игра с отчетом
to Vsevolod V

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



to @SEL

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

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

Останавливается и ругается, как будто формы такой нет вообще.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2003, 17:58
    #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, 18:07
    #32283714
@SEL
@SEL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игра с отчетом
Спасибо.

Это было что-то с Аксессом.
После нескольких запусков он накрылся, сообщив о непримиримой ошибке. После перегруза компа все поехало, как надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Игра с отчетом / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 360ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1679064]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 67ms
get tp. blocked users:
 1ms
others: 203ms
total:  360ms
x
x
Закрыть


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