(04-10-10, 11:44 AM)The Wind Đã viết: Có một cách để bạn không cần phải sử dụng điều kiện đặt lọc ở query mà vẫn xuất ra được excel với các record bạn tìm được trong formsub bằng bắt cứ thao tác nào ( hộp search, lọc...) với đoạn mã

Mã:

FileCopy "D:\NS\Now\Temps4Export\temps.xls", "C:\output.xls" 'Su dung temps.xls nhu 1 mau excel co san
Me.fr_sub.SetFocus ' fr_sub: name cua form sub
DoCmd.GoToControl "ID" 'ID: Khoa cua formsub
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
'Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
Set xlapp = CreateObject("Excel.Application")
With xlapp
.Workbooks.Open ("C:\output.xls")
'.Workbooks.Add 'Neukhong su dung may temps xls
'.Range("a4").Select
.Range("a4").PasteSpecial Paste:=xlPasteValues
'_Link:=False, DisplayAsIcon:=False
.Cells.Select
'.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a5").Select
End With

Mình hay dùng phương pháp này hơn vì rất thoải máy trong việc xuất ra xls, có thể sử dụng mẫu temp xls và không bị ràng buộc vào truy vấn query như các của noname!

Có file demo nào kèm dữ liệu mẫu không bạn! Đoạn code này nếu được áp đúng thì giúp mọi người giải quyết được nhiều việc lắm!
Tks for sharing

uh! để mình làm 1 cái demo! noname đã giúp đỡ mình rất nhiều, sao từ chối được.
Mình làm trên access 2007 và tạo csdl của 2003, test thử OK, nhưng vì hok có máy acess 2003 nên hok biết máy bạn có chạy được hok?
Click here

---

vì là demo nên mình làm cho nhanh để mọi người chạy thử thôi, chứ mấy cái chưa lỗi kiểu như nếu tìm kiếm trả về số record = 0 thì export 2 xls >> false: error. nên nếu dùng nhớ chú ý fix lỗi này bằng cách kiểm tra số lượng record trả về sau khi tìm kiếm có > 0 nhé! hoặc = on error: hiện lên thông báo là ok'
3 dòng lệnh, hok lười nữa, fix luôn rồi!

Tạo nút lệnh Output có điều kiện
Tôi có thiết kế Form với các điều kiện lọc (có gửi theo file đính kèm) nhờ các Bạn giúp dùm tôi tạo nút lệnh Output để xuất các điều kiện ở trong SubForm ra Excel. Tôi xin cám ơn rất nhiều./.

(04-10-10, 11:11 PM)dung Đã viết: Tạo nút lệnh Output có điều kiện
Tôi có thiết kế Form với các điều kiện lọc (có gửi theo file đính kèm) nhờ các Bạn giúp dùm tôi tạo nút lệnh Output để xuất các điều kiện ở trong SubForm ra Excel. Tôi xin cám ơn rất nhiều./.

Bạn có thể chuyển các điều kiện lọc của bạn thành các query có điều kiện là where like * & [điều kiện] &*
Sau Áp dụng thủ thuật trên bình thường

Tôi đang thiết kế Form với các điều kiện lọc (gởi file đính kèm) Tôi muốn tạo một lệnh dạng Output sang Excel, nhưng không xuất dữ liệu đã lọc ra được. Vậy mong các bạn giúp đỡ tôi. Tôi cám ơn rất nhiều

Tôi cũng thử tạo Query như Bạn nói nhưng nó không hiểu dấu >=, =, <= (songaylai). Vậy bạn giúp dùm tôi nhé tôi đã gởi file đính kèm.

Tôi cũng đã xem bài của bạn. Cũng chưa có giải pháp tốt nhất cho bạn.
Theo tôi, sau khi chọn các điều kiện lọc, bạn đặt lại rowsource của S_F4 = select * from Q_SKDN where điều kiện lọc. và requery.
Tôi chưa làm thử, nhưng hướng xử lý của tôi là như vậy. Bạn nghiên cứu thử xem.

Hôm qua kiểm tra cái demo ở máy 2003 rồi, chạy ngon lành, nhưng cái xls làm mẫu thì bị lỗi do tạo = excel 2007. sửa lại cái xls cùng thư mục = các khác là được.

Tôi có tạo chương trình trên Acceess, để người dùng link các file từ Excel vào, tôi đã thay thế công cụ Main Menu bằng My Menu do đó khi thoát chương trình, người dùng biết hoặc không thể biết nén CT lại bằng Compact and Repair Database, do đó dung lượng CT rất lớn. Nhờ các bạn giúp tôi khi thoát CT thì tự động nén các file lại (cũng có bạn trả lời trên diễn đàn, nhưng tôi chưa hiểu)

(05-10-10, 11:58 AM)dung Đã viết: Tôi có tạo chương trình trên Acceess, để người dùng link các file từ Excel vào, tôi đã thay thế công cụ Main Menu bằng My Menu do đó khi thoát chương trình, người dùng biết hoặc không thể biết nén CT lại bằng Compact and Repair Database, do đó dung lượng CT rất lớn. Nhờ các bạn giúp tôi khi thoát CT thì tự động nén các file lại (cũng có bạn trả lời trên diễn đàn, nhưng tôi chưa hiểu)

Bạn nên tập thói quen những chủ đề khác nhau không nên thảo luận chung trong 1 topic, nhằm giùp sau này mọi người dễ tìm lại để tham khảo.

Mời xem thêm:
http://thuthuataccess.com/forum/thread-275.html