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.
Dim strSelectedFile As String Set fdg = Application.FileDialog(msoFileDialogFilePicker) ' fdg.InitialFileName = "c:\" With fdg .Filters.Clear .Filters.Add "Excel Files", "*.xls" .Filters.Add "Excel 2007", "*.xlsx" ' .AllowMultiSelect = True .InitialView = msoFileDialogViewDetails If .Show = -1 Then DoCmd.SetWarnings False DoCmd.RunSQL ("Delete * from DynamicReportTest") For Each vrtSelectedItem In .SelectedItems strSelectedFile = vrtSelectedItem MsgBox strSelectedFile DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "DynamicReportTest", strSelectedFile, False, , False Next vrtSelectedItem Else MsgBox "No File Selected" End If End With
|Help in SQL||13||37|
|Copied Report Does not run on a different Query Source ?||7||32|
|how to format one of my field to percent with precision of two?||3||18|
|MS Access How can I convert this code from inserting to delete records?||3||12|