Xuất nhanh dữ liệu Access sang dạng thức Excel

Đó hỏi: Xin e-CHÍP chỉ giúp mã lệnh để có thể export nhanh dữ liệu từ form trong Access qua một bảng tính. Xin chân thành cảm ơn.

Đây trả lời: Trong lập trình VBA, để xuất nhanh dữ liệu Microsoft Access sang các dạng thức tập tin khác, ta sử dụng hành vi OutputTo của đối tượng DoCmd. Cú pháp thường dùng như sau:
DoCmd.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile)

Trong đó:
• ObjectType: Là một trong các hằng sau: acOutputTable, acOutputForm, acOutputFunction, acOutputModule, acOutputQuery, acOutputReport, acOutputServerView, acOutputStoredProcedure.
• ObjectName: Một biểu thức chuỗi, là tên đối tượng có kiểu được xác định bởi tham số ObjectType.
• OutputFormat: Là một trong các hằng sau: acFormatASP, acFormatDAP, acFormatHTML, acFormatIIS, acFormatRTF, acFormatSNP, acFormatTXT, acFormatXLS.
• OutputFile: Một biểu thức chuỗi, là tên (với đường dẫn đầy đủ) của tập tin cần tạo từ đối tượng Access.
Lưu ý: Nếu tham số ObjectType là acOutputModule thì phải xác định hằng acFormatTXT cho tham số OutputFormat. Các dạng thức Microsoft Internet Information Server (tham số OutputFormat là acFormatIIS) và Microsoft ActiveX Server (tham số OutputFormat là acFormatASP) chỉ có thể dành để kết xuất dữ liệu cho các table, query hoặc form, vì vậy bạn phải xác định tham số ObjectType là acOutputTable, acOutputQuery hoặc acOutputForm.

Ví dụ: Bạn có một nút lệnh tên cmdXuatRa trên form, bạn có thể dùng đoạn mã 1 để xuất dữ liệu Access sang các dạng thức XLS, RTF và HTML.

Đoạn mã 1

Private Sub cmdXuatRa_Click()
     Dim sTapTin As String
     sTapTin = "D:\Customers.XLS"    ‘ Xuất table Customers ra Excel
     DoCmd.OutputTo acOutputTable, "Customers", acFormatXLS, sTapTin
     sTapTin = "D:\Customers_2.XLS"    ‘ Xuất form Customers ra Excel
     DoCmd.OutputTo acOutputForm, "Customers", acFormatXLS, sTapTin
     sTapTin = "D:\Customers.RTF"    ‘ Xuất report Customer Labels ra RTF
     DoCmd.OutputTo acOutputReport, "Customer Labels", acFormatRTF, sTapTin
     sTapTin = "D:\Customers.HTM"    ‘ Xuất report Customer Labels ra HTML
     DoCmd.OutputTo acOutputReport, "Customer Labels", acFormatHTML, sTapTin
End Sub

CHƯƠNG CAN CHÍP

Điều chỉnh chu kỳ tạo điểm phục hồi của Windows Vista

Đó hỏi: Tôi đang sử dụng chức năng System Restore của Windows Vista nhưng tôi không biết bao lâu thì Vista tự động tạo restore point và làm sao để thay đổi khoảng thời gian mặc định này theo nhu cầu của mình? Xin e-CHÍP hướng dẫn.

Đây trả lời: Theo mặc định, Windows sẽ tự động tạo điểm phục hồi 24 giờ 1 lần, nếu bạn muốn thay đổi thời gian của chu kỳ này thì làm như sau:
- Vào Start > gõ Regedit trong khung Search rồi bấm Enter.
- Trong phần bên trái cửa sổ Registry Editor, bạn tìm đến khóa HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore > Trong phần bên phải, bạn bấm kép chuột vào mục RPGlobalInterval > chọn Decimal rồi nhập thời gian mới tính bằng giây, thí dụ 43200 = 12 giờ.
- Đóng Registry editor và khi khởi động lại sự thay đổi sẽ có hiệu lực.

Phục hồi menu khởi động của Windows Vista

[Đầu trang]