Ver Mensaje Individual
  #13 (permalink)  
Antiguo 23/11/2008, 04:26
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: Buscar Mediante dos Tablas

Cita:
Iniciado por SalomonSab Ver Mensaje
Gracias Avellaneda, si hace la busqueda y me coloca los registros pero si coloca una fecha que no existe en la tabla asistencia de cualquier forma me muestra todo el padron de la tabla Principal cuando deberia decirme que no encontro ningun registro. este es todo mi codigo.

...

y Gracias por tu ayuda.
Hola, puedes hacer primero un conteo en la tabla 'Asistencias' para comprobar si existen registros entre las fechas indicadas:


Código:
rs.Open "SELECT Count(*) AS Registros FROM Asistencias WHERE FechaReunion " & _
        "BETWEEN #" & Format(TxtFechaIni, "mm/dd/yyyy") & "# " & _
        "AND #" & Format(TxtFechaFin, "mm/dd/yyyy") & "#", cnn, adOpenStatic, adLockOptimistic

If rs!Registros = 0 Then
    MsgBox "En las fechas indicadas no hubo reunión"
    rs.Close
    Exit Sub
End If
rs.Close

' mostrar los datos de los que no asistieron
rs.Open "SELECT * FROM Principal WHERE Clave NOT IN (SELECT NumEmpleado FROM Asistencias " & _
"WHERE FechaReunion BETWEEN #" & Format(TxtFechaIni, "mm/dd/yyyy") & "# AND #" & _
Format(TxtFechaFin, "mm/dd/yyyy") & "#) ORDER BY Clave", cnn, adOpenStatic, adLockOptimistic
  
If rs.RecordCount = 0 Then
    MsgBox "Todo el personal asistió a la reunión."
    ''''''
    ''''''
Else
    ''''''
    ''''''
End If