Đá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


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 13 542 30-11-16, 11:45 AM
Bài mới nhất: ongke0711
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,199 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 7 1,403 25-06-16, 12:44 AM
Bài mới nhất: zinzin8x
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,301 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,740 18-04-16, 04:50 PM
Bài mới nhất: ongke0711

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ơ