Đá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
Exclamation [Help] Truy vấn từ 1 list box trong form và điều chỉnh kích thước form tien1505 4 179 01-07-17, 12:34 AM
Bài mới nhất: tien1505
  Cho mình hỏi về tạo checkbox để xuất ra report tieu_ngao 4 330 21-05-17, 06:07 PM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Giúp sửa đổi thành forms tìm kiếm nhiều tiêu chí xndt 6 455 15-05-17, 02:52 PM
Bài mới nhất: xndt
  [Help] Điều khiển form thông qua mạng lan tranthanhan1962 2 176 11-05-17, 09:04 AM
Bài mới nhất: tranthanhan1962
  Demo Form Tìm kiếm (ngay khi gõ) nhiều tiêu chí (dùng Hàm) ongke0711 0 220 08-05-17, 02:33 AM
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ơ