Hi everyone,
this is my coding for a pivot table, and everytime i got put in my required dates, i get an error stating "The action or method requires form name argument" I know you cant tell much from looking at my code, but would you know ehre my problem could possibly be?
Thank in advance
If (Forms!frmHome!AirCmpOption = 12) Then
Dim fst1 As PivotFieldSet
Dim frm1 As String
DoCmd.OpenForm pvcAirCmp1LoadCus, acFormPivotTable, "", "[qryAirComprs]![fldDATE] Between [Forms]![frmHome]![AirCmpStartDate] And [Forms]![frmHome]![AirCmpEndDate]", acNormal
DoCmd.Maximize
With frml.PivotTable.ActiveView
Set frml = Forms.Item(pvcAirCmp1LoadCus)
Set fst1 = .FieldSets("[fldDATE By Month]").Field("Months")
.RowAxis.InsertFieldSet fst1
End With
End If
this is my coding for a pivot table, and everytime i got put in my required dates, i get an error stating "The action or method requires form name argument" I know you cant tell much from looking at my code, but would you know ehre my problem could possibly be?
Thank in advance
If (Forms!frmHome!AirCmpOption = 12) Then
Dim fst1 As PivotFieldSet
Dim frm1 As String
DoCmd.OpenForm pvcAirCmp1LoadCus, acFormPivotTable, "", "[qryAirComprs]![fldDATE] Between [Forms]![frmHome]![AirCmpStartDate] And [Forms]![frmHome]![AirCmpEndDate]", acNormal
DoCmd.Maximize
With frml.PivotTable.ActiveView
Set frml = Forms.Item(pvcAirCmp1LoadCus)
Set fst1 = .FieldSets("[fldDATE By Month]").Field("Months")
.RowAxis.InsertFieldSet fst1
End With
End If