MS ACCESS MAILING LIST: Re: [belajar-access] FE otomatis membuat BE untuknya

Terima kasih Pak Sofyan...

Benarkah 4 langkah saya ini :

1. Buat sebuah FE : SetupFile.mdb (selain berbagai kode etc, terdapat satu tabel bernama dbSetup dengan satu 'Field Name' bertype data OLE Object)

2. Buat sebuah Calon BE : Opi.mdb (berisi bermacam tabel lengkap namun kosong / tanpa data)

3. Buat kode VBA untuk upload ke field data type OLE Object (agar opi.mdb / calon BE masuk ke setupFile.mdb / FE)

4. Buat kode VBA untuk extract file dari field data type OLE Object (agar opi.mdb yg di dalam setupFile.mdb keluar dan siap menjadi BE / bila sampai disini berhasil, maka FE otomatis membuat BE untuknya sudah sukses)

Namun begitu saya masih belum berhasil mewujudkannya...

Semoga filenya Pak Sofyan tentang ini berhasil.... :)

Salam Access,
Josh

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, September 18, 2012 8:42 AM
Subject: Re: [belajar-access] FE otomatis membuat BE untuknya

Ok Mas Joshac, bila masih error, jangan sungkan2 reply, nanti saya coba kirimkan attachment filenya yang berhasil di PC saya.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com

----- Original Message -----

From: Joshac W

To: belajar-access@yahoogroups.com

Sent: Tuesday, September 18, 2012 7:36 AM

Subject: Re: [belajar-access] FE otomatis membuat BE untuknya

Terima kasih Pak Sofyan...

Saya coba dulu lagi...., semoga berhasil.... :)

Salam Access,
Josh

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Monday, September 17, 2012 10:32 AM
Subject: Fw: [belajar-access] FE otomatis membuat BE untuknya

Halo Pak Joshac, wah, sungguh ditempat saya jalan Pak,..

Karena Access saya 2007, mohon maaf ngga bisa coba/praktek nih

Namun, coba pastikan, di reference sudah ditambahkan DAO nya ya Pak

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com

----- Original Message -----

From: Joshac W

To: belajar-access@yahoogroups.com

Sent: Saturday, September 15, 2012 8:25 PM

Subject: Re: [belajar-access] FE otomatis membuat BE untuknya

Terima kasih Pak Sofyan...

Maaf Pak.., proses di immediate windows pada vba tidak mau jalan kenapa ya...?

Setelah saya ketik, enter dan run tidak ada respon apapun...

(red. saya mengetikkannya di access 2010)

Salam Access,

Josh

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Thursday, September 13, 2012 10:45 AM
Subject: Re: [belajar-access] FE otomatis membuat BE untuknya

Dear Mas Joshac,

Untuk upload ke field data type OLE Object ke table di Access, gunakan procedure:

Public Function GetDataFromFile(FileName As String, fieldName As String) As Boolean
    Dim b() As Byte, i&, rst As DAO.Recordset, fLen&
    On Error GoTo err_GetDataFromFile
    fLen = FileLen(FileName)
    ReDim b(fLen - 1)
    Open FileName For Binary Access Read As #1
    Get #1, , b
    Set rst = CurrentDb.OpenRecordset("dbSetup")
    With rst
        If .RecordCount = 0 Then
            .AddNew
        Else
            .MoveFirst
            .Edit
        End If
        .Fields(fieldName).AppendChunk b
        .Update
    End With
    rst.Close
    Set rst = Nothing
    GetDataFromFile = True
exit_GetDataFromFile:
    Set rst = Nothing
    Close
    Exit Function
err_GetDataFromFile:
    GetDataFromFile = False
    Resume exit_GetDataFromFile
End Function

Sample: di immediate windows ketikkan:

'?GetDataFromFile("D:\opi.mdb","SetupFile")
Maka akan membuat file opi.mdb dimasukin ke field SetupFile di table dbSetup.

Untuk extract file dari field data type OLE Object, gunakan procedure:

Public Function PutDataInFile(NamaTable As String, FileName As String, fieldName As String) As Boolean
    Dim b() As Byte, rst As DAO.Recordset
    Dim lngTotalSize&, i&

    Const conChunkSize = 32768
    On Error GoTo err_PutDataInFile
    Set rst = CurrentDb.OpenRecordset(NamaTable)
    With rst
        If .RecordCount = 0 Then
            GoTo err_PutDataInFile
        End If
        lngTotalSize = .Fields(fieldName).FieldSize
        ReDim b(lngTotalSize - 1)
        b = .Fields(fieldName)
    End With
    rst.Close
    Open FileName For Binary Access Write As #1
    Put #1, , b
    PutDataInFile = True
exit_PutDataInFile:
    Set rst = Nothing
    Close
    Exit Function
err_PutDataInFile:
    PutDataInFile = False
    Resume exit_PutDataInFile
End Function

Sample: di immediate windows ketikkan:

'?PutDataInFile("dbSetup","c:\opi.mdb","SetupFile")
Maka akan mengextract file opi.mdb dari field SetupFile di table dbSetup ke drive c.

Dicoba dulu yah

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com

----- Original Message -----

From: Joshac W

To: belajar-access@yahoogroups.com

Sent: Wednesday, September 12, 2012 8:03 PM

Subject: Re: [belajar-access] FE otomatis membuat BE untuknya

Terima kasih pak Sofyan...

Maaf, saya kesulitan mempraktekkannya...

File : DataOleSiswa.accdb (Table dengan data type OLE Object)
(1 table)

Nama Table : DataSiswaOle

Field Name        Data Type
Nim                    OLE Object
Nama                 OLE Object
Kelas               OLE Object
Nilai                   OLE Object

File : DataBaseSiswa.accdb ((BE yg sudah diproteksi dengan password ))
(1 table)

Nama Table : DataSiswaBe

Field Name        Data Type
Nim                    AutoNumber
Nama                 Text
Kelas                  Text
Nilai                    Number

Kemudian waktu upload file BE (DataBaseSiswa.accdb) ke table DataSiswaOle (DataOleSiswa.accdb), komputer hang...

Mohon petunjuknya (bila tidak keberatan beserta contoh accdbnya)

Sebelum dan sesudahnya banyak terima kasih,

Josh

From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, September 11, 2012 11:14 AM
Subject: Re: [belajar-access] FE otomatis membuat BE untuknya

Dear Mas Josh, Insya Allah semua bisa kita lakukan, bahan yg diperlukan
adalah table dengan data type OLE Object. Kemudian upload file BE yg sudah
diproteksi dengan password ke table tsb. Pada autoexec, jalankan prosedure
untuk extract. Itu metode pertama. Metode kedua, membuat file MDB secara
langsung menggunakan VBA. Kemudian pada tahap selanjutnya, kita tambahkan
kode Relink otomatis table-table di FE ke BE, ini bisa dilakukan dengan dua
cara juga. Cara pertama menggunakan metode delete table plus transfer
database, metode kedua menggunakan DAO dengan refresh link nya.

Penggunaan ini hanya untuk BE yg belum ada datanya, masih kosong. Namun bila
data nya selalu terupdate, jangan menggunakan metode extract. Cukup relink
table saja.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com | http://trendmuslim.com
----- Original Message -----
From: "Josh" <joshacmail@yahoo.com>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, September 08, 2012 7:16 PM
Subject: [belajar-access] FE otomatis membuat BE untuknya

> Selamat malam...
>
> Maaf lama nggak buka milis... :)
>
> Mohon bantuannya menemukan cara agar FE otomatis membuat BE untuknya.
>
> Rekan milis semua, dengan kode vba bagaimanakah agar FE bisa mengekstrak
> tabelnya data base nya dan sekaligus menjadikannya BE baginya?
>
> Jadi ketika FE (tanpa BE) dibuka, FE tersebut tidak menampilkan pesan
> untuk mencari BE nya..., tapi memberi arahan untuk membuat (otomatis)
> sekaligus menyimpan (ekstak) BE darinya (mirip cara menyimpan file baru
> pada ms. excel atau lainnya)
>
> BE yang dihasilkan tersebut lengkap dengan password access (bukan dari
> vba) dan link maupun relink data berfungsi dengan baik.
>
> Hal ini mirip dengan ispirasi ipos 30 (maaf saya menyebut sebuah nama
> aplikasi) yang trialnya saya dapat dari google penambah wacana belajar :)
>
> Saya ingin bisa membuat 'metode' FE otomatis membuat BE yang diterapkannya
> itu....
>
> Terima kasih,
> Josh
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>