How to open mdb in background?

Is there a more efficient way to open an mdb to do stuff with it
programmatically? I'm using the below code to open another database and
inventory the form properties. I've got to open and close the database a
lot and I'm wondering if there's a better way to do it - and avoid all the
screen flashing.

Dim acc As Access.Application
Set acc = CreateObject("Access.Application")
Application.Echo False
acc.OpenCurrentDatabase varPath
acc.Visible = False
acc.DoCmd.OpenForm strName, View:=acDesign, WindowMode:=acHidden
Set frm = acc.Forms(strName)
[get form properties]
Application.Echo True


Thanks!

On Fri, 16 Jan 2004 03:29:01 GMT, "deko" <dje422@hotmail.com> wrote:

Keep it open, and send multiple commands to it.
-Tom.

[color=blue]
>Is there a more efficient way to open an mdb to do stuff with it
>programmatically? I'm using the below code to open another database and
>inventory the form properties. I've got to open and close the database a
>lot and I'm wondering if there's a better way to do it - and avoid all the
>screen flashing.
>
> Dim acc As Access.Application
> Set acc = CreateObject("Access.Application")
> Application.Echo False
> acc.OpenCurrentDatabase varPath
> acc.Visible = False
> acc.DoCmd.OpenForm strName, View:=acDesign, WindowMode:=acHidden
> Set frm = acc.Forms(strName)
> [get form properties]
> Application.Echo True
>
>
>Thanks!
>[/color]

10-4

that would make sense...


"Tom van Stiphout" <tom7744@no.spam.cox.net> wrote in message
news:ksqe00pvm5lbrv2dp9df3sqgfs5e1pv95l@4ax.com...[color=blue]
> On Fri, 16 Jan 2004 03:29:01 GMT, "deko" <dje422@hotmail.com> wrote:
>
> Keep it open, and send multiple commands to it.
> -Tom.
>
>[color=green]
> >Is there a more efficient way to open an mdb to do stuff with it
> >programmatically? I'm using the below code to open another database and
> >inventory the form properties. I've got to open and close the database a
> >lot and I'm wondering if there's a better way to do it - and avoid all[/color][/color]
the[color=blue][color=green]
> >screen flashing.
> >
> > Dim acc As Access.Application
> > Set acc = CreateObject("Access.Application")
> > Application.Echo False
> > acc.OpenCurrentDatabase varPath
> > acc.Visible = False
> > acc.DoCmd.OpenForm strName, View:=acDesign, WindowMode:=acHidden
> > Set frm = acc.Forms(strName)
> > [get form properties]
> > Application.Echo True
> >
> >
> >Thanks!
> >[/color]
>[/color]