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"...
If you are trying to average a set of fields, e.g. average[fld1],[Fld2] etc.etc, you could use this function.
Function RAvg(ParamArray FieldValues()) As Variant
'----------------------------------------------------
' Function RAvg() will average all the numeric arguments...
OK lets start from scratch. Create a new form. On the form place two unbound text boxes, txtStartDate txtEndDate.Close and save the form as frmSearch. Next, create a new query. In the design grid choose your table. Choose the fields that will appear in the report. Now, in the criteria of the...
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.