[AccessD] CurrentProject.Path syntax?

Dan Waters dwaters at usinternet.com
Wed Mar 17 11:58:59 CDT 2010


Well - if your mentor was old that must have been true!  :-)

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
Sent: Wednesday, March 17, 2010 11:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] CurrentProject.Path syntax?



Or, as my old mentor used to say...look after the nanoseconds and the
seconds will look after themselves.

Max ;) 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, March 17, 2010 4:29 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] CurrentProject.Path syntax?

Indeed, and using Replace is about 4 times faster that the IF THEN test, but
it must be rare that you need to shave 3,000 nanoseconds off the execution
time. :-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Wanadoo
Sent: Wednesday, March 17, 2010 11:49 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] CurrentProject.Path syntax?


Or,

Str = str & "\"
Str = replace(str,"\\","\")


Or,

Just  type a slash in.

Max
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, March 17, 2010 3:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] CurrentProject.Path syntax?

CurrentProject.Path does not end with "\", which is why I keep this little
function handy...

Public Function QualifyPath(sPath As String) As String
    If sPath & "" > "" Then
        If right$(sPath, 1) = "\" Then
            QualifyPath = sPath
        Else
            QualifyPath = sPath & "\"
        End If
    End If
End Function

.. By using it I don't have to think about path terminators.

Lambert 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
Sent: Wednesday, March 17, 2010 11:31 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] CurrentProject.Path syntax?

...the following two lines point to the same file ...but only line two works
...what is my befuddled mind missing this time?

'MetaDraw0.LoadPicture (CurrentProject.Path & "MBCC_HallC_Spring_001a.mdp"),
0, 0 MetaDraw0.LoadPicture "v:\JISWORKING\TMS\MBCC_HallC_Spring_001a.mdp",
0, 0

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

--
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




More information about the AccessD mailing list