How to pass results from mid function to datediff?

[Sgt_Utz]

For official use only. Required for official government documents.



I completely changed the code which is quick, however it only gives me the first matching record or tells me if it's null. I'm not pulling the multiple records if they exists

[code]Public Function FileSelect(Last As Variant, First As Variant, Search As Variant)

strTest = "(FOUO) " & Last & ", " & First & " - " & Search
FolderSpec = "\\server\share\" & Last & ", " & First & "\" & strTest & "*.*"

If Len(Dir(FolderSpec)) > 0 Then
FileSelect = Dir(FolderSpec)
End If

End Function[\code]

Post your query SQL statement.

What is (FOUO)?

[June7]

So is that doing what you want? If not, what do you want?

Where are you using the function? In a query? Post the query.