TIP: Kiểm tra dung lượng file Access .

[intembaohanh]

Tạo 1 Command button code như sau :

:k5429592:

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim LResult As Double
LResult = FileLen("D:-/CRMS\ABC_be.accdb") ' Duong dan file can kiem tra
LResult = LResult / 1000000 ' Chia cho 1000000 để ra don vi Mb
MsgBox "KÍCH CO FILE CO SO DU LIÊU HIÊN NAY LÀ : " & LResult & " MB."

Exit_Command13_Click:
Exit Sub

Err_Command13_Click:
If Err.Number = 53 Then
DoCmd.RunMacro "Admin.Nofile"
Else
MsgBox Err.Description & " LÔI " & Err.Number
End If
Resume Exit_Command13_Click
End Sub

Vậy là 1 người quản trị p/m Access cho công ty ,bạn đã có cách pro để kiểm tra dung lượng file dữ liệu rồi đó.

View more random threads:

• Sự kiện Timer trong Access
• Tìm kiếm với hai điều kiện.
• Căn bản về kết nối với dữ liệu SQL Server từ MS. Access
• Tao dấu / khi đánh ngày tháng năm
• Giải giúp mình bài tập này với
• Lỗi khi import dữ liệu vào table
• Vô hiệu hóa nút Close của ứng dụng Access
• làm cách nào để đưa nhiều file excel vào cùng 1 table
• Làm cách nào khi nhập phát hiện dữ liệu đã có trong table khác
• [hỏi] cập nhập dữ liệu trên sub form

[bqtpro2016]

Ðề: TIP: Kiểm tra dung lượng file Access .

Lúc trước làm bị lỗi tại chỗ này:

DoCmd.RunMacro "Admin.Nofile"

Té ra là không thêm cái đuôi .mdb vào.Bây giờ thì OK rồi

[kenquay1]

Ðề: TIP: Kiểm tra dung lượng file Access .

Sorry mình sơ ý .
Cái Admin.Nofile là tên 1 marco với thông báo :
"Khong tim thay file"

[hehechoi]

Ðề: TIP: Kiểm tra dung lượng file Access .

Sorry mình sơ ý .
Cái Admin.Nofile là tên 1 marco với thông báo :
"Khong tim thay file"

Mình cũng nghĩ là cần phải thêm một Macro nữa.Nhưng mà tại sao Cũng dường dẫn đó,mà không thêm cái đuôi là .mdb hay .Accdb thì nó lại báo là "Không tìm thấy File" bạn nhỉ

[Step]

Ðề: TIP: Kiểm tra dung lượng file Access .

Điều đó là tất nhiên. Ví dụ đơn giản thế này ,trong cùng 1 thư mục của Windows, nếu 2 file có định dạng khác nhau thì có thể đặt tên giống nhau, nhưng nếu 2 file jpg chẳng hạn tớ đố bạn đặt giống tên nhau được.
Mục đích để đảm bảo tính duy nhất cho mỗi file.
Giả sử cùng đường dẫn đó bạn có 2 file abc.txt và abc.mdb ,nếu bạn không chỉ rõ đuôi thì hàm FileLen nó biết kiểm tra thằng nào .