the SQL will look more or less like this.
Code:
TRANSFORM Count([ApptTable].[ApptID]) AS [CountofApptID] SELECT [ApptTable].[ApptDate] FROM [ApptTable] GROUP BY [ApptTable].[ApptDate] PIVOT "Count";
TRANSFORM Count([ApptTable].[ApptID]) AS [CountofApptID] SELECT [ApptTable].[ApptDate] FROM [ApptTable] GROUP BY [ApptTable].[ApptDate] PIVOT "Count";
=DSum("[Man Value]","Actual Data 2","[Sector]='IB' and [Date]> #" & [tbholddate] & "#")
Global SQLinsert as String Global SQLvalues as String Public Function InsertInto(Source As Variant, Destination As String) As String If IsNil(Source) Then Exit Function 'IsNil is a custom function that returns true for any non value (Null, Empty, "", Nothing)
DoCmd.GoToRecord , , acNewRec
if not isnull(dlookup("[PK1]", "myTable", "[PK1] = " & me.PK1 & " AND [PK2] = " & me.PK2)
docmd.openform "Add and Order and Details"
Leave a comment: