Anda menggunakan user-level security.
Access akan menampilkan prompt logon setiap kali akan membuka sebuah sesi
access.
Perilaku access tsb tdk bisa diubah, sementara pada perintah transfer
database akan membuat access membuka sesi yg baru.
Mungkin perlu perubahan pendekatan anda, jangan pakai ekxport obyek, tapi
tarik data saja dari mde yg membutuhkan.
Haer
On 9/27/07, Hardiyono Nusawan <[EMAIL PROTECTED]> wrote:
>
>
> Mohon bantuannya....
> Saya punya sintaks berikut :
>
> Private Sub Pisah_Click()
>
> Dim cat1 As New ADOX.Catalog
> Dim tbl1 As New ADOX.Table
> Dim datatarget As String
>
> cat1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=c:\RKAUnit\RKAU RC1.05.mde;Jet OLEDB:Database Password=sakd;"
> Set tbl1 = cat1.Tables("TB_SSKELSHB")
>
> 'tbl1.Keys.Delete ("TB_SSKELSHTB_SSKELSHB")
> Set cat1.ActiveConnection = Nothing
> Set cat1 = Nothing
> 'Set datatarget = "'me.lokasidata'"
>
> DoCmd.TransferDatabase acExport, "Microsoft Access", _
> "C:\RKAUNIT\RKAU RC1.05.mde", acTable, "TB_SKEL", _
> "TB_SKEL"
> DoCmd.TransferDatabase acExport, "Microsoft Access", _
> "C:\RKAUNIT\RKAU RC1.05.mde", acTable, "TB_SSKEL", _
> "TB_SSKEL"
> DoCmd.TransferDatabase acExport, "Microsoft Access", _
> "C:\RKAUNIT\RKAU RC1.05.mde", acTable, "TB_BRGKEL", _
> "TB_BRGKEL"
> DoCmd.TransferDatabase acExport, "Microsoft Access", _
> "C:\RKAUNIT\RKAU RC1.05.mde", acTable, "TB_SSKELSHB", _
> "TB_SSKELSHB"
> DoCmd.TransferDatabase acExport, "Microsoft Access", _
> "C:\RKAUNIT\RKAU RC1.05.mde", acTable, "TB_SSKELSH", _
> "TB_SSKELSH"
> DoCmd.TransferDatabase acExport, "Microsoft Access", _
> "C:\RKAUNIT\RKAU RC1.05.mde", acTable, "TB_StandarHrg1", _
> "TB_StandarHrg1"
>
> ADOCreatePrimaryKey
>
> End Sub
>
> Permasalahan saya : bagaimana agar user tidak melakukan input password
> tiap kali proses
> export tabel dilakukan...trima kasih
>
>
>
>
> SPAM IS PROHIBITED
> Yahoo! Groups Links
>
>
>
>
