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