ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Авто создание нескольких записей в таблице при наступления события - MS Access
14 сообщений из 14, страница 1 из 1
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417562
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Добрый день!
Есть две таблицы: Клиенты и Занятия.
В "клиенты" есть дата заключения договора и выбор курса. Курсы проходят раз в неделю.

Задача:
когда в таблице "Клиенты" выбираю курс "№1", то мне нужно, чтобы в таблице "занятия" автоматически создавались 8 строк (записей) с фиксацией даты занятия. Пример: дата занятия 1 = дата договора +7 дней, дата занятия 2 = дата договора +14 дней и т.д.

Подскажите, пожалуйста, как это сделать?
...
Рейтинг: 0 / 0
12.03.2017, 12:22
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417568
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
База во вложении.
...
Рейтинг: 0 / 0
12.03.2017, 12:43
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417590
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstar,
-напрямую работа юзера с таблицей недопустима (создаете форму "ФИО студенты" и в ней процедуру)
-над структурой(если я правильно понял, стоящую перед Вами, задачу)необходимо подумать-она далеко не совсем правильна
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub Form_AfterUpdate()
Dim rs As Recordset, i, myDate As Date
myDate = Me.Дата_договора
Set rs = CurrentDb.OpenRecordset("занятия")
For i = 1 To DLookup("[кол-во занятий]", "курсы", "код=" & Me.Курс)
rs.AddNew
rs![фио студента] = Me.Код
rs!урок = i
rs!дата = myDate
myDate = myDate + 7
rs.Update
Next
End Sub
...
Рейтинг: 0 / 0
12.03.2017, 14:07
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417604
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, спасибо за код.
Я вставил код, но он у меня не заработал.
Сам не пойму где ошибся. Посмотрите, пожалуйста.
...
Рейтинг: 0 / 0
12.03.2017, 15:52
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417606
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, вот файл с верной вставкой кода, но по прежнему не работает.
...
Рейтинг: 0 / 0
12.03.2017, 16:03
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417609
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, как работает этот код DLookup("[кол-во занятий]", "курсы", "код=" & Me.Курс)
Ведь у меня нет нигде [кол-во занятий] и "курсы"
...
Рейтинг: 0 / 0
12.03.2017, 16:09
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417631
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstarsdku, как работает этот код DLookup("[кол-во занятий]", "курсы", "код=" & Me.Курс)
-Ведь у меня нет нигде [кол-во занятий] и "курсы"
возвращает значение поля [кол-во занятий] из таблицы "курсы" при значении поля код=значению поля курс на форме-а лучше читайте HELP-там всё наисано
-код проверил всё корректно работает (только для новой записи),заменил Ваше поле ФИО студента(не разбирался что именно не так,но что-то было не так)
...
Рейтинг: 0 / 0
12.03.2017, 17:29
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417635
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
хм.. значит у меня что-то с акцесс, раз он даже в последнем Вашем файле не выполняет функцию.
...
Рейтинг: 0 / 0
12.03.2017, 17:42
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417638
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, УРРРРРААААААААААААААААААААА!
Заработало!
Оказывается макросы в акцесс были заблокированы.


sdku, спасибо, спасибо, спасибо!!! :-)
...
Рейтинг: 0 / 0
12.03.2017, 17:53
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417641
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstar,
-Создайте новую запись>сохраните её (перейдя на любую другую или нажав сочетание ctrl+S)-в таблице занятия появятся новые записи в количестве=курсы.кол-во занятий,ФИО из формы и даты как Вы хотели (визуально ничего не произойдет)
-кнопка MS Office>центр управления безопасностью>параметры центра управления безопасностью>параметры макросов>включить все макросы
...
Рейтинг: 0 / 0
12.03.2017, 18:10
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417642
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Апаздал-рад что сами разобрались
...
Рейтинг: 0 / 0
12.03.2017, 18:12
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417644
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
sdku, а чтобы еще время фиксировалось в таблице "занятие" из формы "фио клиента" добавить нужно
Код: vbnet
1.
rs![Время] = Me.Код


Верно ли так? Фактически время не записываестя в таблицу "занятия"

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Form_AfterUpdate()
Dim rs As Recordset, i, myDate As Date
myDate = Me.Дата_первого_занятия
Set rs = CurrentDb.OpenRecordset("занятия")
For i = 1 To DLookup("[кол-во занятий]", "курсы", "код=" & Me.Курс)
rs.AddNew
rs![фио студента] = Me.Код
rs![Время] = Me.Код
rs!урок = i
rs!дата = myDate
myDate = myDate + 7
rs.Update
Next
End Sub
...
Рейтинг: 0 / 0
12.03.2017, 18:22
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417645
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
разобрался.
сделал
Код: vbnet
1.
rs![Время] = Me.Время


и все заработало)
счастья нет предела)
...
Рейтинг: 0 / 0
12.03.2017, 18:26
| Ответить | Цитировать | Написать  
Авто создание нескольких записей в таблице при наступления события - MS Access
    #39417675
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstar,
Me.Время - это ссылка на одноименное поле в текущей форме(таблице-источнике)а его там нет-VBA не должен это "проглотить"-чудо однако..
...
Рейтинг: 0 / 0
12.03.2017, 19:55
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Авто создание нескольких записей в таблице при наступления события - MS Access
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39417631&tid=1612645]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 14ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


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