Dear Mas Semut, terima kasih banget
 

Thanks & Regards

Narupi


 

________________________________

From: [email protected]
[mailto:[EMAIL PROTECTED] On Behalf Of Nana Supriatna
Sent: Monday, September 17, 2007 11:28 AM
To: [email protected]
Subject: Re: [belajar-access] acLink berPassword



Mantap , Mas Semut. Sy jadi tahu.:)


 
2007/9/17, SemutIndo <[EMAIL PROTECTED]
<mailto:[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 <http://www.mysemut.com/> 
        
         
        ----- Original Message ----- 

                From: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  
                To: [email protected]
<mailto:[email protected]> 
                Cc: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  ;
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  ;
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>  ;
[EMAIL PROTECTED] <mailto:[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]
<mailto:Narupi%40infineon.com> > :[EMAIL PROTECTED]
<mailto:Narupi%40infineon.com> 
                
                ****VISIT US AT: www.infineon.com
<http://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."
                
                

        

        

        


 

Kirim email ke