Convert Date from a form to a crosstab query

I have a form that has a text field [date] that is formatted to mm/yyyy
I have a command button that prints a form JIB

Private Sub Command123_Click()
On Error GoTo Err_Command123_Click
SetLegalSize ("JIB")
Dim strReportName As String
    Dim strCriteria As String
       strReportName = "JIB"
    strCriteria = "[Well ID]='" & Me![Well ID Main] & "'"
    DoCmd.OpenReport strReportName, acPreview, , strCriteria
Exit_Command123_Click:
    Exit Sub

Err_Command123_Click:
    MsgBox Err.Description
    Resume Exit_Command123_Click
End Sub

The report uses a crosstab query that I have transferring the date to it like
[Forms]![JIBCharges]![Date]

The problem I am having is that it will not convert the date to YYYY only, this causes the crosstab query to have more records, because it lists jan, feb, mar, etc,  not just the year combine.  
I have tried Forms!JIBCharges!Date.Format = "yyyy"
I can do this with the crosstab prompting me for the YYYY but would rather have it not prompt me.

Expr2: Format([Date],"yyyy")
Group by
Row Heading

Format([Date],"yyyy")
Where
[Enter Year YYYY]

Expr1: Format([Date],"mmm")
Group by
Column Heading