[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