|
|
|
Access + VBA
|
|||
|---|---|---|---|
|
#18+
Есть таблица с инфой о клиентах. Как с помощью Access или VBA создать новую таблицу, в которой после каждой строки будет добавлена новая строка Например: Старая таблица 1 Петров 1000 2 Иванов 2000 3 Сидоров 3000 Новая таблица 1 Петров 1000 2 Петров 1001 3 Иванов 2000 4 Иванов 2001 5 Сидоров 3000 6 Сидоров 3001 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.02.2006, 13:08:05 |
|
||
|
Access + VBA
|
|||
|---|---|---|---|
|
#18+
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 Ну, я полагаю, принцип понятен. Код не проверял, но должен работать... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.02.2006, 13:20:22 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=33525708&tid=2166435]: |
0ms |
get settings: |
6ms |
get forum list: |
20ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
49ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
43ms |
get tp. blocked users: |
1ms |
| others: | 263ms |
| total: | 397ms |
| 0 / 0 |
