код такой
- Код: Выделить всё
- 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()

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4