DAO et ADO Recordset Builder

Le Recordset Builder permet de créer très facilement du code pour ajouter, lire, mettre à jour ou parcourir des données dans votre base de données MS Access à l'aide de DAO (ou ADO) :

1. Sélectionner le tableau sur lequel travailler
2. Sélectionnez les champs auxquels vous souhaitez accéder
3. Sélectionnez le type de code que vous souhaitez utiliser : Ajouter, Mettre à jour, Lire ou Parcourir
4. OK

Le constructeur fournit un code que vous devez compléter de la manière qui vous convient. Dans le cas de FindFirst, vous devrez spécifier la chaîne de critères. Exemple dans MS Docs Méthode Recordset.FindFirst (DAO) En général, la documentation peut être trouvée en plaçant le curseur dans la procédure et en appuyant sur F1.

En ce qui concerne les champs, ne sélectionnez que ceux que vous avez l'intention d'utiliser et affectez-les aux variables de votre programme comme vous l'entendez, par exemple

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

Note : Pour faciliter l'accès à la documentation du DAO, nous avons créé une page d'index : https://www.codevba.com/learn-dao-vba.htm

DAO recordset Ajouter du code (exemple)

Si les valeurs sont sélectionnées, le code DAO suivant sera inséré

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

Code de navigation du DAO Recordset (exemple)

Si les valeurs sont sélectionnées, le code DAO suivant sera inséré

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