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=" & nro & " AND fecha=#" & 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
Otra duda es si estare usando bien "rsreg.RecordCount = -1"
Gracias por su atención. Que tengan un buen dia !!!
