Access ? |
Sub m1() Dim acc As Access.Application Set acc = New Access.Application acc.OpenCurrentDatabase "D:\app2.mdb" ' acc.Run "test1" ' , arr1 ' arr1 ' "Method or data member not found" MsgBox acc.arr1(0) ' arr1 Set acc = Nothing End Sub
http://www.sql.ru/forum/1165263/kak-peredat-massiv-iz-odnogo-prilozheniya-access-v-drugoe