0 голосов
спросил от в категории Access
Вот решение, которое я использую для быстрой «копии» данных. Я оставляю некоторые комментарии, чтобы вы могли подобрать логику. Обратите внимание, что я изменил тип доступа из вашего требования (DAO) на ADOX (ADODB). Написание этого в модуль на консоли VBA может вызвать предупреждение, поэтому перейдите в библиотеку обозревателя объектов и найдите мою замену.
Sub RollTableOff() 'At this stage this code updates the data table with the first input query....     Dim cnn1 As ADODB.Connection          Dim cat1 As New ADOX.Catalog     Dim rst1 As New ADODB.Recordset     Dim rst2 As New ADODB.Recordset         'Set context for populating new table (pattern02).     'Empty values from pattern02 before running.          Set cnn1 = CurrentProject.Connection     Set cat1.ActiveConnection = cnn1     Set rst1.ActiveConnection = cnn1              'Open recordsets based on new and orignal tables.      rst1.Open "Pattern", , adOpenKeyset, adLockOptimistic, adCmdTable                 'Loop through recordsets to copy from original to new table.     With rst1          Do Until rst2.EOF             .AddNew                   .Fields![ID] = rst2![ID]                   .Fields![Type] = rst2![Type]                   .Fields![Amount] = rst2![Amount]             .Update             .MoveNext         rst2.MoveNext         Loop              End With End Sub

Или нет ... (некоторые требуется замена)

В этом решении SQL не использовался.

Пожалуйста, войдите или зарегистрируйтесь чтобы ответить на этот вопрос.

Категории

Добро пожаловать на сайт DraftingCode Q&A, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Похожие вопросы

0 голосов
0 ответов
спросил 10 Сен, 18 от richard maccutchan в категории Access
0 голосов
0 ответов
спросил 26 Апр, 10 от eddy vluggen в категории Access
0 голосов
0 ответов
спросил 01 Янв, 70 от MacFirst (120 баллов) в категории Access
0 голосов
0 ответов
0 голосов
0 ответов
спросил 10 Янв, 18 от maciej los в категории Access
...