Consulta VBA.

[winexim]

Para capturarla esta el TextBox

Paso #1

pones 2 Textbox
te aparece como TextBox1.text
y textbox2.text

Paso#2

le cambias el nombre
a Txtinicial y a TxtFinal
supongamos que

Paso #3
tienes que alimentar la fecha tal como esta en la base de datos
dd/mm/aaaa o mm/dd/aaa
ya que mandas llamar una funcion que se llama Invertir_Fecha y esta te lo pone en un formato.



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, "-")

'esto cambiarias
Fini = Invertir_Fecha(TxtInicial.text)
Fter = Invertir_Fecha(TxtFinal.text)

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


cualquier duda por favor mencionala
Saludos.