Programacion

Dim db As Database

Private Sub cmdAgregar_Click()

'definir un objeto recordset
Dim rec As Recordset
' abrir la tabla de personas y asignarla al obj recordset
Set rec =db.OpenRecordset("Lista de personas", dbOpenDynaset)
' busco el dni
rec.FindFirst "DNI=" & Text1.Text
' pregunto si lo encontró o no
If rec.NoMatch Then
    ' agrego un registro en blanco
    rec.AddNew
   'completo los campos
    rec.Fields("DNI").Value = Text1.Text
    rec.Fields("apellido").Value = Text2.Text
    rec.Fields("Edad").Value = Text3.Text
    'actualizo o guardo los datos en la tabla
   rec.Update
Else
    MsgBox " el dni que trata de agregar ya existe!", vbOKOnly
    
End If
' cierro el recordset
rec.Close
    
End Sub

Private Sub cmdBorrar_Click()

'definir un objetorecordset
Dim rec As Recordset
' abrir la tabla de personas y asignarla al obj recordset
Set rec = db.OpenRecordset("Lista de personas", dbOpenDynaset)
' busco el dni
rec.FindFirst "DNI=" &Text1.Text
' pregunto si lo encontró o no
If Not rec.NoMatch Then
    ' pregunto si esta seguro de borrarlo
    If MsgBox("esta seguro que quiere borrar el registro con DNI =" & Text1.Text& "?", vbYesNo) = vbYes Then
        ' lo borro
        rec.Delete
        MsgBox "el Registrto ha sido borrado correctamente", vbOKOnly
    End If
Else
    MsgBox " el dni que trata de borrarno existe!", vbOKOnly
End If
' cierro el recordset
rec.Close
    
End Sub

Private Sub cmdBuscar_Click()

'definir un objeto recordset
Dim rec As Recordset

' abrir la tabla de personas yasignarla al obj recordset
Set rec = db.OpenRecordset("Lista de personas", dbOpenSnapshot)
If IsNumeric(Text1.Text) Then
' busco el dni
rec.FindFirst "DNI=" & Text1.Text
Else
' busco elapellido
rec.FindFirst "Apellido='" & Text2.Text & "'"
End If
' pregunto si lo encontró o no
If Not rec.NoMatch Then
    
    'paso los datos del recordset a los cuadros de texto
   ...