[AccessD] trying to understand code

Pedro,
What I have used is:           
Image.Picture = Application.CurrentProject.Path & "\images\" & GraphicFile

This allows you to move the database to any directory as long the sub directory is named "images".  GraphicFile is the field in the table depicting the graphic file name which includes the extension.

HTH

Jim 
jhewson at karta.com
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Pedro Janssen
Sent: Friday, September 29, 2006 4:13 PM
To: AccessD
Subject: [AccessD] trying to understand code

Hello Group,

i use Candace trips code for displaying photo's in a database, without storing them in a database.

Part of the code is about the path where the picture and database is stored. I changed the pad to store the pictures where i would like to store them. But in this code is also the part of .........
I don't understand what's happening there. Who can explain this to me. 
Also the format of the textfield where you give the name of the displayed picture is: $#.##0,00;($#.##0,00) What does this mean.


Thanks 

Pedro





Private Function GetPathPart() As String
    
    Dim db As DAO.Database
    Dim strPath As String
    Dim intCounter As Integer
    
    Set db = CurrentDb
    strPath = "C:\my-directoryname\"
    db.Close
    Set db = Nothing
        
    For intCounter = Len(strPath) To 1 Step -1
        If Mid$(strPath, intCounter, 1) = "\" Then
            Exit For
        End If
    Next intCounter
    
    GetPathPart = Left$(strPath, intCounter)
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com