Du lịch Lào giá rẻ -> Bấm vào đây ...Du lịch Lào giá rẻ -> Bấm vào đây ...


Bấm vào đây để xem thống kê điểm chuẩn lớp 10 các tỉnh thành
Hỏi: Làm sao để Export dữ liệu ra Word mà cấu trúc sắp xếp vẩn giống y như trong Reports?
(Export Report access to word 2010)

Code:
Private Sub cmdXuat_Click()

Dim oApp As Object, doc As Object
Dim strDocName As String

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
strDocName = CurrentProject.Path & "\DataMauBH" & "\formMauhoadon.dot"
Set doc = oApp.Documents.Add(strDocName)

doc.FormFields("txttenkhachhang").Result = IIf(Me.TenKH.Value <> "", Me.TenKH, ".....")
doc.FormFields("txtdvct").Result = IIf(Me.Text65.Value <> "", Me.Text65, ".....")
doc.FormFields("Text1").Result = [Forms]![F_Banhang]![CTHD]![Text1]
doc.FormFields("Text2").Result = [Forms]![F_Banhang]![CTHD]![Text2]
doc.FormFields("Text3").Result = [Forms]![F_Banhang]![CTHD]![Text3]
doc.FormFields("Text4").Result = [Forms]![F_Banhang]![CTHD]![Text4]
doc.FormFields("Text5").Result = [Forms]![F_Banhang]![CTHD]![Text5]
doc.FormFields("Text6").Result = [Forms]![F_Banhang]![CTHD]![Text6]
doc.FormFields("Text7").Result = [Forms]![F_Banhang]![CTHD]![Text7]

oApp.ActiveDocument.SaveAs Filename:=CurrentProject.Path & "\" & Me.SoHD.Value & ".doc"
Set oApp = Nothing
MsgBox "Xuat data thanh cong"
End Sub

Demo: Tại đây

Nguồn: Thuthuataccess.com
Tải phần mềm quản lí thi cấp trường - phần mềm thi thử tại đây
Tải Phần mềm quản lí thi cấp trường - Phần mềm thi thử

Du lịch khám phá đất nước Lào giá rẻ
Khám phá đất nước Triệu voi

0 nhận xét Blogger 0 Facebook

Đăng nhận xét

 

 
Soi điểm chuẩn chọn trường ©Email: tailieuchogiaovien@gmail.com. All Rights Reserved. Powered by >How to best
Link:Bantintuvan|tailieusupham|khoahocsupham|SKKN hay|Soidiemchontruong|dayvahoctot|diemthivao10hoctrenmobile|tradiemthituyensinh|How to best|Du lịch Link:Bantintuvan|tailieusupham|khoahocsupham|Soidiemchontruong|inluon|Tài liệu|Hoctrenmobile|SKKN|Tử vi|Science
Top
//