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 cmdImport_Click() DoCmd.OpenQuery "qryAppend_ImportFC" 'appends to an archive Dim strName As String Dim xl As Object Set xl = CreateObject("Excel.Application") xl.Workbooks.Open ("C:\Users\pdvsa\Desktop\Import_FC.xlsm") xl.Run "Transpose2" xl.ActiveWorkbook.Close (True) xl.Quit Set xl = Nothing CurrentDb.Execute "delete * from [Import_FC]" strName = "Transpose" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How to send a gZip File From My PC to a Server through a URL From VBA in MS Access||8||41|
|MS Access Why is my list box VBA code seem to be one number off?||2||25|
|MS Access VBA For Each Field Designation||3||18|