Đá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
  [Hỏi] Mở form có điều kiện. Các bác giúp em với! cannguyen 3 151 23-02-17, 09:46 AM
Bài mới nhất: dutuan80637
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 325 13-02-17, 10:34 PM
Bài mới nhất: ongke0711
  [Help] Truy vấn nhiều giá trị, nhập trong 1 textbox duy nhất ở form ckno1no 11 717 23-01-17, 01:32 PM
Bài mới nhất: ckno1no
  [Help] Search dựa trên nhiều tiêu chí Godspear 7 199 20-01-17, 10:55 AM
Bài mới nhất: Godspear
  [Help] đổ dữ liệu từ textbox form a sang textbox form b anhnt20 1 146 14-12-16, 01:17 AM
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ơ