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

[glasseggs]

Tạo 1 Command button code như sau :

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim LResult As Double
LResult = FileLen("DCRMS\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 đó.

 

[sinhvienpy89]

Ðề: 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

 

[glasseggs]

Ðề: 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"

 

[sinhvienpy89]

Ðề: 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ỉ

 

[glasseggs]

Ðề: 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 .