I thought I was smarter than this. Can anyone help me with this problem?
Here's my code:
If [Forms].[SalesForm].[DetailOption] Then
DoCmd.OpenQuery "SalesQuery", acViewNormal, acEdit
DoCmd.OpenReport "rptSalesDetailProduct_A", acViewReport, "", "", acNormal
Else
DoCmd.OpenQuery "SalesQuery", acViewNormal, acEdit
DoCmd.OpenQuery "SalesGroupbyProduct", acViewNormal, acEdit
DoCmd.OpenReport "rptSalesGroupbyProduct_A", acViewReport, "", "", acNormal
End If
Here's my code:
If [Forms].[SalesForm].[DetailOption] Then
DoCmd.OpenQuery "SalesQuery", acViewNormal, acEdit
DoCmd.OpenReport "rptSalesDetailProduct_A", acViewReport, "", "", acNormal
Else
DoCmd.OpenQuery "SalesQuery", acViewNormal, acEdit
DoCmd.OpenQuery "SalesGroupbyProduct", acViewNormal, acEdit
DoCmd.OpenReport "rptSalesGroupbyProduct_A", acViewReport, "", "", acNormal
End If