Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Access + VBA / 2 сообщений из 2, страница 1 из 1
06.02.2006, 13:08:05
    #33525708
Molasar
Molasar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access + VBA
Есть таблица с инфой о клиентах.
Как с помощью Access или VBA создать новую таблицу, в которой после каждой строки будет добавлена новая строка

Например:
Старая таблица
1 Петров 1000
2 Иванов 2000
3 Сидоров 3000

Новая таблица
1 Петров 1000
2 Петров 1001
3 Иванов 2000
4 Иванов 2001
5 Сидоров 3000
6 Сидоров 3001
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2006, 13:20:22
    #33525748
Gray-Serg
Gray-Serg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access + VBA
Dim rst as New ADODB.Recordset
Dim rst2 as New ADODB.Recordset
'Тут открываешь rst (изначальная таблица) и rst2 (куда будешь добавлять записи)
rst.MoveFirst
Do while not rst.EOF
with rst2
.AddNew
!Field1 = rst!Field1
.Update
.AddNew
!Field1 = rst!Filed1 + 1
.Update
.MoveNext
End With
Loop

Ну, я полагаю, принцип понятен. Код не проверял, но должен работать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Access + VBA / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 447ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166435]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 200ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 191ms
total:  447ms
x
x
Закрыть


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