[AccessD] Sudden Format() Problem

When you start having problems with built-in functions, references are
the first thing to check.  Other applications may have installed or
updated different versions of the libraries you're attached to, or
system administrators might have updated things like the ADO libraries,
which can trigger error like this.

Charlotte Foust

-----Original Message-----
From: Frank Tanner III [mailto:pctech at mybellybutton.com] 
Sent: Tuesday, July 29, 2003 7:01 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Sudden Format() Problem


I'm not sure what you're talking about.  I didn't
specifically set up any references when I orignally
added the code snippet.  I, literally, C&P'ed it into
a module in Access.

--- paul.hartland at fsmail.net wrote:
> Silly one, but have you tried looking in references
> to see if any have gone missing, if so, uncheck them
> and try running again
> 
> 
> From: Frank Tanner III <pctech at mybellybutton.com>
> Date: Tue 29/Jul/2003 14:19 GMT
> To: Database Advisors <accessd at databaseadvisors.com>
> Subject: [AccessD] Sudden Format() Problem
> 
> I have been using the following code snippet I got
> from the list for a few months now.  All of a sudden
> it gives the error "Compile Error.  Can't find
> project
> or library."  Any ideas?
> 
> Function TotHours(Duration As Double) As String
> 
> Dim strTemp As String
> Dim Days As Long
> 
> Days = Int(Duration)
> strTemp = Format(Duration, "hh:mm:ss")
> 
> If Days > 0 Then
>     strTemp = Str$(Val(Left$(strTemp, 2)) + Days *
> 24)
> + Mid$(strTemp, 3)
> End If
> 
> TotHours = strTemp
> 
> End Function
> 
> 
> Thank you for any assistance you can give me. 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
>
________________________________________________________________________
__
> Join Freeserve http://www.freeserve.com/time/
> 
> Winner of the 2003 Internet Service Providers'
> Association awards for Best Unmetered ISP and Best
> Consumer Application.
> 
> 
> _______________________________________________
> 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