Thủ Thuật Access

Thế Giới Thủ Thuật với Access

nén file Access bằng VBA

Posted by Noname on 10.11.2009

Bình thường,khi mà các câu lệnh Make, Append, delete thực hiện nhiều lần thì file access của bạn sẽ phình to không tưởng tượng được, có khi lên tới hàng GB, để nén access ta vào menu tool–>database Ulities–>Compact and repair Database
Nhưng đôi khi chúng ta cần thực hiện điều đó bằng VBA vì đã khóa Menu, thay bằng customise menu, hoặc với mục đích thân thiện với người dùng chỉ trên một nút nhấn.

hãy copy đoạn code sau của tác giả Juan M. Afan de Ribera để làm điều đó

Code:
'   ***** Code Start *****
Public Sub CompactDB()

CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction

End Sub
' ***** Code End *****

[right] Nguồn Từ : Khoa Học Phổ Thông.
Website : http://www.khoahocphothong.net [/right]

Một phản hồi to “nén file Access bằng VBA”

  1. Noname said

    Cách khác:Vào Project / References và chọn Microsoft Access 10.0 Object Library.Thêm đoạn code sau vào Form:Private Sub Form_Unload(Cancel As Integer)'Nén CSDL tên MyData.mdb và tạo 1 CSDL mới tên DB2.mdbDBEngine.CompactDatabase App.Path & "MyData.mdb", App.Path & "DB2.mdb"'Xóa MyData.mdbKill "MyData.mdb"'Đổi tên DB2.mdb thành MyData.mdbDim OldNameDim NewNameOldName = "DB2.mdb": NewName = "MyData.mdb"Name OldName As NewNameEnd Sub

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: