Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Lỗi khi xuất nhiều điều kiện sang excel
#11
Function CreatQuerySearch.. của bạn chưa đúng.
Bạn hãy nghiên cứu lại nhé ! Bạn yêu cầu tới hoặc 1 hoặc đến 5 điều kiện tìm kiếm nên bạn phải ràng buộc đầy đủ cho 1 - 5 điều kiện. Nếu chọn theo ĐK1 thì ...; chọn ĐK1+ ĐK2 thì ... CHọn ĐK1 + ĐK2+ĐK3 thì ...
Chúc thành công !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn changkhoonline77
#12
Mình đã điều chỉnh rồi. Bạn nghiên cứu độ chế cho mình nhé !
Demo
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn changkhoonline77
#13
Mình muốn khi xuất sang file Excel thì xuất sang file mới rồi chọn nơi lưu chứ không lưu vào file hiện tại thì làm như thế nào mọi người?
file word templte thì như thế này

Mã PHP:
Dim oApp As Objectdoc As Object
Dim strDocName 
As String
Set oApp 
CreateObject("Word.Application")
oApp.Visible True
strDocName 
CurrentProject.Path "\Word\Danhsach.dot"
Set doc oApp.Documents.Add(strDocName

file Excel đang cần thì[/php]

Mã PHP:
Dim rs As DAO.Recordset
Dim ex 
As Excel.Application
Dim wb 
As Workbook
Dim ws 
As Worksheet
Dim z 
As Integer
On Error 
GoTo Err_ExcelOpen_Click
    Dim strSQL 
As String
    strSQL 
sqlSearch
    Set rs 
CurrentDb.OpenRecordset("Query_Search_ExportExcel")
    
Set ex CreateObject("Excel.Application")
    
ex.Visible True
    Set wb 
ex.Workbooks.Open(CurrentProject.Path "\Word\DanhSach.xls")
    
Set ws wb.Worksheets("DanhSach"
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
#14
(25-07-14, 12:31 PM)changkhoonline77 Đã viết: Mình muốn khi xuất sang file Excel thì xuất sang file mới rồi chọn nơi lưu chứ không lưu vào file hiện tại thì làm như thế nào mọi người?
file word templte thì như thế này

Mã PHP:
Dim oApp As Objectdoc As Object
Dim strDocName 
As String
Set oApp 
CreateObject("Word.Application")
oApp.Visible True
strDocName 
CurrentProject.Path "\Word\Danhsach.dot"
Set doc oApp.Documents.Add(strDocName

file Excel đang cần sửa lại[/php]

Mã PHP:
Dim rs As DAO.Recordset
Dim ex 
As Excel.Application
Dim wb 
As Workbook
Dim ws 
As Worksheet
Dim z 
As Integer
On Error 
GoTo Err_ExcelOpen_Click
    Dim strSQL 
As String
    strSQL 
sqlSearch
    Set rs 
CurrentDb.OpenRecordset("Query_Search_ExportExcel")
    
Set ex CreateObject("Excel.Application")
    
ex.Visible True
    Set wb 
ex.Workbooks.Open(CurrentProject.Path "\Word\DanhSach.xls")
    
Set ws wb.Worksheets("DanhSach"
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
#15
(25-07-14, 12:31 PM)changkhoonline77 Đã viết: Mình muốn khi xuất sang file Excel thì xuất sang file mới rồi chọn nơi lưu chứ không lưu vào file hiện tại thì làm như thế nào mọi người?

Tham khảo ở đây đã có hướng dẫn chi tiết
http://thuthuataccess.com/forum/thread-6601.html
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn changkhoonline77


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  Lọc có điều kiện ở listbox phiacuoiconduong 2 98 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  Lọc theo điều kiện trong listbox Ranju 3 183 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Thay đổi màu nền các dòng theo điều kiện trên form Continuous tranthanhan1962 9 1,703 27-09-16, 11:01 PM
Bài mới nhất: ongke0711
  Không cho phép điều chỉnh kích thước của Form ChiMai 1 129 18-09-16, 01:27 PM
Bài mới nhất: ongke0711

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ơ