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]> :[EMAIL PROTECTED]
****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."
