Mantap , Mas Semut. Sy jadi tahu.:)
2007/9/17, SemutIndo <[EMAIL PROTECTED]>:
>
> Coba ini
>
> Private Sub Command1_Click()
> dim tdf as TableDef
>
> CurrentDb.TableDefs.Delete ("tblEmployees")
> CurrentDb.TableDefs.Refresh
> Set tdf = CurrentDb.CreateTableDef("tblEmployees")
> tdf.SourceTableName = NamaTable
> tdf.Connect = ";PWD=" & "satu" & ";DATABASE=" & NamaDatabase
> CurrentDb.TableDefs.Append tdf
> CurrentDb.TableDefs.Refresh
>
> end sub
>
> Regards,
> Semut - Software Murah Berkualitas + Free Source Code
> http://www.mysemut.com
>
> ----- Original Message -----
>
> *From:* [EMAIL PROTECTED]
> *To:* [email protected]
> *Cc:* [EMAIL PROTECTED] ; [EMAIL PROTECTED] ;
> [EMAIL PROTECTED] ; [EMAIL PROTECTED]
> *Sent:* Monday, September 17, 2007 1:47 AM
> *Subject:* [belajar-access] acLink berPassword
>
>
>
> Dear Semua saya mau minta tolong lagi
>
> Bagaimana Source code untuk membuat link table yang mana batabase yang
> akan kita link memiliki password.
>
> Misal passwordnya = satu
>
> Dan saya sudah coba membuat seperti dibawah ini tapi masih gagal.
> Tapi selalu saja masih minta password.
>
> Private Sub Command1_Click()
> DoCmd.TransferDatabase acLink, "Microsoft Access", _
> "\\BTHSDN02\BAT_OPSS\02_Abernando(Material,
> Spare-Part)\Importss\WorkBook\Report\SysRData\Incoming Material.mdb ",
> acTable, "tblImages", "tblEmployees"
>
> End Sub
>
> Terim kasih sebelum dan sesudahnya
> Thanks & Regards
>
> Narupi
> Infineon Batam
> Incoming Material
> Cat Bat Op SS
> Tel: 0778 611204 ext 406
> Fax: 0778 612127
> Cel: 0778 7226234
> Email <mailto:Email:[EMAIL PROTECTED] <Narupi%40infineon.com>> :
> [EMAIL PROTECTED] <Narupi%40infineon.com>
>
> ****VISIT US AT: www.infineon.com *****
>
> *Disclaimer*
> "This e-mail and any attachments are confidential and may be subject to
> legal or some other professional privilege. They are intended solely for
> the attention and use of the named addressee(s). If you are not the
> named addressee(s) you must not use, disclose, retain or reproduce all
> or any part of the information contained in this e-mail or any
> attachments. Any unauthorised use or disclosure may be unlawful. If you
> have received this e-mail by mistake, please inform the sender
> immediately and delete it and all copies from your system and destroy
> any hard copies of it."
>
>
>
