[AccessD] mdb size check

...yeah, I know :) ...it's just that I see it in so many python scripts that 
it jumped out at me.

William

--------------------------------------------------
From: "Stuart McLachlan" <stuart at lexacorp.com.pg>
Sent: Friday, November 13, 2009 6:47 PM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] mdb size check

> I'd assume that globMyDir is a Global string variable  which stores the 
> location of the mdb
> file.
>
> globMyDir = currentproject.path
>
>
> On 13 Nov 2009 at 18:38, William Hindman wrote:
>
>> 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
>> >
>>
>> -- 
>> 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
>