Re: [belajar-access] Database is Read Only

setelah cetak.xls, coba tblnya di refresh link

2010/9/18 Hendra Agestha Hamid <the_agestha@yahoo.com>

Dear Rekan2 Milis ...

Saya punya sebuah file Excel (Cetak.xls) yg berisi data dari sebuah file Access (Master.mdb) melalui fasilitas "external Data"
yang ada di excel. Ketika saya bekerja di Master.mdb kemudian ingin membuka Cetak.xls saya gunakan tombol dgn code (editan dr wizard ...) sbb :

Private Sub CetakInpHasHead_cmd_Click()

On Error GoTo Err_CetakInpHasHead_cmd_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Shell """C:\Program Files\Microsoft Office\OFFICE11\excel.exe"" ""D:\!BOLAK2\MUTIARA HATI\CETAK .xls""", vbNormalFocus

DoCmd.Quit

Exit_CetakInpHasHead_cmd_Click:

Exit Sub

Err_CetakInpHasHead_cmd_Click:

MsgBox Err.Description

Resume Exit_CetakInpHasHead_cmd_Click

End Sub

Semua beres seperti yg saya inginkan, karena data di Cetak.xls bisa diolah, cuma masalah timbul ketika saya ingin sebaliknya, yaitu kembali ke Master.mdb yaitu terjadi "Database is Read Only" ketika Master.mdb terbuka, saya sudah coba dengan menggunakan macro yg ada di excel untuk menutup dahulu Cetak.xls tsb sblm buka Master.mdb yaitu dgn code sbb :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Shell """C:\Program Files\Microsoft Office\OFFICE11\msaccess.exe"" ""D:\!BOLAK2\MUTIARA HATI\MASTER.mdb""", vbNormalFocus

End Sub

Dimana saya sebelumnya mengklik sebuah button (di CETAK.xls) yang berisi macro :

Sub Macro3()

Selection.AutoFilter Field:=1

Range("Q2:R2").Select

Selection.ClearContents

ActiveWorkbook.Save

Windows("CETAK.xls").Close '(Juga saya coba ActiveWorkbook.Close)

End Sub

CETAK .xls sukses tertutup, tapi yang saya bingung mengapa MASTER.mdb tetap "Read Only"

Mohon bantuan rekan2 semua, Terima Kasih,

Regards

Hendra

--
---------------------------------------------
grapyak-semanak-cluthak
http://djmumun.wordpress.com
http://facebook.com/djmumun
---------------------------------------------

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___