ImageFrame to open as a picture using wildcard

J

johnkrytus

Registered User.
Local time
Today, 04:20
Joined
Mar 7, 2013
Messages
91
I want to my ImageFrame to open as a picture. My problem is that my picture could be either a .jpg or a .png (or whatever). The code below works if I hard code profile_pic.png or profile_pic.jpg. Is there a way to use the wildcard here? (Its not working as written now)

Code: 
    Dim vFolderPath As String, strFile As String, dirFile As String
    
    vFolderPath = DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & "Profile" & "'")
    dirFile = Dir(vFolderPath & ctrl_people_id & " *", vbDirectory)
    strFile = "\profile_pic." + "*"
    
    If dirFile <> "" Then
        Me![ctrl_ImageFrame].Picture = vFolderPath & dirFile & strFile
    Else
        MsgBox "No directory for this person"
    End If
 
Why is the code not working for you?
Code: 
    Dim vFolderPath As String, strFile As String, dirFile As String
    
    vFolderPath = [COLOR=Red][B]Nz([/B][/COLOR]DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = [COLOR=Red][B]'" & Profile & "'"[/B][/COLOR])[COLOR=Red][B], "Invalid")[/B][/COLOR]
    dirFile = Dir(vFolderPath & ctrl_people_id & "*", vbDirectory)
    strFile = "\profile_pic[COLOR=Red][B].*[/B][/COLOR]"
    
    If dirFile <> [COLOR=Red][B]vbNullString[/B][/COLOR] Then
        [COLOR=Red][B]Me.[/B][/COLOR][ctrl_ImageFrame].Picture = vFolderPath & dirFile & strFile
    Else
        MsgBox "No directory for this person"
    End If
 
I get an error saying: can't open the file 'X:\11484 Charles Prue\profile_pic.*' If I take out the * and put in the appropriate extension, then it works
 
Re: ImageFrame won't display while using wildcard to call it

pr2-eugin, I just now saw your suggested improvements. Thank you.
However, it still doesn't work. It just will not read the file unless I specify the type.

also..the word Profile is a value in a table so still needs to be in quotes. So..if the FolderKey is "Profile" then the value of FolderName is a particular mapped path.

also, also..I can see why vbNullString would perhaps be the proper way to do this but when I use "" the code is very fast. vbNullString makes it churn.

Thoughts?
 
Last edited:
Okay I think I found the problem, try this,
Code: 
    Dim vFolderPath As String, strFile As String, dirFile As String
    
    vFolderPath = Nz(DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & Profile & "'"), "Invalid")
    dirFile = vFolderPath & "\" & Dir(vFolderPath & ctrl_people_id & "*", vbDirectory)
    dirFile = dirFile & "\profile_pic.*"
    
    If Dir(dirFile) <> vbNullString Then
        Me.[ctrl_ImageFrame].Picture = dirFile
    Else
        MsgBox "No directory for this person"
    End If
 
Wow my code was really screwed up (that's what I get for copy/pasting).
Here is what I have now....same exact result.
With the extension coded in it works perfectly. Without I get the following output --->>> X:\19873 Oasis Williams\profile_pic.*

Shouldn't my output be the actual extension and not the *?

Code: 
    Dim vFolderPath As String, dirFile As String
    
    vFolderPath = Nz(DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & "Profile" & "'"))
    dirFile = vFolderPath & Dir(vFolderPath & ctrl_people_id & " *", vbDirectory)
    dirFile = dirFile & "\profile_pic.*"
    
    Debug.Print dirFile
    
    On Error Resume Next
    If dirFile <> "" Then
        Me.[ctrl_ImageFrame].Picture = dirFile
    Else
        MsgBox "No directory for this person"
    End If
 
Ah ! I am so sorry :o
Code: 
    Dim vFolderPath As String, strFile As String, dirFile As String
    
    vFolderPath = Nz(DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & Profile & "'"), "Invalid")
    dirFile = vFolderPath & "\" & Dir(vFolderPath & ctrl_people_id & "*", vbDirectory)
    [COLOR=Red][B]strFile = dirFile & "\profile_pic.*"[/B][/COLOR]
    
    If [COLOR=Red][B]Dir(strFile)[/B][/COLOR] <> vbNullString Then
        Me.[ctrl_ImageFrame].Picture = [COLOR=Red][B]dirFile & "\" & Dir(strFile)[/B][/COLOR]
    Else
        MsgBox "No directory for this person"
    End If
 
Beautiful!

Here is the final version that I put on the On Current event of the form. When the form opens, if the person has a profile_pic in their file, then it will display. If not then it will display a placeholder.

My next hurdle will be to check for a max size because I dont want to slow the form down.

Thank you pr2-eugin for all of your help!

Code: 
    Dim vFolderPath As String, dirFile As String, strFile As String
    vFolderPath = Nz(DLookup("FolderName", "tblCodes-FolderControl", "FolderKey = '" & "Profile" & "'"))
    dirFile = vFolderPath & Dir(vFolderPath & ctrl_people_id & " *", vbDirectory)
    strFile = dirFile & "\profile_pic.*"
    
    On Error Resume Next
    If Dir(strFile) <> vbNullString Then
        Me.[ctrl_ImageFrame].Picture = dirFile & "\" & Dir(strFile)
    Else
        Me!ctrl_ImageFrame.Picture = "X:\~stuff\profile_icon.png"
    End If
 
You must log in or register to reply here.

Similar threads

K
How can I add this code to the storage location of my file before scanning and then convert it to a PDF file?
2
Replies
25
Views
966
The_Doc_Man
The_Doc_Man
monheimx9
Generating QR Code for Access using the qr-rs library/CLI written in Rust
Replies
5
Views
2,423
DickyP
DickyP
M
Solved Adding attachments to a form
Replies
14
Views
2,443
Momma
M
Z
Solved Label not displaying properly after selecting a record
Replies
13
Views
1,752
bastanu
bastanu
m-taha
I need to get qr picture to be visible on a report(Payment invoice).
2
Replies
23
Views
2,532
bastanu
bastanu

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom