Suhu & master

gimana ya relink table untuk 3 file csv, aku dapat dari mbah google kok ngak 
ngepek,

Set db = CurrentDb
strDir = "D:\IklanBaris\Export"
strTemp = Dir(strDir & "*.csv*")

Do While Len(strTemp)
'CSV is the name of the table that I linked manually to a .csv file in the 
Directory

db.TableDefs!CSV.Connect = strTemp
db.TableDefs!CSV.RefreshLink
DoCmd.CopyObject , Left(strTemp, 8), acTable, "CSV"

Debug.Print strTemp
strTemp = Dir$()
Loop

mungkin ada yang bekenan mengkoreksi...,?

Thanks b4
rully newbie


Kirim email ke