[belajar-access] Database is Read Only

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

__._,_.___