Noname > 29-08-10, 10:24 AM
Function ConnectSource(DBF As String, Tenbang As String)
Dim db As Database, tb As TableDef
Set db = CurrentDb
On Error Resume Next
DoCmd.RunSQL ("drop table " + Tenbang)
On Error GoTo 0
Set tb = db.CreateTableDef(Tenbang)
tb.Connect = ("FoxPro 2.6;Database=path") tb.SourceTableName = DBF
db.TableDefs.Append tb
Set db = Nothing
End Function
tb.Connect = ("FoxPro 2.6;Database=path")
tb.Connect = (";pwd=******;Database=path")
haquocquan > 30-08-10, 03:13 AM
Noname > 30-08-10, 09:23 AM
dung > 12-10-10, 11:59 AM
Noname > 12-10-10, 12:15 PM
dung > 12-10-10, 02:39 PM
haquocquan > 12-10-10, 02:55 PM
Noname > 12-10-10, 02:59 PM
dung > 12-10-10, 10:23 PM
Noname > 13-10-10, 12:27 AM
(12-10-10, 10:23 PM)dung Đã viết: Chương trình Oracle là do TW viết cho các chi nhánh, mỗi lần cần lấy số liệu cụ thể phải xuất file sang Excel, rồi gọt đầu, gọt đuôi để tính tổng... do đó mình làm một chương trình nhỏ từ Access và đặt tên file cho Excel để link vào theo đường dẫn thư mục..., máy mình là Excel 2007, vừa rồi khi chép chương trình của mình cho chi nhánh khác (Excel 2003) thì Access không link được, phải nói người dùng nhấn phím Shift rồi link vào, sau đó dùng được, mình thấy còn có có trở ngại đối với người dùng.