Searching files in a predefined directory through a button

[Beppe]

Good evening everyone,


I'm Beppe and this is my first thread here. I'm very new to Access, since I started just last week using it for work.

I have a question for you all: in my access mask the user selects several fields in order to compile a string of characters. This string represents the name of a file stored in a directory.
What I need to do is to search in a predefined directory and look if there's a file named like the user has previously selected. I thought to resolve this issue through a button that does this research...

Can you help me with the code to be written in this button??

Thank you in advance
Beppe

[June7]

Something like:

If Dir("defined path" & Me.tbx1 & "\" & Me.tbx2) <> = "" Then MsgBox "File found"

Show examples of data in the fields.

[Beppe]

The string produced by the user is for example:

COM-CE7001AR0-N049-DAMMER-XXXX-XXXXXX-CAROPRESEX-170130-XXXX-XXXXXX-001-PASSIR-ACCE

Tell me if you need more info...

I tried with the code that you have attached, changing a bit because it gave me error, but the message "File found" comes even if the file does not exists..

If Dir("Z:\ArchivioN" & Me.Testo495) = "" Then
    MsgBox "File found"
End If

Could you help me?
Thanks for everything

[June7]

13 fields to construct a filename? Okay, concatenate.

Dir("defined path" & [AAA] & "-" & [BBBBBBBBB] & "-" & [CLIENT CODE] & "-" & [CLIENT NAME] & "-" & [SUPPLIER CODE] & "-" & [XXXXXX] & "-" & [SUPPLIER NAME] & "-" & [REFERENCE PERSON] & "-" & [DATE] & "-" & [N° JOB] & "-" & [PROGRESSIVE N°] & "-" & [CITY] & "-" & [TYPE] & ".pdf"

Use whatever file extension is appropriate.

[Beppe]

Actually I concatenate all the fields in just one textbox called "Testo495", is it ok to recall just this?

What about the If function in the command button?

Thank you you're really helping

[June7]

Certainly, if you have the fields concatenated in a textbox then just reference the textbox.

What about the If? What do you not understand about the example?

What do you want to happen after the search?

[Beppe]

I would like that the button does the following, with an If function:

- search in the predefined directory if the file exists, then show mgb "File found" and opens directory (this works fine with Application.followhyperlink)
- if the file does not exists shows mgb "File not found"

I tried with this:

If Dir("Z:\ArchivioN" & Me.Testo495 & ".docx" & ".xlsx") = "" Then
    MsgBox "File found"
    Application.FollowHyperlink ("Z:\ArchivioN")
    else
    MsgBox "File not found"
    End If

This shows anyway the mgb "File found" even if I change some fields in order to see if it does not find the file

[Beppe]

Just to clarify, when I use the following code (which seems very logical to me) I always see the mgb "File not found"

If Dir("Z:\ArchivioN" & ".docx" & ".xlsx") = Me.Testo495 Then


   MsgBox "File found"
   Application.FollowHyperlink ("Z:\ArchivioN")


   Else
   MsgBox "File not found"


End If

[June7]

Need a \ at the end of the defined path for the search. Maybe you have it in your code and the forum has dropped it. Have to go to post Advanced Edit and uncheck "Automatically parse links in text."

A file name can have only 1 file extension. Use wildcard.

If Dir("Z:\ArchivioN\" & Me.Testo495 & ".*") <> "" Then

[Beppe]

I tried like you said:

If Dir("Z:\ArchivioN\" & Me.Testo495 & ".*" <> "") Then
    MsgBox "File found"
    Application.FollowHyperlink ("Z:\ArchivioN")
        Else
    MsgBox "File not found"
End If

but it gives me an error 13 "type mismatch", underlining the first If line..

Thanks for the patience June7

[June7]

That closing ) is in the wrong place.

[Beppe]

IT WORKS!!

If Dir("Z:\ArchivioN\" & Me.Testo495 & ".*") <> "" Then
    MsgBox "File found"
    Application.FollowHyperlink ("Z:\ArchivioN\")
    
    Else
    MsgBox "File not found"
    
End If

I really thank you June7!!!

Best regards
Beppe

[June7]

Suggest you don't bother user with the 'File Found' message - just open the folder.

[Beppe]

Done!
Can you explain me the logic of the first line?


Just to clarify: how I change the status of this post in "solved"? I see it changed

[June7]

If the Dir() function does not find a match it returns an empty string.


Thread Tools dropdown above first post. Any poster in a thread can change thread status.