Yes it is possible, but with that amount of data, it could prove problematic. A more complex table, which has multiple sections, merged cells, totals and subtotals, and so on, importing it won't be straightforward. Access tables have to be absolutely consistent: every record must have the same...
I prefer to make each line seperate with a space at the end. I can see what I am doing then.Just my opinion. It may help.
Dim strSQL As String
strSQL = "INSERT INTO TblScore ( AssessmentID, ParmsID, SiteID ) "
strSQL = strSQL & "SELECT Assessment.AssessmentID AS Expr1...
There is a much shorter code version.
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetNTUser() As String
'Returns the network login name
Dim strUserName As String
'Create a buffer...
This will transfer the contents of the two queries to two worksheets in the one workbook.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryYourQueryName1", "PathName.xls", True, "WorkSheetName1"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryYourQueryName2"...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.