Access - Hacer referencia a un Editbox del Ribbon en una consulta o en VB

'Se requiere registro de la referencia "Microsoft Office x.y Object Library",

'donde x.y sería la versión que tenemos instalada de Office.

Sub rbCambiaDesde(control As IRibbonControl, txtEditBox As String)

    fechaDesde = txtEditBox

End Sub

Sub rbCambiaHasta(control As IRibbonControl, txtEditBox As String)

    fechaHasta = txtEditBox

End Sub

Sub rbDefValor(control As IRibbonControl, ByRef strText)

    Select Case control.Id

        Case "editBoxDeId"

        strText = DateSerial(Year(Date), 1, 1)

        fechaDesde = DateSerial(Year(Date), 1, 1)

        Case "editBoxHastaId"

        strText = DateSerial(Year(Date), Month(Date) + 1, 0)

        fechaHasta = DateSerial(Year(Date), Month(Date) + 1, 0)

    End Select

End Sub

<editBox id="editBoxDeId" label="Von:" getText="rbDefValor"  onChange="rbCambiaDesde"/>

<editBox id="editBoxHastaId" label="Bis:  " getText="rbDefValor" onChange="rbCambiaHasta"/>