Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
Private Sub SelectSurvey_Click() Dim strStartDir As String Dim strFilter As String Dim lngFlags As Long ' Lets start the file browse from our current directory strStartDir = CurrentDb.Name strStartDir = Left(strStartDir, Len(strStartDir) - Len(Dir(strStartDir))) strFilter = ahtAddFilterItem(strFilter, _ "Excel Files (*.xls)", "*.xls") Me.txtFileName = ahtCommonFileOpenSave(InitialDir:=strStartDir, _ Filter:=strFilter, FilterIndex:=3, flags:=lngFlags, _ DialogTitle:="Select File") End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.