Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Public Function modImportExport_OpenFile(strFileExtension As String, Optional bolAllowMultiSelect As Boolean = False) ' the input is used do set the filtering on the dialog box ' Returns Filename/Path OR Canceled Dim objfd As Object Dim vrtSelectedItem As Variant Dim strExtType As String Set objfd = Application.FileDialog(3) Select Case strFileExtension Case "xls", "xlsx" strExtType = "*.xls,*.xlsx" Case "txt", "asc", "csv" strExtType = "*.txt,*.acs,*.csv,*.prn" Case Else strExtType = "*.*" End Select With objfd .Title = "Please Select Your File" .AllowMultiSelect = bolAllowMultiSelect .Filters.Clear .Filters.Add "Files", strExtType, 1 If .show = -1 Then For Each vrtSelectedItem In .SelectedItems 'Return File Name and Path modImportExport_OpenFile = vrtSelectedItem '<< Something needs to happen here to put selected files (1 or more) into an array to return Next vrtSelectedItem Else 'The user pressed Cancel. modImportExport_OpenFile = "Canceled" End If End With 'Set the object variable to Nothing. Set objfd = Nothing End Function
|DoCmd.SetWarnings False is not working||9||31|
|Display updated table through a subform||4||17|
|DCount using "OR"||4||16|
|Ms Access How To Automatically Export Query To A Text File At Specified Times||4||21|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!