terima kasih mas atas sharing file nya-udah tak download- meskipun saya agak kesulitan untuk menterjemahkannya tapi dengan susah payah akhirnya alhamdulliah bisa saya jalankan kodenya. sekedar info mas kode tersebut hanya bisa dijalankan pakai menu "clik" ya...?-soalnya tak pakai autoexec kok gak bisa jalan ?-maklum lah ilmu ane masih dangkaL- tapi gak papa lah daripada gak bisa sama sekali. terus mas kalau database dirubah tanpa kita harus mengketikan kode nya gimana ya?-menggunakan menu pilihan database seperti di program "SIRM" anda?
terima kasih mas bantuannya,
wassalammualaikum
--- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@...> wrote:
>
>
>
> 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@...>
> 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
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> >
>
No comments:
Post a Comment