Sudah coba resep dari Mas Semut ?
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
2007/9/27, Hardiyono Nusawan <[EMAIL PROTECTED]>:
>
>
> 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
>
>
>
