Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|MS Access VBA Need Help Looping Code Through Query Records To Generate a Long Text File||30||83|
|MS Access Subform Unique Records Issue||14||37|
|How to loop thru all queries and find which one's were affected by a table change.||47||44|
|How to develop custom ribbon bars for each form in an app in Access 2016?||8||23|