[AccessD] Sudden Format() Problem

Thank you very much.  That solved it.  Although the
odd part is the missing reference was to an Autio
ActiveXpiece.  Odd.  But whatever.

--- paul.hartland at fsmail.net wrote:
> 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.
> 
> 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com