MS ACCESS MAILING LIST: Bls: Bls: Bls: [belajar-access] Contoh program

Matur Nuwun Mas Yunus...

Sebenarnya di milis ini cukup banyak informasi yang bisa diexplore mas, di beberapa arsip juga banyak contoh-contoh yang sangat bagus bagus.

maksud mas yunus bocoran koneksi untuk vba nya?... hehehe sama, banyak cara membuat vba koneksi, di arsip pesan milis ini juga banyak nanti coba aja searching di group ini.

Ini vba yang saya gunakan untuk membuat koneksi (auto linked tables).

Asumsikan ada 3 File dalam satu Folder :

1. AppDatabase

2. NamaDatabase01.mdb (External File/BE ke 1) => BE=Back End

3. NamaDatabase02.mdb (External File/BE ke 2)

AppDatabase sebagai FE (Front End nya)

Berikut vba yang ditanamkan dalam modul di file FE.

'Modul Koneksi Link

Public Sub GetKoneksi()
On Error GoTo err

Dim oWs As DAO.Workspace
Dim oDbMaster As DAO.Database
Dim oDbData As DAO.Database
Dim sPwd As String
Dim spath As String
Dim sArrayTabel(3) As String 'angka bisa di ubah sesuai jumlah tabel
Dim i As Integer

Set oWs = DBEngine.CreateWorkspace("ws", "Admin", "")
sPwd = "" 'Jika filenya ada password ketikkan aja passwordnya ....
spath = CurrentProject.Path

sArrayTabel(1) = "NamaTabel01" 'misal ada di file NamaDatabase01.mdb
sArrayTabel(2) = "NamaTabel02" 'idem diatas
sArrayTabel(3) = "NamaTabel03" 'misal ada di file NamaDatabase02.mdb
'dan seterusnya sesuai jumlah kebutuhan

Set oDbMaster = oWs.OpenDatabase(spath & "\NamaDatabase01.mdb", False, False, ";Pwd=" & sPwd)
Set oDbData = oWs.OpenDatabase(spath & "\NamaDatabase02.mdb", False, False, ";Pwd=" & sPwd)

For i = 1 To 2
    DoCmd.DeleteObject acTable, sArrayTabel(i)
    DoCmd.TransferDatabase acLink, "Microsoft Access", spath & "\NamaDatabase01.mdb", acTable, sArrayTabel(i), sArrayTabel(i)
Next
For i = 3 To 3
    DoCmd.DeleteObject acTable, sArrayTabel(i)
    DoCmd.TransferDatabase acLink, "Microsoft Access", spath & "\NamaDatabase02.mdb", acTable, sArrayTabel(i), sArrayTabel(i)
Next

Set oDbMaster = Nothing
Set oDbData = Nothing
Set oWs = Nothing

exit_err:
Exit Sub

err:
    If err.Number = 7874 Then
        Resume Next
    ElseIf err.Number <> 0 Then
        MsgBox "Masih Ada Kesalahan/Error No : " & err.Number & " : " & err.Description
        Resume exit_err
    End If
End Sub

Kalo sudah tekan F8 untuk melihat step2 execute vba tersebut

Mungkin itu sedikit script untuk koneksi FE-BE. (linked tables), seperti yang saya sampaikan di awal di milis ini sangat banyak metode atau cara tergantung user mau memilih seperti apa.

Kalo ada case, Mas Yunus bisa gambarkan kasusnya, kalo bisa kirimkan attachment, banyak teman-teman yang berbagi disini.

Demikian semoga membantu. Tetep semangat yaaa.....

Terima Kasih

Salam,
Syarief Nyong

Dari: yunus <madjoens@yahoo.co.id>
Kepada: belajar-access@yahoogroups.com
Dikirim: Rabu, 5 September 2012 15:58
Judul: Re: Bls: Bls: [belajar-access] Contoh program

program nya bagus ,dan bisa jadi inspirasi bagi saya, ngomong2.. mas nyong bisa minta bocorannya nggak... bagaimana ya cara membuat menu coneksi yang interaktif gitu-sudah lama saya nyoba N belum berhasil juga-(saya pakai access 2010)- terus lagi mas kalau boleh tahu nih.... membuat form login nya gimana ya?..hehe....gitu aja mas nyong, tenk kayu loh....., maaf banyak nanya

--- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@...> wrote:
>
>
>
> Â Suwun suwun Cak Sum & Mas Sofyan, Semoga bermanfaat menambah refferensi.
>
>
> Terima Kasih
>
> Salam,
> Syarief Nyong
>
> Dari: Sumiyanto Surabaya <sumiyanto@...>
> Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
> Dikirim: Senin, 3 September 2012 12:04
> Judul: Re: Bls: [belajar-access] Contoh program
>
>
> Â
> Bagus sekali mas, benar bisa jadi di buat referensi kami.
>
>
> Â
> Thank you | Terima Kasih | Matur Suksema
>
> Sumiyanto
> http://cakyanto.wordpress.com/
> http://mugi.or.id/blogs/sumiyanto/
>
>
>
> ________________________________
> From: Sofyan Efendi <sofyanefendi@...>
> To: belajar-access@yahoogroups.com
> Sent: Monday, 3 September 2012 12:55 PM
> Subject: Re: Bls: [belajar-access] Contoh program
>
>
> Â
> Luar biasa programnya, tampilan nya bagus Mas..
> Isi menunya lengkap sekali, bisa menjadi referensi untuk kami semua dalam membuat program..
> Terima kasih Mas atas sample nya.. walau versi trial, lumayan masih ada sisa 49 kali pemakaian lagi :))
>
> --- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@> wrote:
> >
> >
> >
> > Ã‚Â coba install runtime 2007 mas sofyan meski sudah ada office 2007, install saja seperti pada pesan baca.txt :)
> >
> >
> > Terima Kasih
> >
> > Salam,
> > Syarief Nyong
> >
> >
> > ________________________________
> > Dari: Sofyan Efendi <sofyanefendi@>
> > Kepada: belajar-access@yahoogroups.com
> > Dikirim: Senin, 3 September 2012 10:27
> > Judul: Re: [belajar-access] Contoh program
> >
> >
> > Ã‚Â
> > Ã¯Â»Â¿
> > Halo Pak Arif, saya sudah download semuanya. Namun
> > tidak bisa dibuka, pesannya "Unrecognize File Format". Access yang digunakan
> > oleh saya versi 2007. Mungkinkah karena Pak Arif membuatnya menggunakan Access
> > 2010? Karena bila dibuat menggunakan Access 2010, maka jadi tidak bisa dibuka di
> > Access 2007. Mohon konfirmasinya. Terima kasih.
> > Ã‚Â
> > Wassalaamu'alaikum Warahmatullahi
> > Wabarakatuh,
> > Sofyan Efendi
> > http://imopi.wordpress.com | http://trendmuslim.com
> > ----- Original Message -----
> > >From: Nyong Arif
> > >To: belajar-access@yahoogroups.com
> > >Sent: Sunday, September 02, 2012 10:35 AM
> > >Subject: [belajar-access] Contoh program
> > >
> > >
> > >
> > >
> > >Rekan-rekan
> > >ada contoh program sederhana untuk warung makan di link
> > berikut :
> > >http://tech.groups.yahoo.com/group/belajar-access/files/Aplikasi%20Rumah%20Makan/
> > >
> > >
> > >Terima Kasih
> > >
> > >Salam,
> > >Nyong
> > >
> > >
> > >
> > >
> > >
> >
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (16)

Recent Activity: