Consulta VBA.

[winexim]

Si lo quisiera por mientras lo pondrias asi

Private Sub Command13_Click() 'Boton ver informe de este mes
On Error GoTo Err_Command13_Click
Dim Fini As String
Dim Fter As String
Dim Ftmp As String
Dim Fcortar() As String

Dim stDocName As String

Ftmp = Date
Fcortar = Split(Ftmp, "-")
'Fini = Invertir_Fecha(Me!txtFechaIni)
'Fter = Invertir_Fecha(Me!txtFechaTer)

'si el parametro de Invertir fecha es date lo pones asi
Fini = Invertir_Fecha("#01/12/2010#")
Fter = Invertir_Fecha("#31/12/2010#")
o tambien lo puedes poner asi
Fini = Invertir_Fecha(cdate("01/12/2010"))
Fter = Invertir_Fecha(cdate("#31/12/2010"))


'si el parametro de Invertir fecha es string lo pones asi
Fini = Invertir_Fecha("01/12/2010")
Fter = Invertir_Fecha("31/12/2010")

'Es muy importante que veas el orden la la fecha
'si es dd/mm/aaaa o mm/dd/aaaa etc por que si no no sale correcto el reporte

stDocName = "INF_RECUENTO_FISICO"
DoCmd.OpenReport stDocName, acPreview, WHERECONDITION:="[FECHA] BETWEEN #" & Fini & "# AND #" & Fter & "# AND [ESTANQUE] = " & CInt(Me!cboEstanque)

Exit_Command13_Click:
Exit Sub

Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub