Búsqueda entre 2 fechas

[sielfi]

Hola. Necesito que me ayuden con un código para poder realizar una búsqueda entre 2 fechas.

Hago la búsqueda en un datagrid utilizando Filter, al apretar un command button, que es el botón buscar.

El código es este:

Private Sub Command5_Click()
If Len(Trim(Text4.Text)) >= 1 Then
Adodc1.Recordset.Filter = "Fecha_Ingreso =#" & Format(Text4, "dd/mm/yyyy") & "#"
Else

Adodc1.Refresh
End If
End Sub

Me funciona pero para buscar una fecha en particular. Yo quiero buscar todas las fechas que se hayan dado de alta entre 2 fechas, que serán ingresadas en 2 textbox, text4 y text5.

Y también cómo puedo validar que no se ingresen fechas previas al 16/06/2006. Esto es para que cuando se de el alta un artículo, no se pueda ingresar fechas anteriores al 16/06/2006 ni fechas posteriores a la actual del sistema.

Muchísimas gracias.

PD: utilizo el lenguaje de VB 6.0, no SQL.

[Kruzado]

por ejemplo las fechas estan en text4 y text5 (desde - hasta)

Adodc1.Recordset.Filter = "Fecha_Ingreso >=#" & Format(Text4, "mm/dd/yyyy") & "# and fecha_ingreso<=#" & format(text5,"mm/dd/yyyy" & "#"

[sielfi]

Gracias. Funcionó lo que me explicaste.

Ahora tengo un formulario que realiza el alta de un artículo. Utilizo un textbox para ingresar la fecha. ¿Cómo valido que esa fecha no sea menor al 16/06/2006 ni mayor a la fecha actual del sistema?

[Kruzado]

como lo haria yo

en el lostfocus del text
dim fechaini as date
dim fechatope as date
if isdate(text) then 'valido ke ingreo una fecha
fechaini="16/06/2006"
fechatope=date()
if text<fechaini and text>fechatope then
xxx=msgbox("Fecha fuera de rango",vbinformation,"Atención")
text.setfocus
else
aca coloca el codigo ke tiene que ejecutarse cuando la fecha esta ok.
endif
else
xxx=msgbox("Dato ingresado no es fecha",vbinformation,"Atención")
text.setfocus
endif

[sielfi]

Hola! Gracias por responder. Me quedó así el código

Código:

Private Sub Text6_LostFocus()
 
    Dim fechaini As Date
    Dim fechatope As Date
    If Len(Trim(Text6.Text)) >= 1 Then

        If IsDate(Text6) Then
            fechaini = "16/06/2006"
            fechatope = Date
            If Text6 < fechaini Then
                MsgBox "No se puede ingresar una fecha anterior al 16/06/2006", vbInformation, "Atención"
                Text6.SetFocus
                Text6 = ""
            ElseIf Text6 > fechatope Then
                MsgBox "No se puede ingresar una fecha posterior a la de hoy", vbInformation, "Atención"
                Text6.SetFocus
                Text6 = ""
            End If
        
        Else
            MsgBox "Dato ingresado no es fecha", vbInformation, "Atención"
            Text6.SetFocus
            Text6 = ""
        End If
    Else
        Command1.SetFocus
    End If
 End Sub

Si tienen algún consejo, diganmelo. Gracias!

[Kruzado]

If Len(Trim(Text6.Text)) >= 1 Then
bla bla bla
Else
Command1.SetFocus
End If

si el largo de text6 es menor a 1, o sea 0 o sea el campo en blanco... no debe enviar un mensaje de advertencia donde le digas que no ingreso fecha?????, esto en vez de mandarlo a un boton que haga un proceso donde a la larga puede faltar un dato...