SoloCodigo

Hola amigo, como se que no soy el unico que tiene este tipo de problemas, envio el siguiente sql en el cual es posible realizar consultas en rangos de fechas los  cual es en ocasiones un dolor de cabeza.
gracias por su ayuda y espero que les sirva


"SELECT Count(tblAfectado.Embarazada) AS CuentaDeEmbarazada FROM tblAfectado INNER JOIN tblNotificaciones ON tblAfectado.IDAfectado = tblNotificaciones.IDAfectado  HAVING  tblNotificaciones.Fecha>= datevalue('" & CStr(dtFechIni) & "') AND tblNotificaciones.Fecha<=  datevalue('" & CStr(dtFechFin) & "') AND ((tblAfectado.Embarazada)=True) AND ((tblAfectado.IDSexo)=2));"

Amigos encontre la mentada funcion que necesitaba la cual es isdate y pongo un ejemplo del mismo


  If IsDate(mskeFechaInicial) Then
                MsgBox mskeFechaInicial
            Else
                MsgBox "No es fecha valida" & mskeFechaInicial
            End If


gracias

Hola a todos necesito una funcion para verificar si una fecha esta correcta sin tener que utilizar los eventos de eerores del sistema. urge.
por las ayudas anteriores gracias

Que tal amigo tengo el siguiente problema con sql aplicado en un recordset en vb, el sql enseguida:

    strCadGenerica = "SELECT tblNotificaciones.IDNotificacion, tblNotificaciones.Fecha, tblAfectado.Edad, "
    strCadGenerica = strCadGenerica & "tblAfectado.IDSexo, tblAfectado.IDEstado, tblNotificaciones.IDDiaSemana, "
    strCadGenerica = strCadGenerica & "tblNotificaciones.IDSitio, tblNotificaciones.EdadAgresor, tblNotificaciones.IDSexo, "
    strCadGenerica = strCadGenerica & "tblNotificaciones.IDServicioAtencion, tblNotificaciones.AvisoMinisterioPublico "
    strCadGenerica = strCadGenerica & "FROM tblAfectado INNER JOIN tblNotificaciones ON tblAfectado.IDAfectado = tblNotificaciones.IDAfectado "
    'strCadGenerica = strCadGenerica & "WHERE (((tblNotificaciones.Fecha)>=#" & dtFechIni & "#) AND ((tblNotificaciones.Fecha)<=#" & dtFechFin & "#));"
    'strCadGenerica = strCadGenerica & "WHERE (((tblNotificaciones.Fecha)>=#" & dtFechIni & "# And (tblNotificaciones.Fecha)<=#" & dtFechFin & "#));"
    strCadGenerica = strCadGenerica & "WHERE ( ((tblNotificaciones.Fecha)>=#" & dtFechIni & "#) And ((tblNotificaciones.Fecha)<=#" & dtFechFin & "#) );"
   
   
este trabaja correctamente en acces pero cuando lo parametrizo me da problemas, ademas si cambio el And por un Or da resultados, pero si lo dejo con un And, el recordset contiene 0 registros.
necesito la ayuda urgente, este codigo es para seleccionar en un periodo de tiempo, entre fechas es decir.
gracias por su ayuda.

Ocupo ayuda respecto a data report de vb6, como crear reportes de los cuales la fuente de datos es parametrizada asi como la direccion de los mismos
por favor urge

Tengo una duda respecto a que si es posible utilizar la instruccion find para busquedas en una fuente de datos, pero formada de condiciones multiples

p/e
strcondicion= "Nombre='jesus'" and edad=35

algo asi por el estilo.

Find strcondicion