Hola amigos del foro
Queria que me ayuden en 2 consultas que no me salen.
Ambas consultas usan la misma tabla hecha en Access
La tabla es de stock y tiene un campo fecha de ingreso llamado sto_fin, que es la fecha de ingreso de un medicamento.
Yo define el campo fec_ing en la tabla como de tipo fecha(es la fecha corta de Access).
El problema es que en Ambas consultas no me tira los medicamentos.
Para ambas consultas utilizo para ingresar las fechas en la pantalla el control maskEdBox.
En la consulta 1 ingreso la fecha de ingreso por pantalla , y supuestamente tiene que tirar todos los medicamentos que ingresaron en esa fecha. Pero no lo hace.
En la consulta 2 ingreso 2 fechas por pantalla . la fecha_d y fecha_a.
La fecha_d: es la fecha desde donde empieza a buscar el programa los medicamentos.
La fecha_a: es la fecha hasta donde busca el programa los medicamentos.
Ahi va los algoritmos:
1 _ Consulta de medicamentos que ingresaron en una determida fecha de ingreso
Cita: 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", vbInformation, "Mensaje del Sistema"
Else: MsgBox "Encontro los medicamentos", vbInformation, "Mensaje del sistema"
End If
End Sub
2_ Consulta de medicamentos que ingresaron en un intervalo de fechas de ingreso
Cita: 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 los medicamentos", vbInformation, "Mensaje del Sistema"
Else
MsgBox "Encontro los medicamentos", vbInformation, "Mensaje del Sistema"
End If
End Sub
Gracias por todos amigos