30/08/2005, 14:51
|
 | | | Fecha de Ingreso: noviembre-2004 Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 5 meses Puntos: 6 | |
| ACA TE DEJO LA SOLUCION A TU PROBLEMA
Private Sub existe()
Dim nro As Integer
Dim fe As Date
Dim sql2 As String
fe = Format(dp.Value, "dd/mm/yyyy")
nro = txtcodcurso.Text
sql2 = "SELECT fecha, codigocurso, codigoalumno, estado From asistencia WHERE codigocurso LIKE '"& nro &"' AND fecha LIKE '"& fe '"& "
"Set rsreg = abrir_rst(sql2) función para abrir el recordset
If rsreg.RecordCount = -1 Then acá pregunto si la consulta me arroja registros
“Registrar la asistencia”
Else
“No registrar nada y salir”
End If
End Sub
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA |