• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lỗi khi xuất nhiều điều kiện sang excel

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Lỗi khi xuất nhiều điều kiện sang excel
• Lỗi khi xuất nhiều điều kiện sang excel

• RE: Lỗi khi xuất nhiều điều kiện sang excel

  Minh Tiên > 03-07-14, 09:38 AM

  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 !

• RE: Lỗi khi xuất nhiều điều kiện sang excel

  Minh Tiên > 03-07-14, 11:00 AM

  Mình đã điều chỉnh rồi. Bạn nghiên cứu độ chế cho mình nhé !
  Demo
  Thân chào !

• RE: Lỗi khi xuất nhiều điều kiện sang excel

  changkhoonline77 > 25-07-14, 12:31 PM

  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 Object, doc 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") 


• RE: Lỗi khi xuất nhiều điều kiện sang excel

  changkhoonline77 > 25-07-14, 03:03 PM

  (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 Object, doc 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") 


• RE: Lỗi khi xuất nhiều điều kiện sang excel

  Xuân Thanh > 25-07-14, 05:07 PM

  (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
• Bài trước Bài tiếp