ACCESS FEED: Re: [belajar-access] link access

Minggu, 23 Desember 2012

Re: [belajar-access] link access

Coba Jawab, cara-cara dibawah ini masih setia menggunakan Access jadul 2003, so untuk versi 2007 ke atas, barangkali ada yang bisa lebih menyempurnakan :-P

1. Buatlah tabel, kita beri nama TBLLink, cukup 1 field saja, namai fieldnya NamaTBL, isikan nama-nama tabel yang ada di Program kita. Sebaiknya khusus untuk tabel ini letakkan di Front End, jadi bukan di link tabel.
2. Buatlah Form untuk koneksi ke Back End tabel, yang berisi 1 text box ; beri nama LinkPath, 2 command button ; beri nama cmdBrowse dan cmdConnect.
3.   Masukkan ActiveX control untuk membuka kotak dialog Open Windows; caranya klik Insert --> ActiveX Control --> geser ke bawah sampai menemukan Microsoft Common Dialog Control --> Klik OK
4. Kita buat VBA script untuk proses membuka kotak dialog Open File, pada command button cmdBrowse, event OnClick, ketikkan script berikut ini :
Private Sub cmdBrowse_Click()
On Error Goto selesai
    comdlg.CancelError = True
    comdlg.Filter = "Access |*.mdb;*.mde"
      comdlg.FilterIndex = 1
        
    comdlg.ShowOpen 'menampilkan kotak dialog Open File
    LinkPath = comdlg.FileName
    DoCmd.SetWarnings -1
selesai:
End Sub
5. Selanjutnya kita buat script untuk proses koneksi ke Back End tabel, pada event OnClick command button cmdConnect ketikkan script berikut :
Private Sub cmdConnect_Click()
Dim rs As Recordset
Dim strType, strODBC  As String

    strType = "Microsoft Access"
    strODBC = LinkPath

    Set rs = CurrentDb.OpenRecordset("Select NamaTBL from TBLLink")
    rs.MoveFirst
    Do Until rs.EOF
        DoCmd.Echo -1, "Refreshing untuk tabel : " &   rs!NamaTBL
        DoCmd.DeleteObject acTable, rs!NamaTBL
        DoCmd.TransferDatabase acLink, strType, _
        strODBC, acTable, rs!NamaTBL, rs!NamaTBL, , -1
        rs.MoveNext
    Loop
    MsgBox "Koneksi Data Selesai", vbInformation, "FINISH"
    DoCmd.OpenForm "FRMSwitchboardMenu" 'Ganti dengan nama form Anda sendiri untuk menu utama
    DoCmd.Close acForm, Me.Name
End Sub
6. Langkah terakhir tinggal kita aturin skenario di start up program. Kalau cara saya, buka salah satu tabel yang ada di Back End, misal TBLUser. Jika ada maka program langsung menampilkan menu utama, jika tidak ada, maka Form untuk koneksi ke Back End tabel yang ditampilkan.

Semoga bisa membantu.

Best Regards,

ARIEF   NOORSHIAM
    From: sam duhay <samduhay@yahoo.com>
 To: belajar-access@yahoogroups.com 
 Sent: Sunday, December 23, 2012 7:28 PM
 Subject: [belajar-access] link access
  

                         
Banyak sekali problem saya seputar ms access yang dapat terselesaikan di forum ini
terima kasih disampaikan, kepada semuanya

ada problem lagi ni,
yaitu bagaimana cara me link kan table (back end) tanpa harus     masuk ke desain 
program , ketika program di jalankan di client sementara server berbeda namanya bahkan drive nya, tentu  harus d link kan manual . tapi bagaimana meng customize ketika program sdh jadi  bahkan sdh menjadi versi runtime?

demikian , mohon pencerahannya,.... terima kasih






        