Réponse acceptée !
Salut
dim db as database
dim rs as recordset
dim myvalue as integer
Set db.opendatabase (c:\test.mdb") ' le chemin de votre base
set rs = db.openrecordset ("Clients") ' votre table ou requete
myvalue = int (rs.fields(NumClient) ) + 1
Avant de faire ce code il faut ajouter le reference de DAO 3.5 pour Access 97 ou bien DAO 3.51 pour Access 2000 ou ultérieur
A ++
Majnounmajda@hotmail.com