rango de fechas

[xochitemol]

'**********************
ok el codigo de la vista en la base es union de dos tablas pero la segunda no me importa como veras el campo fregistro esta marcado en negrita ya que mencionabas que no existe:
'****************

CREATE VIEW dbo.registrardatos
AS
SELECT dbo.datosper.nombre, dbo.datosper.carrera, dbo.datosper.semestre, dbo.datosper.escuela, dbo.datosper.direscuela, dbo.datosper.director,
dbo.datosper.programa, dbo.datosper.objetoservicio, dbo.datosper.finicio, dbo.datosper.ftermino, dbo.datosper.horas, dbo.datosper.dependencia,
dbo.datosper.dirdepen, dbo.datosper.actividades, dbo.datosper.fregistro, dbo.datosper.fentrega, dbo.datosper.numcontrol, dbo.datosper.responsable,
dbo.datosper.cargoresponsable, dbo.datosper.diasprestacion, dbo.datosper.horario, dbo.datosper.dia, dbo.datosper.mes, dbo.datosper.anio,
dbo.datosper.paterno, dbo.datosper.materno, dbo.datosper.nombres, dbo.datosper.unidadad, dbo.datosper.numero, dbo.datosper.operativo,
dbo.reportes.nombrepres, dbo.reportes.fechareporte1, dbo.reportes.horasreporte1, dbo.reportes.fechareporte2, dbo.reportes.horasreporte2,
dbo.reportes.fechareporte3, dbo.reportes.horasreporte3, dbo.reportes.fechareporte4, dbo.reportes.horasreporte4, dbo.reportes.fechareporte5,
dbo.reportes.horasreporte5, dbo.reportes.fechareporte6, dbo.reportes.horasreporte6, dbo.reportes.fechareporte7, dbo.reportes.horasreporte7,
dbo.reportes.fechareporte8, dbo.reportes.horasreporte8, dbo.reportes.fechareporte9, dbo.reportes.horasreporte9, dbo.reportes.fechareporte10,
dbo.reportes.horasreporte10, dbo.reportes.fechareporte11, dbo.reportes.horasreporte11, dbo.reportes.fechareporte12, dbo.reportes.horasreporte12,
dbo.reportes.numerocontrol, dbo.reportes.statuspres, dbo.reportes.horascubiertas, dbo.reportes.nombrecorto, dbo.reportes.apaterno,
dbo.reportes.amaterno
FROM dbo.datosper INNER JOIN
dbo.reportes ON dbo.datosper.numcontrol = dbo.reportes.numerocontrol

'*****************************
ahora bien los datos los meto en un texte que al perder el foco hacen lo siguiente en ambos campos para validar las fechas
'*************************************
Private Sub finicio_LostFocus()
Dim startdate As Variant
Dim validDate As Date
If finicio = "__/__/____" Then
Exit Sub
Else
Do
startdate = finicio
If IsDate(startdate) Or startdate = "__/__/____" Then
validDate = True
fechainiciorango = DateValue(finicio)
ftermino.SetFocus
Exit Sub
Else
validDate = False
MsgBox "[ " & startdate & " ] No Es Una Fecha Valida" & vbCrLf _
& " Escriba una fecha válida: Día/Mes/Año", vbCritical
finicio = "__/__/____"
finicio.SetFocus
Exit Sub
End If
Loop Until validDate
Exit Sub
End If

End Sub

'**********************************
ahora el procedimiento ya lo he puesto pero si esta arriba
'***********************************