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.
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.