Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
Dim fdg As FileDialog, vrtSelectedItem As Variant Dim strSelectedFile As String Set fdg = Application.FileDialog(msoFileDialogFilePicker) fdg.InitialFileName = DLookup("DefaultDir", "defLocation") With fdg .Filters.Clear .Filters.Add "Excel Files", "*.xls" .Filters.Add "Excel 2007", "*.xlsx" .AllowMultiSelect = True .InitialView = msoFileDialogViewDetails If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems strSelectedFile = vrtSelectedItem DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Scrap", strSelectedFile, True, , False Next vrtSelectedItem Else End If ' If Not IsEmpty(strSelectedFile) Then If Len(Trim(strSelectedFile) & "") > 0 Then DoCmd.OpenForm "UpdateTables", , , , , , False DoCmd.Close acForm, "ScrapAnalysis", acSaveNo DoCmd.SetWarnings False DoCmd.OpenQuery "Scrap Query" DoCmd.OpenQuery "minDate" DoCmd.OpenQuery "maxDate" DoCmd.SetWarnings True Else DoCmd.OpenForm "FileNotSelected", acNormal, , , , , False End If ' DoCmd.Requery "Reasons" ' DoCmd.Requery "ToolNumbers" ' Me.cboReason.Requery ' Me.cboTool.Requery End With
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.