Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
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.
Join the community of 500,000 technology professionals and ask your questions.