код такой
- Код: Выделить всё
Dim ac As Access.Application
ac = CreateObject("C:\Program Files\Maney 1.3\CB_Valuta.mdb")
ac.DoCmd.RunMacro(("Макрос1"))
ac.Quit()
что делать?
Dim ac As Access.Application
ac = CreateObject("C:\Program Files\Maney 1.3\CB_Valuta.mdb")
ac.DoCmd.RunMacro(("Макрос1"))
ac.Quit()
Dim ac As Access.Application
ac = New Access.Application
ac.OpenAccessProject("C:\Program Files\Maney 1.3\CB_Valuta.mdb")
ac.DoCmd.RunMacro("Макрос1")
ac.Quit()
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 62