here is the query
Private Sub CmbQuery_AfterUpdate()
If CmbQuery = "qry AM Current Month <0" Then
DoCmd.OpenQuery "qry AM Current Month <0", acViewDesign, acReadOnly
Else
If CmbQuery = "qry AM Current Month =0" Then
DoCmd.OpenQuery "qry AM Current Month =0", acViewDesign, acReadOnly
Else
If CmbQuery = "qry AM Current Month >0" Then
DoCmd.OpenQuery "qry AM Current Month >0", acViewDesign, acReadOnly
Else
If CmbQuery = "qry AM Current Year <0" Then
DoCmd.OpenQuery "qry AM Current Year <0", acViewDesign, acReadOnly
Else
If CmbQuery = "qry AM Current Year =0" Then
DoCmd.OpenQuery "qry AM Current Year =0", acViewDesign, acReadOnly
Else
If CmbQuery = "qry AM Current Year >0" Then
DoCmd.OpenQuery "qry AM Current Year >0", acViewDesign, acReadOnly
End If
End If
End If
End If
End If
End If
DoCmd.Close acForm, "Frm Choice of Query"
MsgBox "Please do not change anything in this query. You can do another one if you want. To execute this query, you click on the datasheet icon that will show up at the upper left corner and to get back in the design mode, you click on the bleu triangle icon in the same corner. To exit the query, you click on the X at the upper right corner.", vbExclamation, "Attention!"
End Sub
Thanks for your help