Re: Bls: Bls: Bls: Bls: [belajar-access] Contoh program

 

terima kasih mas atas bantuannya, maaf terlambat ngasih koment nya .

thank's again. God bless U

--- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@...> wrote:
>
>
>
> Dear Yunus...
>
> Berikut kami lampirkan contoh setting koneksi yang dimaksud.
>
> - Prosedur GetKoneksi di letakkan pada Startup Form di event on open
> - Untuk setting koneksi ada satu tabel untuk menampung nama pathfile untuk mengkoenksikan
>
> Silahkan diexplore yah... Tetep Semangadh
>
> Semoga Membantu
>
>
> Terima Kasih
>
> Salam,
> Syarief Nyong
>
>
> ________________________________
> Dari: yunus <madjoens@...>
> Kepada: belajar-access@yahoogroups.com
> Dikirim: Jumat, 7 September 2012 11:12
> Judul: Re: Bls: Bls: Bls: [belajar-access] Contoh program
>
>
>  
> 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
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> >
>

__._,_.___

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

Messages in this topic (22)

Recent Activity:

• New Members 3
• New Files 2

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___