ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Из подчиненной формы - в таблицу
10 сообщений из 10, страница 1 из 1
Из подчиненной формы - в таблицу
    #32712402
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Господа!
Возможно в форуме уже есть ответ на мой вопрос,
но я утомился искать (вернее читать, в поисках нужного ответа).
А необходимо всего чуть-чуть:
"Перенести" все записи из подчиненной формы (если они есть, конечно),
в таблицу (подчиненная форма "построена" на другой таблице).
...
Рейтинг: 0 / 0
27.09.2004, 11:59:22
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712634
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Спасибо...
Продолжу...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
If NumRecords >  0  Then
    Forms![Main_form]![Sub_form_01]![Sub_form_02].Form.RecordsetClone.MoveFirst
    Do While Not (Counter >= NumRecords)
    strSQL = "INSERT INTO [T_name_01] ([F_01],[F_02],[F_03],[F_04]) VALUES ('" & Forms![Main_form]![Sub_form_01]![Sub_form_02].Form.[Номер] & "', 2, #" & Format(Me.[ПолеДата], "mm\/dd\/yyyy") & "#, '" & Me.[ПолеПолучил] & "');"
        CurrentDb.Execute strSQL
        Counter = Counter +  1 
        Forms![Main_form]![Sub_form_01]![Sub_form_02].Form.RecordsetClone.MoveNext
    Loop
Проблема:
не переводится на следующую запись (т.е. подставляется значение только первой)!
правильно-ли я использую .MoveNext?
...
Рейтинг: 0 / 0
27.09.2004, 13:26:52
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712655
Soldat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Soldat
Участник
попробуй в начало кода добавить:

dim rc as recordset
set rc = Forms![Main_form]![Sub_form_01]![Sub_form_02].Form.RecordsetClone

а в остальном коде процедуры замени строку
Forms![Main_form]![Sub_form_01]![Sub_form_02].Form.RecordsetClone
на rc

rc.MoveFirst
Do While Not (Counter >= NumRecords)
strSQL = "INSERT INTO [T_name_01] ([F_01],[F_02],[F_03],[F_04]) VALUES ('" & Forms![Main_form]![Sub_form_01]![Sub_form_02].Form.[Номер] & "', 2, #" & Format(Me.[ПолеДата], "mm\/dd\/yyyy") & "#, '" & Me.[ПолеПолучил] & "');"
CurrentDb.Execute strSQL
Counter = Counter + 1
rc.MoveNext
Loop
...
Рейтинг: 0 / 0
27.09.2004, 13:35:54
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712657
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
dim rst as DAO.Recordset
    set rst = Forms![Main_form]![Sub_form_01]![Sub_form_02].Form.RecordsetClone
    If rst.RecordCount >  0  then
         rst.MoveFirst
         Do While Not rst.EOF
             strSQL = "INSERT INTO [T_name_01] ([F_01],[F_02],[F_03],[F_04]) VALUES ('" & rst("Название поля") & "', 2, #" & Format(rst("Название поля"), "mm\/dd\/yyyy") & "#, '" & rst("Название поля") & "');"
            CurrentDb.Execute strSQL
            rst.MoveNext
         Loop
    end if

вместо "названия поля" вставь соответствующие имена полей, служащих control source для нужных контролов (Номер,ПолеДата и т.д)
...
Рейтинг: 0 / 0
27.09.2004, 13:36:07
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712663
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
и самое важное:
CurrentDb.Execute strSQL, dbFailOnError
...
Рейтинг: 0 / 0
27.09.2004, 13:38:11
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712671
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Спасибо, за отклики!
Съезжу, только, от'обедаю,
и сразу попробую,
а то крыша съезжает ("пальцы опухают" :)
...
Рейтинг: 0 / 0
27.09.2004, 13:40:08
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712907
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
Все получилось!
Сначала, правда, я не обратил внимания на кавычки в названии поля.
Затем все пошло "на ура"!

Маленькое отступление - зачем dbFailOnError?
Я его никуда не ставлю и проблем, пока, нет.

С уважением,
Дмитрий
...
Рейтинг: 0 / 0
27.09.2004, 14:46:06
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712934
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
автор
Маленькое отступление - зачем dbFailOnError?


Это не маленькое отступление, это большое приступление ;)


автор
Я его никуда не ставлю и проблем, пока, нет.


Даже если и появятся, то не заметишь.

cм. здесь
...
Рейтинг: 0 / 0
27.09.2004, 14:54:01
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712945
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
dbFailOnError - Rolls back updates if an error occurs
...
Рейтинг: 0 / 0
27.09.2004, 14:57:06
| Ответить | Цитировать | Написать  
Из подчиненной формы - в таблицу
    #32712974
Dmitry-SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry-SQL
Участник
I'm anderstand !
Big thanks!!!
...
Рейтинг: 0 / 0
27.09.2004, 15:04:31
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Из подчиненной формы - в таблицу
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1552&tid=1671499]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 25ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 196ms
total:  273ms
созд. / загр.: 273ms
x
x
Закрыть


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