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
