Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Export Table từ access sang 1 file word có sẵn!
#31
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
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#32
(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 
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#33
(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
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#34
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
Chữ ký của chatchut Xin chào, mình là chatchut, Tham gia http://thuthuataccess.com/forum từ ngày 15-03 -12.
Reply
Những người đã cảm ơn
#35
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
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn
#36
(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
Chữ ký của chatchut Xin chào, mình là chatchut, Tham gia http://thuthuataccess.com/forum từ ngày 15-03 -12.
Reply
Những người đã cảm ơn
#37
(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
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn hugox03
#38
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ẻ
Chữ ký của chatchut Xin chào, mình là chatchut, Tham gia http://thuthuataccess.com/forum từ ngày 15-03 -12.
Reply
Những người đã cảm ơn
#39
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!
Chữ ký của nct1972 Xin chào, mình là nct1972, Tham gia http://thuthuataccess.com/forum từ ngày 16-07 -13.
Reply
Những người đã cảm ơn
#40
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!
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,293 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 180 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 2,783 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,849 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Ứng dụng đổi tên file trong windows hàng loạt tranthanhan1962 7 1,211 19-09-16, 04:16 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ