Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.