Cross Tab Query with implicit parameters (better method)
--------------------------------------------------------

Use this function to use a form's control as criteria in a Cross Tab query:

Function GetCtlVal (frm As String, ctl As String) As Variant
    GetCtlVal = "1.1"          ' Or something else to avoid errors for Null values
    On Error Resume Next
    GetCtlVal = Forms(frm)(ctl)
End Function

Criteria: >=GetCtlVal("Form1","Ctrl1")

It may be used in other circumstances also.

If you find a better method, let me know!

Josep Font-Olivares
(from Catalunya)
CIS:100270,57