[AccessD] Sudden Format() Problem

Hooked on Typing failed me today....hehehehe

--- Frank Tanner III <pctech at mybellybutton.com> wrote:
> 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
> 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com