Autor
Citar
Private Sub Form_Activate()
Dim FechaInicial As Date
Dim FechaFinal As Date
Dim X As Integer
FechaInicial = InputBox("INTRODUZCA LA FECHA INICIAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
FechaFinal = InputBox("INTRODUZCA LA FECHA FINAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
NumArchivo = FreeFile
Open NOMBREARCHIVO For Random As #NumArchivo Len = Len(Registro)
If FechaInicial And FechaFinal = Registro.Fecha And Registro.Edo = "A" Then
For X = FechaInicial To FechaFinal
lstFechas.AddItem Trim(Str(Registro.Num)) & " $ " & Trim(Str(Registro.Cant)) & " -- " & Trim(Registro.Nom) & " -- " & Trim(Str(Registro.Fecha))
Next
Else
MsgBox "NO HAY FECHAS ALMACENADAS", vbInformation, "ARCHIVO VACIÓ"
End If
Close NumArchivo
End Sub
Este es el codigo de como lo estoy haciendo solo me muestra una fecha la que capturar en fechainicial y quiero que me muestre todas las que se encuentren dentro del rango de musquedad si alguien me pueda hechar una mano se los agradecería Dim FechaInicial As Date
Dim FechaFinal As Date
Dim X As Integer
FechaInicial = InputBox("INTRODUZCA LA FECHA INICIAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
FechaFinal = InputBox("INTRODUZCA LA FECHA FINAL PARA BUSCAR:", "BUSQUEDAD DE CHEQUE")
NumArchivo = FreeFile
Open NOMBREARCHIVO For Random As #NumArchivo Len = Len(Registro)
If FechaInicial And FechaFinal = Registro.Fecha And Registro.Edo = "A" Then
For X = FechaInicial To FechaFinal
lstFechas.AddItem Trim(Str(Registro.Num)) & " $ " & Trim(Str(Registro.Cant)) & " -- " & Trim(Registro.Nom) & " -- " & Trim(Str(Registro.Fecha))
Next
Else
MsgBox "NO HAY FECHAS ALMACENADAS", vbInformation, "ARCHIVO VACIÓ"
End If
Close NumArchivo
End Sub
En línea
