[AccessD] Sudden Format() Problem

go into the design of the module, then click TOOLS/REFERENCES sometimes Access loses a reference that it needs even though you didn't setup one in the first place.  and have a look at all the references that are checked, there may be one that says MISSING (reference name).  If so, uncheck the reference, close the database and try again.

if that fails let me know and we will see what else we can come up with.

Paul


From: Frank Tanner III <pctech at mybellybutton.com>
Date: Tue 29/Jul/2003 15:01 GMT
To: Access Developers discussion and problem solving
	<accessd at databaseadvisors.com>
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


__________________________________________________________________________
Join Freeserve http://www.freeserve.com/time/

Winner of the 2003 Internet Service Providers' Association awards for Best Unmetered ISP and Best Consumer Application.