Option Explicit
Private Sub cmdBuscar_Click()
    Buscar
    ' Buscar el primer registro que coincida con el dato buscado
    
End Sub



Private Sub Form_Load()
    '
    Text2 = ""
    Option2.Value = True
    '
    Const sPathBase As String = "C:\Mis documentos\Proyecto\COLEGIO"
    '
    ' Crear la conexión manualmente
    ' Con "Provider=Microsoft.Jet.OLEDB.4.0;" se permite abrir bases de datos de Access 2000
    With Me.Adodc1
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & sPathBase & ";"
            '& _
            "Persist Security Info=False"
        ' Indicarle de que tabla vamos a leer los datos
        .RecordSource = "CALIFICACIONES"
    End With
      
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    ' Se buscará sólo cuando pulsemos INTRO
    '
    ' Comprobar si la tecla pulsada es Intro: vbKeyReturn o 13 que es lo mismo
    If KeyAscii = vbKeyReturn Then
        On Error Resume Next
        ' Esta asignación evita que suene un BEEP
        KeyAscii = 0
        '
        Buscar
        cmdBuscar.Default = True
     End If
End Sub

Private Sub Buscar(Optional ByVal Siguiente As Boolean = False)
    ' Procedimiento para buscar el dato indicado                    (18/Ene/01)
    ' Si Siguiente = True, se busca a partir del registro activo
    Dim nReg As Long
    Dim vBookmark As Variant ' En ADO debe ser Variant, no vale un String
    Dim sADOBuscar As String
    '
    ' Iniciamos la detección de errores
    On Error Resume Next
    '
    ' Buscar la primera coincidencia en el recordset del Data1
    If Option1.Value Then
        ' Convertir el contenido de TextBox en un número
        nReg = Val(Text2)
        ' en el campo Au_ID
        sADOBuscar = "NO_CARNET = " & nReg
    End If
    If Option2.Value Then
        ' en el campo Author
        sADOBuscar = "NOM_AL Like '" & Text2.Text & "'"
    End If
    ' Guardar la posición anterior, por si no se halla lo buscado...
    vBookmark = Adodc1.Recordset.Bookmark
    '
    If Siguiente = False Then
        ' Buscar desde el principio
        Adodc1.Recordset.MoveFirst
        Adodc1.Recordset.Find sADOBuscar
    Else
        ' Busca a partir del registro actual
        Adodc1.Recordset.Find sADOBuscar, 1
    End If
    ' Devolverá un error si no se halla lo buscado
    ' aunque no siempre es así...
    If Err.Number Or Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
        Err.Clear
        MsgBox "No existe el dato buscado o ya no hay más datos que mostrar."
        ' Posicionar el recordset en la posición guardada
        Adodc1.Recordset.Bookmark = vBookmark
    End If
End Sub
Private Sub cmdCancelRegistro_Click()
  Adodc1.Recordset.CancelUpdate
End Sub

Private Sub cmdExit_Click()
frmMenu.Show
frmRegistroCalificaciones.Hide
End Sub

Private Sub cmdNewRegistro_Click()
  Adodc1.Recordset.AddNew
End Sub

Private Sub cmdUpdateRegistro_Click()
  Adodc1.Recordset.Update
End Sub