[AccessD] mdb size check

Doug

...looks like what I need except for "globMyDir" ...that looks like python 
or php, not vba :)
...thanks, I think this will get me there with minor rework

William

--------------------------------------------------
From: "Doug Steele" <dbdoug at gmail.com>
Sent: Friday, November 13, 2009 5:36 PM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [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
>>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>