With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
|Access 2013 won't install with Office 2016 (Home and Business)||8||25|
|Like Function in Query Dramatically Increasing Run Time||13||32|
|Auto Filter in Combo Box||7||30|
|MS Access how to nest many values to one value when exporting query to XML format||8||43|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!