[AccessD] mdb size check

Dim DataFileLength as long
DataFileLength = 0
  On Error Resume Next
  'make path - just continue if it causes an error
  DataFileLength = FileLen(globMyDir & "WOData.mdb")
  On Error GoTo 0
  If DataFileLength > 130000000 Then
    txSizeWarning = "Warning:  WOData.mdb should be compacted soon!" &
vbCrLf & "Size is now " & Format(DataFileLength / 1000000, "#,###") & "
Megabytes"
    txSizeWarning.Visible = True
   Else
    txSizeWarning.Visible = False
  End If

Doug

On Fri, Nov 13, 2009 at 12:58 PM, William Hindman <
wdhindman at dejpolsystems.com> wrote:

> ...I want to check the be mdb size on startup and pop-up a dialogue box
> with
> a customizable message if the size exceeds a parameterized threshold
> ...anyone have code that does this ...preferably dao?
>
> William
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>