s consultas sin resolver

[pabje]

Hola a Todos

Tengo 2 consultas sin resolver:

1_Conocer los medicamentos (sto_tip=1) que ingresaron en una determinada fecha . El problema que no arroja los los medicamentos que ingresaron en esa fecha:
La consulta es:

Private Sub Aceptar_Click()
adostock.RecordSource = "select * from stock where sto_tip=1 and sto_fin= " & maskfecha.Text
adostock.Refresh
If adostock.Recordset.EOF = True Then
MsgBox "No Encontro los medicamentos con esa fecha", vbInformation, "Mensaje del Sistema"
Else: MsgBox "Encontro los medicamentos con esa fecha", vbAbortRetryIgnore, "Mensaje del sistema"
End If
End Sub

2 La consulta es encontrar los medicamentos pero en un intervalo de fechas. Lo mismo que el 1 no encuentra los medicamentos.
La consulta es:

Private Sub Aceptar_Click()
adostock.RecordSource = "select * from stock where sto_tip = 1 " & " and sto_fin >= " & maskfechai.Text & " And sto_fin <= " & Maskfechaf.Text
adostock.Refresh
If adostock.Recordset.EOF = True Then
MsgBox "No encontro las fechas", vbInformation, "Mensaje del Sistema"
Else
MsgBox "Encontro las fechas", vbInformation, "Mensaje del Sistema"
End If
End Sub

Gracia por Todo.

[SILVER_07_08]

tTENGO EL CODIGO QUE BUSCAS, SOLO QUE AHORITA ACABO DE INSTALAR VISTA EN MI MAQUINA Y ESTOY PROBANDO EL V.B 2005 Y NO ME ABRE MI CODIGO.

EN MI SISTEMA HAGO BUSQUEDAS DE FACTURAS POR FECHA Y PUEDES HACERLO EN INTERVALOS DE UNA FECHA A OTRA ESTA MUY SENCILLO Y NO REQUIERES TANTAS LINEAS DE CODIGO
EJEMPLO:
12/06/2008 AL 15/07/2008

DAME UN DIA PARA MANDARTELO

DAME TU CORREO PARA PODERTELO ENVIAR

EL MIO ES [email protected]

espero tu respuesta no te desesperes, todo tiene solucion

[SalomonSab]

Prueba con esta sentencia

Código:

adostock.RecordSource = "SELECT * FROM stock WHERE sto_tip=1 AND sto_fin= #" & Format(maskfecha, "mm/dd/yyyy") & "#"

Con esto ya puedes hacer una consula de acuerdo a la fecha que se ingresa en tu caja maskfecha

y para la otra consulta que ocupas usa esta.

Código:

adostock.RecordSource = "SELECT * FROM stock WHERE sto_tip = 1 AND sto_fin " & "BETWEEN #" & Format(maskfechai, "mm/dd/yyyy") & "# " & _
                                                   "AND #" & Format(Maskfechaf, "mm/dd/yyyy") & "# " & _
                                                   "ORDER BY sto_tip ASC",

Espero te sirvan si no nos dices haber en que me equivoque porque lo hice al hilo