Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic ws As Workspace Public rs As Recordset Public db As Database Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase("Chemin de la base", False, False, "MS Access;PWD=ABCD") Set rscltsrc = db.OpenRecordset("Select * from clients Where tel like '" tel1 & "' ORDER BY nliv ASC", dbOpenDynaset) 'La j'ai fait ma recherche dans la base et mon recordset contient mes réponses. Ensuite j'utilise ".addnew" ou ".edit" et ".Update" Et enfin : db.close()