ledangvan > 24-10-11, 02:59 PM
domfootwear > 25-10-11, 08:26 AM
(24-10-11, 02:59 PM)ledangvan Đã viết: Các bác cho em hỏi cách xuất bảng từ 1 File Access sang File Access khác mà vẫn giữ nguyên liên kết bảng (Em dự định làm cái kết xuất lưu dữ liệu) Các bác giúp em với nhé
ledangvan > 25-10-11, 10:58 AM
haquocquan > 25-10-11, 01:30 PM
domfootwear > 25-10-11, 02:22 PM
(25-10-11, 10:58 AM)ledangvan Đã viết: Bác hiểu sai ý em rồi : Em muốn xuất dữ liệu từ một bản MDE (Chương trình chạy) có link dữ liệu ở một dữ liệu A.mdb. Em có thể copy dữ liệu gốc rồi đổi tên tuy nhiên việc đấy nghe có vẻ thủ công quá. Em muốn ngay tại chương trình chạy kết xuất từ những bảng link được của dữ liệu A.mdb ra một dữ liệu khác.
Private Sub cmdCopy_Click()
Dim MyPath As String
MyPath = CurrentProject.Path
DoCmd.TransferDatabase acExport, "Microsoft Access", MyPath & "\Data.mdb", _
acTable, "tblData", "tblData_Backup"
End Sub
ledangvan > 26-10-11, 12:06 PM
haquocquan > 26-10-11, 12:31 PM
ledangvan > 26-10-11, 01:53 PM
(26-10-11, 12:31 PM)haquocquan Đã viết: Link của bạn không đúng rồi.
Bạn xem lại link nhé
Noname > 26-10-11, 02:42 PM
domfootwear > 26-10-11, 04:49 PM
(26-10-11, 01:53 PM)ledangvan Đã viết:(26-10-11, 12:31 PM)haquocquan Đã viết: Link của bạn không đúng rồi.
Bạn xem lại link nhé
http://www.mediafire.com/?e6afe8d3cnn566g
Sub ExportObject(strOutputDatabase As String, _
strType As String, strName As String)
Dim intType As Integer
Select Case strType
Case "Table"
intType = acTable
Case "Query"
intType = acQuery
Case "Form"
intType = acForm
Case "Report"
intType = acReport
Case "Macro"
intType = acMacro
Case "Module"
intType = acModule
End Select
On Error Resume Next
' DoCmd.CopyObject strOutputDatabase, strName, intType, strName
'Thay doan tren bang doan sau
DoCmd.TransferDatabase acExport, "Microsoft Access", strOutputDatabase, _
intType, strName, strName
If Err <> 0 Then
Beep
MsgBox "Kh«ng thÓ sao lu d÷ liÖu ®îc " & strType & ": " & strName, _
vbOKOnly + vbCritical, "ExportObject"
End If
End Sub