find and display files

[Douglas J. Steele]

Sorry, my typo.

When using named parameters (such as InitialDir), you use :=, not =.

Private Sub pdf1_Click()
Dim strFilter As String
Dim strFolder As String
Dim strInputFileName As String

strFolder = "\\jsnet\drawingofficeintranet\zz publication order\"
strFilter = ahtAddFilterItem(strFilter, "PDF Files (*.PDF)", _
Me!SomeTextBox & "*.PDF")
strInputFileName = ahtCommonFileOpenSave( _
InitialDir := strFolder, _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)

End Sub

 

[gymphil]

Spot on Doug, it work a treat again now!

I really appreciate your time and patience in helping me out with this one.

Regards

Gymphil