DAO y ADO Recordset Builder

Recordset Builder hace que sea muy fácil crear código para añadir, leer, actualizar o explorar datos en su base de datos MS Access utilizando DAO (o ADO):

1. Seleccione la mesa en la que desea trabajar
2. Seleccione los campos a los que desea acceder
3. Seleccione el tipo de código que desea utilizar: Añadir, Actualizar, Leer o Examinar
4. OK

El constructor proporciona un código que deberá completar de la forma que mejor se adapte a sus necesidades. En el caso de FindFirst tendrá que especificar la cadena de criterios. Ejemplo en MS Docs Método Recordset.FindFirst (DAO) En general, la documentación se puede encontrar poniendo el cursor en el procedimiento y pulsando F1.

En cuanto a los campos, seleccione sólo los que vaya a utilizar y asígnelos a las variables de su programa que considere oportunas, por ejemplo

Dim strSalutation as String
strSalutation  = ![fldFirstName]
strSalutation = & " " &  ![fldLastName]

Nota: Para facilitar el acceso a la documentación del DAO hemos creado una página de índice: https://www.codevba.com/learn-dao-vba.htm

DAO recordset Añadir código (ejemplo)

Con los valores seleccionados se insertaría el siguiente código DAO

Dim db As DAO.Database
Set db = CurrentDb
Set rstCategories = db.OpenRecordset("Employees", dbOpenDynaset)
With rstCategories
    .AddNew
    ![LastName] =
    ![FirstName] =
    ![HomePhone] =
    ![ReportsTo] =
    .Update
    .Close
End With
Set rstCategories = Nothing
db.Close
Set db = Nothing

Código DAO Recordset browse (ejemplo)

Con los valores seleccionados se insertaría el siguiente código DAO

Dim db As DAO.Database
Set db = CurrentDb
Set rstCategories = db.OpenRecordset("Employees", dbOpenDynaset)
With rstCategories
    Do While Not .EOF
        Debug.Print ![EmployeeID], ![LastName], ![FirstName], ![HomePhone]
        .MoveNext
    Loop
    .Close
End With
Set rstCategories = Nothing
db.Close
Set db = Nothing