ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с таблицами в форме
11 сообщений из 11, страница 1 из 1
Работа с таблицами в форме
    #32167252
Asy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Asy
Участник
Подскажите, подалуйтса, кто знает.
В БД имеются табдицы - разные имена но с одинаковой структурой. Нужно сделать форму, в которой пользователь выберет таблицу для обработки, затем эта таблица обработается макросом. Заранее спасибо.
...
Рейтинг: 0 / 0
23.05.2003, 14:34
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167270
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
У формы есть свойство ИсточникЗаписей (RecordSource), меняй его на нужный.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
На открытие формы

Select Case Me.OpenAgrs
case  "Table1" 
Me.RecordSource= "Table1" 
Case  "Table2" 
Me.RecordSource = "Table2" 
и т.д.

А можно еще проще (еслилогика позволяет)
me.RecordSource =Me.OpenArgs
...
Рейтинг: 0 / 0
23.05.2003, 14:42
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167300
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейЕ
Участник
Вообще-то, несколько таблиц с одинаковой структурой это не есть хорошо.
Должна быть одна.
Но будим исходить из того, что это жизненно важно, тогда, чтобы получить список таблиц воспользуйтесь кодом
Код: plaintext
1.
2.
For Each tdf In CurrentDb.TableDefs
        Debug.Print tdf.Name
    Next tdf

Выведите имена таб. в списке, и пусть пользователь выбирает.

Но повторюсь, несколько таб. с одинаковой структурой это плохо. Слейте их в одну таб. и добавьте поле на основании которого будете их различать.
Например.
Были таблицы продаж ПродажиЯнварь , ПродажиФевраль , ПродажиМарт …
Создайте одну таб. Продажи с доп. полем МесяцПродаж.
...
Рейтинг: 0 / 0
23.05.2003, 14:54
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167307
Asy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Asy
Участник
в БД может быть импортировано много таких таблиц (минимум каждый месяц новая).Может можно как-то это через выпадающий список организовать?
...
Рейтинг: 0 / 0
23.05.2003, 14:56
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167343
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
Что народ и предлагал, например, АлексейЕ даже пример выложил.
И про собрать таблицы в одну - прислушайся.
Добавь поле "месяц", если нужно помесячно, или другие уровни детализации, по которым различаешь таблички, и собери все данные в одну!!!
Иначе ты и в запросах будешь каждый раз таблицу с данными менять!!!
...
Рейтинг: 0 / 0
23.05.2003, 15:14
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167345
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейЕ
Участник
В форме создаете поле со списком ПолеСоСписком6 (я правильно понял выпадающий список?)
Свойство 'Тип источника строк' ставите в значение "Список значений"
На открытие формы вешаете
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Form_Open(Cancel As Integer)
Dim tdf As TableDef, strTdfName As String
For Each tdf In CurrentDb.TableDefs
    strTdfName = tdf.Name
    If left(strTdfName,  4 ) <>  "MSys"  Then   'отсекаем системные таб.
        Me![ПолеСоСписком6].RowSource = Me![ПолеСоСписком6].RowSource &  ";"  & strTdfName
    End If
Next tdf
End Sub

Примерно так.
...
Рейтинг: 0 / 0
23.05.2003, 15:14
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167451
Asy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Asy
Участник
Супер - все работает, если не трудно, подскажите - как автоматически теперь сделать копию этой таблицы под другим именем? (или как теперь выбранную таблицу передать в модуль (чтобы модуль работал именно с выбранной таблицей).
...
Рейтинг: 0 / 0
23.05.2003, 16:12
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167465
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
>как автоматически теперь сделать копию этой таблицы под другим именем

или
docmd.CopyObject
или SQL-инструкцией
SELECT бля...поля INTO НоваяТаблица FROM СтараяТаблица
...
Рейтинг: 0 / 0
23.05.2003, 16:19
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167470
Asy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Asy
Участник
Хорошо, допустим сделаю я общую табличку (каждый раз туда данные добавлять буду). А как же мне из этой общей таблички отчет формировать за каждый месяц? Есть ли возможность это в отчете предусмотреть?
...
Рейтинг: 0 / 0
23.05.2003, 16:20
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32167550
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейЕ
Участник
В источник записей отчета поставите запрос с условием
Код: plaintext
1.
2.
SELECT *
FROM Продажи
WHERE ((Продажи.МесяцПродаж)= "январь" );

где Продажи - таблица
МесяцПродаж - поле таб.

Условие можно менять в зависимости от требований
Код: plaintext
1.
2.
SELECT *
FROM Продажи
WHERE ((Продажи.МесяцПродаж)=[Forms]![Форма5]![Поле0]);

В данном случае имя месяца берется из формы5 поля0
...
Рейтинг: 0 / 0
23.05.2003, 17:01
| Ответить | Цитировать | Написать  
Работа с таблицами в форме
    #32168234
Asy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Asy
Участник
Спасибо ВСЕМ огромное!!! Все работает как и надо!!!
...
Рейтинг: 0 / 0
26.05.2003, 10:02
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с таблицами в форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32167451&tid=1681413]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 208ms
total:  332ms
созд. / загр.: 332ms
x
x
Закрыть


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