Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Export Table từ access sang 1 file word có sẵn!
#11
Cho em hỏi thêm chút:
nhập một thông tin nhưng muốn hiển thị ở 2 file word khác nhau thì khai báo làm sao?
Anh chị giúp em với
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
#12
mình có một cách hay hơn. đó là dùng cách dùng automarcro trong ms word bạn ạ. mình đã làm 1 chương trình quản lý hộ tịch cho bạn mình. chạy ok luôn. Bạn biết cách tạo macro trong ms word chưa? việc đầu tiên là bạn phải sử dụng 1 data table ở ms access hoặc ms excel cũng được. ko quan trọng vì nó chỉ làm table chứa dữ liệu thôi. cái thứ 2 là bạn phải có 1 form để trộn. cái thứ 3 bạn tạo 1 macro trong ms word sau đó mở ra bằng nhấn tổ hợp phìm all+ F11 nó hiện ra bạn copy doạn code đó dán vào 1 cmdbutton trên form. dán nó vào sự kiện onclick() đó. lúc nào bạn muốn trộn thì chỉ cần ấn nút đó là giải quyết vấn đề xong xuôi thôi. chúc bạn vui vẻ
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn chatchut
#13
theo ý của em thì: em nhập thông tin cá nhân sau đó in hai 2 file word cùng sử dụng thông tin này
người dử dụng chỉ cần nhập thông tin và ấn in thì sẽ in chứ không phải thao tác 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
#14
(24-03-12, 12:13 PM)chatchut Đã viết: Cho em hỏi thêm chút:
nhập một thông tin nhưng muốn hiển thị ở 2 file word khác nhau thì khai báo làm sao?
Anh chị giúp em với

Tạo thêm 1 file Word dạng Temp. giống như file word trước đó có tên là Doc1.dot, hay là tên gì đó tùy bạn, ở đây tôi đặt tên cho nó là Doc1.dot.
Code sẽ như sau:
Mã PHP:
Private Sub Command0_Click()
Dim oApp As Objectdoc As Object
Dim strDocName 
As String

Set oApp 
CreateObject("Word.Application")
oApp.Visible True
'Xuat sang file word 1
    strDocName = CurrentProject.Path & "\doc.dot"
    Set doc = oApp.Documents.Add(strDocName)
    doc.FormFields("Text1").Result = Me.Text1
'
Xuat sang file word 2
    strDocName 
CurrentProject.Path "\doc1.dot"
    
Set doc oApp.Documents.Add(strDocName)
    
doc.FormFields("Text1").Result Me.Text1

Set oApp 
Nothing
End Sub 
Bạn xem thêm file đính kèm nhé (Nhớ giải nén rồi mới mở file nhé)


File đính kèm
.zip   Exp2Word.zip (Kích cỡ: 26.12 KB / Tải về: 88)
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 chatchut , thanhphongialy , maidinhdan
#15
Cám ơn domfootwear nhiều
em sẽ thử vào chương trình của em
Cho em hỏi thêm với: em không muốn mở file word khi chọn xuất sang word temp mà muốn tạo nút in
để chọn in:
vd: muốn in file "doc" thì chọn nút "doc"
muốn in file "doc1" thì chon nút "doc1"
Rất mong domfootwear hướng dẫn thêm cho em
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 domfootwear
#16
(26-03-12, 09:37 PM)chatchut Đã viết: Cám ơn domfootwear nhiều
em sẽ thử vào chương trình của em
Cho em hỏi thêm với: em không muốn mở file word khi chọn xuất sang word temp mà muốn tạo nút in
để chọn in:
vd: muốn in file "doc" thì chọn nút "doc"
muốn in file "doc1" thì chon nút "doc1"
Rất mong domfootwear hướng dẫn thêm cho em

Anh, Chị giúp em với
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
#17
(26-03-12, 09:37 PM)chatchut Đã viết: Cám ơn domfootwear nhiều
em sẽ thử vào chương trình của em
Cho em hỏi thêm với: em không muốn mở file word khi chọn xuất sang word temp mà muốn tạo nút in
để chọn in:
vd: muốn in file "doc" thì chọn nút "doc"
muốn in file "doc1" thì chon nút "doc1"
Rất mong domfootwear hướng dẫn thêm cho em

Làm luôn cho bạn các tùy chọn để xuất, in file doc và doc1 luôn.

Mã PHP:
Private Sub Command0_Click()
Dim oApp As Objectdoc As Object
Dim strDocName 
As String

Select 
Case frDK.Value
Case 1
'Xuat sang file word 1 va in
   Set oApp = CreateObject("Word.Application")
   oApp.Visible = False
 
    strDocName = CurrentProject.Path & "\doc.dot"
    Set doc = oApp.Documents.Add(strDocName)
    doc.FormFields("Text1").Result = Me.Text1
    doc.PrintOut
    oApp.Quit (False)
Case 2
'
Xuat sang file word 2 va in
    Set oApp 
CreateObject("Word.Application")
    
oApp.Visible True
    strDocName 
CurrentProject.Path "\doc1.dot"
    
Set doc oApp.Documents.Add(strDocName)
    
doc.FormFields("Text1").Result Me.Text1
    doc
.PrintOut
    oApp
.Quit (False)

Case 
3
'Xuat sang file word 1
   Set oApp = CreateObject("Word.Application")
   oApp.Visible = True
 
    strDocName = CurrentProject.Path & "\doc.dot"
    Set doc = oApp.Documents.Add(strDocName)
    doc.FormFields("Text1").Result = Me.Text1
Case 4
'
Xuat sang file word 2
    Set oApp 
CreateObject("Word.Application")
    
oApp.Visible True
    strDocName 
CurrentProject.Path "\doc1.dot"
    
Set doc oApp.Documents.Add(strDocName)
    
doc.FormFields("Text1").Result Me.Text1

End Select
Set oApp 
Nothing
End Sub 
Bạn xem file đính kèm nhé.


File đính kèm
.zip   Exp2Word.zip (Kích cỡ: 28.46 KB / Tải về: 78)
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 Noname , chatchut , maidinhdan
#18
Cake:
Chữ ký của kia194 Xin chào, mình là kia194, Tham gia http://thuthuataccess.com/forum từ ngày 27-03 -12.
Reply
Những người đã cảm ơn
#19
(26-03-12, 09:38 AM)domfootwear Đã viết:
(24-03-12, 12:13 PM)chatchut Đã viết: Cho em hỏi thêm chút:
nhập một thông tin nhưng muốn hiển thị ở 2 file word khác nhau thì khai báo làm sao?
Anh chị giúp em với

Tạo thêm 1 file Word dạng Temp. giống như file word trước đó có tên là Doc1.dot, hay là tên gì đó tùy bạn, ở đây tôi đặt tên cho nó là Doc1.dot.
Code sẽ như sau:
Mã PHP:
Private Sub Command0_Click()
Dim oApp As Objectdoc As Object
Dim strDocName 
As String

Set oApp 
CreateObject("Word.Application")
oApp.Visible True
'Xuat sang file word 1
    strDocName = CurrentProject.Path & "\doc.dot"
    Set doc = oApp.Documents.Add(strDocName)
    doc.FormFields("Text1").Result = Me.Text1
'
Xuat sang file word 2
    strDocName 
CurrentProject.Path "\doc1.dot"
    
Set doc oApp.Documents.Add(strDocName)
    
doc.FormFields("Text1").Result Me.Text1

Set oApp 
Nothing
End Sub 
Bạn xem thêm file đính kèm nhé (Nhớ giải nén rồi mới mở file nhé)

Cảm ơn bác đã chỉ giáo! Xin hỏi thêm 1 vấn đề:
Có cách nào khi e ấn "in" thì file word đó in ra và tự động lưu với 1 tên được lấy từ 1 ô trên table từ acces không?
Chân thành cảm ơn!
Chữ ký của thanhphongialy Xin chào, mình là thanhphongialy, Tham gia http://thuthuataccess.com/forum từ ngày 26-04 -12.
Reply
Những người đã cảm ơn
#20
(27-04-12, 12:22 PM)thanhphongialy Đã viết: Cảm ơn bác đã chỉ giáo! Xin hỏi thêm 1 vấn đề:
Có cách nào khi e ấn "in" thì file word đó in ra và tự động lưu với 1 tên được lấy từ 1 ô trên table từ acces không?
Chân thành cảm ơn!

Lưu tên trong Table?
Thôi tôi làm thử là khi in cho nó lưu file đó chung với folder chứa file access của bạn. tên file được lấy như sau: "doc " & ddmmmyy hhss. Dĩ nhiên là bạn phải vẽ 1 textbox có tên là txtTen để chứa nội dung tên file.
Code sẽ như sau:

Mã PHP:
Option Compare Database

Private Sub Command0_Click()
Dim oApp As Objectdoc As Object
Dim strDocName 
As String

Select 
Case frDK.Value
Case 1
'Xuat sang file word 1 va in
   Set oApp = CreateObject("Word.Application")
   oApp.Visible = False
 
    strDocName = CurrentProject.Path & "\doc.dot"
    Set doc = oApp.Documents.Add(strDocName)
    doc.FormFields("Text1").Result = Me.Text1
    doc.PrintOut
    oApp.ActiveDocument.SaveAs Filename:=CurrentProject.Path & "\" & txtTen & ".doc"
    oApp.Quit (True)
Case 2
'
Xuat sang file word 2 va in
    Set oApp 
CreateObject("Word.Application")
    
oApp.Visible False
    strDocName 
CurrentProject.Path "\doc1.dot"
    
Set doc oApp.Documents.Add(strDocName)
    
doc.FormFields("Text1").Result Me.Text1
    doc
.PrintOut
    oApp
.ActiveDocument.SaveAs Filename:=CurrentProject.Path "\" & txtTen & ".doc"
    oApp.Quit (True)

Case 3
'Xuat sang file word 1
   Set oApp = CreateObject("
Word.Application")
   oApp.Visible = True
 
    strDocName = CurrentProject.Path & "
\doc.dot"
    Set doc = oApp.Documents.Add(strDocName)
    doc.FormFields("
Text1").Result = Me.Text1
Case 4
'Xuat sang file word 2
    Set oApp = CreateObject("
Word.Application")
    oApp.Visible = True
    strDocName = CurrentProject.Path & "
\doc1.dot"
    Set doc = oApp.Documents.Add(strDocName)
    doc.FormFields("
Text1").Result = Me.Text1

End Select
Set oApp = Nothing
End Sub

Private Sub Form_Load()
Text1 = "
Noi dung nay se duoc xuat sang Word !!!"
txtTen = "
doc " & Format(Now(), "ddmmmyy hhss")
End Sub


Private Sub frDK_Click()
txtTen = "
doc " & Format(Now(), "ddmmmyy hhss")
End Sub 

Bạn xem thêm file nhé
Thân mến.


File đính kèm
.zip   Exp2Word.zip (Kích cỡ: 26.84 KB / Tải về: 67)
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 thanhphongialy , maidinhdan


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,310 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 183 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,790 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,857 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,212 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ơ