Đánh giá chủ đề:
  • 5 Votes - 3.6 Average
  • 1
  • 2
  • 3
  • 4
  • 5
nén file Access bằng VBA
#11
(03-06-14, 02:41 PM)tmtien261 Đã viết: Chào bạn "danhxetnghiem" !
Như yêu cầu của bạn thì:
1. Muốn nén khi mỗi lần thoát chương trình: Bạn tạo 1 formMain form này phải được đóng sau cùng, tại thủ tục On Close của formMain bạn gọi thực hiện đoạn code nén trên.
2. Muốn nén sau một số ngày nào đó: Bạn tạo 1 table có trường Ngaydanen kiểu Date/Time, lần đầu tiên nén chương bạn Save ngày này vào Ngaydannen. Mỗi khi mở (Hoặc đóng) chương trình bạn so sánh ngày hiện tại với ngày đã lưu, nếu "ngày hiện tại - Ngày đã lưu >= số ngày qui định" thì chương trình gọi lệnh nén.
Chúc bạn thành công !

ý 1 thì ok. Còn Cái ý 2 Mình hiểu nhưng mà không biết thực hiện!
Chữ ký của danhxetnghiem Đừng bao giờ so sánh đoạn đầu của bạn với đoạn giữa của người khác
Reply
Những người đã cảm ơn
#12
Mã PHP:
Private Sub Form_Close()
    
Dim rsCom As recordset
    Set rsCom 
CurrentDb.OpenRecordset("tblNgay"dbOpenTable)
    If 
rsCom.RecordCount 0 Then     'File đã nén
        If rsCom!NgayDaNen + 30 > Date Then
            rsCom.Edit
            rsCom!NgayGaNen = Date
            rsCom.Update
            ' 
Gọi lệnh nén file ở đây
        End 
If
    Else                             
' File chưa nén lần nào
        rsCom.AddNew
        rsCom!NgayDaNen = Date
        rsCom.Update
        ' 
Gọi lệnh nén file ở đây
    End 
If
End Sub 

Sau 30 ngày nén file một lần
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 danhxetnghiem
#13
(23-03-13, 01:22 PM)Minh Tiên Đã viết: Đoạn code trên chỉ dùng cho ms Access 2003, còn Ms Access 2007 dùng đoạn code sau để nén (Thay cho chọn Compact on close):

Private Sub Form_Unload(Cancel As Integer)
   SendKeys ("%T D C")
End Sub


Mình dùng đoạn mã của bạn nén OK nhưng sau khi nén mình không cách nào vào Design View của Form có chứa nút lệnh nén được. Bạn có ý tưởng gì không.
Chữ ký của nhimsieunhan nhimsieunhan,gia nhập Thủ Thuật Access từ 25-12 -16.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Ngăn chặn không cho Access tự động lưu record Xuân Thanh 17 5,734 22-03-17, 01:12 PM
Bài mới nhất: trangdv.pchg
  [Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Mọi phiên bản Access) maidinhdan 14 2,004 17-03-17, 12:19 AM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 2 473 10-03-17, 10:11 AM
Bài mới nhất: vulhu06
  Lỗi khi Chuyển từ File mdb thành mde Noname 10 6,093 06-02-17, 10:07 AM
Bài mới nhất: NGUYENTHANHPHUONG
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 18 1,031 11-01-17, 05:48 PM
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ơ