Kalau mau buka database lain pakai vba, coba step berikut: 3.Open the Microsoft Visual Basic Editor4.On the *Tools* menu, click * References*.5.Click to select the *Microsoft Access 9.0 Object Library*, and then click *OK*.6.On the *Insert* menu, click *Module*.7.Type or paste the following code into the module.
Dim oAcc As Access.Application
Sub OpenAccessFile()
Set oAcc = GetObject("C:\MyPath\MyDatabase.mdb")
' Replace "C:\MyPath\MyDatabase.mdb" with the path to your database.
oAcc.Visible = True
End Sub
Semoga berhasil,
Haer Talib
On Dec 22, 2007 9:17 AM, <[EMAIL PROTECTED]> wrote:
> Hi Pak Haer,
>
> kok error kayak gini ya,
>
>
> sedang script yang saya pakai
> Shell """C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE""" & " "
> & Application.CurrentProject.Path & "\Donatur Ma'had AnSoru Sunnah.mdb"
>
> Thanks & Regards
>
> ***Narupi*
>
>
> ------------------------------
> *From:* [email protected] [mailto:
> [EMAIL PROTECTED] *On Behalf Of *Haer Talib
> *Sent:* Friday, December 21, 2007 3:58 PM
> *To:* [email protected]
> *Subject:* Re: [belajar-access] Open File yang sama
>
> SHELL """C:\Program Files\Office2K\Office\MSACCESS.EXE""" & " " &
> Application.CurrentProject.Path & "\kamus.mdb"
>
> Langsung copy paste saja.
>
> Haer
>
>
>
> On Dec 20, 2007 10:40 PM, < [EMAIL PROTECTED]> wrote:
>
> > Dear Pak Haer dan Lainnya,
> >
> > bagaimana ya cara menggabung script berikut ini
> >
> > shell """C:\Program Files\Office2K\Office\MSACCESS.EXE"" dan " &
> > Application.CurrentProject.*Path* & " kamus.mdb"
> > maksud agar sama hasilnya dengan script dibawah
> > yaitu agar kita bisa membuka 2 file yang sama.
> >
> > Shell """C:\Program Files\Office2K\Office\MSACCESS.EXE""
> > """"c:\userdata\kamus.mdb"" "
> >
> > Thanks & Regards
> >
> > ***Narupi*
> >
> >
> >
> >
>
>
<<Outlook.jpg>>
