วันพุธที่ 8 มิถุนายน พ.ศ. 2554

VBA-Ms Access Import_Epe0

Function Import_Epe0(db_file)
If TableExists("EPE0") Then
    CurrentDb.TableDefs.Delete ("EPE0")
End If

DoCmd.TransferDatabase acImport, "Microsoft Access", "" & db_file & "", acTable, "epe0", "epe0", False
End Function

ไม่มีความคิดเห็น:

แสดงความคิดเห็น