• Export Table từ access sang 1 file word có sẵn!
  • RE: Export Table từ access sang 1 file word có sẵn!

    changkhoonline77 > 24-05-13, 11:25 AM

    Mình làm được lưu file tên file word rồi
    thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
    Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn
  • RE: Export Table từ access sang 1 file word có sẵn!

    domfootwear > 24-05-13, 04:25 PM

    (24-05-13, 11:25 AM)changkhoonline77 Đã viết: Mình làm được lưu file tên file word rồi
    thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
    Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn

    Mình nghĩ thay đoạn trên = đoạn như sau

    Mã PHP:
    oApp.ActiveDocument.Save 
  • RE: Export Table từ access sang 1 file word có sẵn!

    changkhoonline77 > 24-05-13, 07:53 PM

    (24-05-13, 04:25 PM)domfootwear Đã viết:
    (24-05-13, 11:25 AM)changkhoonline77 Đã viết: Mình làm được lưu file tên file word rồi
    thêm dòng này vào code button oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & txtTen txtTen là textbox trên form
    Nhưng mà có một vấn đề phát sinh đó là mặc định file word lưu tại nơi file access hoặc theo đường dẫn chỉ định trước. Mình muốn nó lưu như khi bấm Save as hỏi nơi lưu thì làm như thế nào vậy các bạn

    Mình nghĩ thay đoạn trên = đoạn như sau

    Mã PHP:
    oApp.ActiveDocument.Save 

    Không được bạn ơi
    Mình làm như thế này oApp.ActiveDocument.SaveAs FileName:=txt0
    thì mặc định nó lưu ở Documents đối với Win8
    Không biết hàm strPath có làm được không nữa
  • RE: Export Table từ access sang 1 file word có sẵn!

    chatchut > 04-07-13, 09:47 AM

    Cho em hỏi với, sao chương trình bây giờ lại ra kết quả:

    Cộng hòa xã hội …

    Ví dụ: {FORMTEXT}

    Chúc bạn thành công!
    Domfootwear

    mà nó không ra dữ liệu đã nhập vào
  • RE: Export Table từ access sang 1 file word có sẵn!

    paulsteigel > 04-07-13, 03:49 PM

    Xin được chia sẻ với các bạn một cách làm để tránh gây những phiền toái của việc tạo ra quá nhiều phiên làm việc của Word.
    Khi cần tương tác với chương trình ngoài, đa số chúng ta đều cố gắng tạo ra một phiên làm việc mới. Việc này đôi khi cũng phiền lắm. Tôi thì hay sử dụng biện pháp, xem có phiên làm việc nào chưa, nếu có rồi, thì thôi không tạo nữa mà kết nối luôn với nó và thực hiện luôn các việc cần làm!
    Mã PHP:
    Sub AttachToWord()
        
    'Muc dich: Co gang thiet lap ket noi voi mot phien lam viec cua Word neu duoc. Neu khong thi tao moi
        Dim wrdApp As Object
        Dim wrdApp As Object
        
        '
    Co gang tao ket noi
        On Error Resume Next
        Set wrdApp 
    GetObject(, "Word.Application")
        If 
    Err.Number <> 0 Then
            
    'Khong tao duoc ketnoi
            Err.Clear
            On Error GoTo ErrHandler
            Set wrdApp = CreateObject("Word.Application")
            wrdApp.Visible = True
        Else
            '
    Ket noi thanh congthuc hien cac lenh tiep theo va kich hoat bay loi
            On Error 
    GoTo ErrHandler
        End 
    If
        
    ' Doan code chinh...
        Set wrdApp = wrdApp.Documents.Add
        ' 
    Them mot doan van ban
        wrdApp
    .Paragraphs.Add
        
    ' Viet noi dung cho doan
        wrdApp.Paragraphs(1) = "'
    Release the object and resume normal error handling"
        
    ErrHandler:
        'Giai phong cac bien va dua che do bay loi ve binh thuong
        Set wrdApp = Nothing
        Set wrdApp = Nothing
        On Error GoTo 0
    End Sub 
    Bạn có thể ứng dụng vào tình huống của mình
  • RE: Export Table từ access sang 1 file word có sẵn!

    chatchut > 04-07-13, 05:56 PM

    (04-07-13, 03:49 PM)paulsteigel Đã viết: Xin được chia sẻ với các bạn một cách làm để tránh gây những phiền toái của việc tạo ra quá nhiều phiên làm việc của Word.
    Khi cần tương tác với chương trình ngoài, đa số chúng ta đều cố gắng tạo ra một phiên làm việc mới. Việc này đôi khi cũng phiền lắm. Tôi thì hay sử dụng biện pháp, xem có phiên làm việc nào chưa, nếu có rồi, thì thôi không tạo nữa mà kết nối luôn với nó và thực hiện luôn các việc cần làm!
    Mã PHP:
    Sub AttachToWord()
        
    'Muc dich: Co gang thiet lap ket noi voi mot phien lam viec cua Word neu duoc. Neu khong thi tao moi
        Dim wrdApp As Object
        Dim wrdApp As Object
        
        '
    Co gang tao ket noi
        On Error Resume Next
        Set wrdApp 
    GetObject(, "Word.Application")
        If 
    Err.Number <> 0 Then
            
    'Khong tao duoc ketnoi
            Err.Clear
            On Error GoTo ErrHandler
            Set wrdApp = CreateObject("Word.Application")
            wrdApp.Visible = True
        Else
            '
    Ket noi thanh congthuc hien cac lenh tiep theo va kich hoat bay loi
            On Error 
    GoTo ErrHandler
        End 
    If
        
    ' Doan code chinh...
        Set wrdApp = wrdApp.Documents.Add
        ' 
    Them mot doan van ban
        wrdApp
    .Paragraphs.Add
        
    ' Viet noi dung cho doan
        wrdApp.Paragraphs(1) = "'
    Release the object and resume normal error handling"
        
    ErrHandler:
        'Giai phong cac bien va dua che do bay loi ve binh thuong
        Set wrdApp = Nothing
        Set wrdApp = Nothing
        On Error GoTo 0
    End Sub 
    Bạn có thể ứng dụng vào tình huống của mình

    Em chưa hiểu lắm cách làm này. Em chỉ hỏi lúc trước thì làm được bây giờ in ra lấy có dòng chử {formtext}
    Xin cám ơn nhiều
  • RE: Export Table từ access sang 1 file word có sẵn!

    paulsteigel > 05-07-13, 09:49 AM

    (04-07-13, 05:56 PM)chatchut Đã viết: Em chưa hiểu lắm cách làm này. Em chỉ hỏi lúc trước thì làm được bây giờ in ra lấy có dòng chử {formtext}
    Xin cám ơn nhiều
    Đấy là tên trường dữ liệu trong file word của bạn, bạn cần nhấn phải chuột, chọn Toggle Field Code là được.

    Quay lại chủ đề xuất dữ liệu ra word, người ta có thể dùng nhiều cách; Cách bạn theo đuổi trong chủ đề này là thiết lập sẵn vài trường dữ liệu trong 1 tài liệu word sau đó ghi dữ liệu vào trường đó. Thông thường người ta dùng trường dữ liệu trong word khi đòi hỏi có sự tương tác với người dùng và cần thu thập trở lại dữ liệu.
    Nếu chỉ muốn xuất 1 chiều thì nhiều người hay dùng cách thứ 2 là đặt các thông tin cần thay đổi số liệu bằng các từ khóa sao cho ít có khả năng trùng dữ liệu rồi dùng công cụ tìm và thay thế.
    Chẳng hạn, trong tài liệu word, ta đặt các đoạn dữ liệu [FIELD:CONTRACTNUMBER] hoặc [FIELD:REPNAME]
    Sau đó khi lấy dữ liệu từ Access, chỉ cần dùng lệnh thay thế [FIELD:CONTRACTNUMBER] bằng Số hợp đồng trong Access.

    Cách thứ 3 là soạn thẳng tài liệu word từ Access hoặc Excel.
    Bạn xem thử file này tôi viết để tổng hợp kế hoạch phát triển KTXH của xã nhé. Tải về, cài rồi nhấn nút tạo dự thảo kế hoạch - Excel sẽ tạo ra 1 tài liệu Word.
    http://www.sfdp.net/sedp/nmprp2/kh2014/S...ects=0&d=1

    Hoặc bạn có thể xem qua file này nhé - sử dụng cách tiếp cận thứ 2....
    http://www.sfdp.net/thuthuataccess/thuth...ects=0&d=1
  • RE: Export Table từ access sang 1 file word có sẵn!

    chatchut > 05-07-13, 03:03 PM

    cám ơn paulsteigel đã quan tâm đến vấn đề của mình
    mình đã chỉnh lại được rồi, chủ yếu lỗi là do word
    Chúc mọi người cuối tuần vui vẻ
  • RE: Export Table từ access sang 1 file word có sẵn!

    nct1972 > 16-07-13, 08:03 PM

    Chào các anh chị!
    Các anh chi cho em hỏi một thủ thuât này ạ:
    - Quản lý các hợp đồng mua bán thì cần in ấn hợp đồng như cần in bên A, bên B theo database và bên đưới có một table các trường cùng dữ liệu hàng hóa thí có cách nào xuất ra file word có sẳn các thông tin như trên lấy ra từ database được không ạ (cách lấy thông tin trong database thì OK rồi nhưng phần thể hiện lên File Word thất là khó)
    Chân thành cảm ơn nhiều thật nhiều!
  • RE: Export Table từ access sang 1 file word có sẵn!

    paulsteigel > 16-07-13, 10:34 PM

    Tớ có vài bài về vấn đề này ở bên webketoan.vn hoặc giaiphapexcel.com. Bạn có thể tải về ví dụ ở dưới đây để biết cách xuất sang Word nhé.
    http://www.sfdp.net/tai-lieu-khac/taptin...bangaccess
    Hope this helps!