Copy filename to test box.

[John]

I have used the code provided by http://www.mvps.org/access/api/api0001.htm
to successfully open a dialog window only showing jpg files. What code needs
to go behind a text box to have the selected files pathname and filename
appear.

New to VBA but learning

Thanks in Advance

 

[M.L. Sco Scofield]

In the TestIt() function, change:

MsgBox "You selected: " & ahtCommonFileOpenSave(InitialDir:="C:\", _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Hello! Open Me!")

To:

txtYourTextboxName = ahtCommonFileOpenSave(InitialDir:="C:\", _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Hello! Open Me!")

To assist with your learning, I'd recommend picking up a copy of "Access
2003 VBA Programmer's Reference" from Wrox.

Good luck.

Sco