Camille

J'ai une suggestion à faire : le principe est bon, mais tu oublies de parcourir tous les enregistrements de la table Access Affaire. Ta table va contenir plusieurs enregistrements, elle va s'aggrandir au fur et à mesure de son utilisation. Il faut donc parcourir (faire une boucle) afin de rechercher le N° d'affaire saisi (txtaffaire) et pouvoir conclure : OK s'il existe, le créer s'il n'existe pas dans la table. Voilà le code correspondant : ' est une marque de commentaire en VBA Public dbaffaire As Database Sub cmdValiderNumAff_Click() Dim affaire As Recordset Dim trouve As Boolean 'se connecter sur la base de données Gestion.mdb Set dbaffaire = OpenDatabase("C:\0-DAO-Gestion\Gestion\gestion.mdb") 'Pointer sur la table Affaire Set affaire = dbaffaire.OpenRecordset("Affaire", dbOpenDynaset) 'Utiliser une variable logique (booleenne) pour indiquer : ' Vrai (true) si le txtaffaire existe dans la table ' Faux (false) si le txtaffaire n'existe pas trouve = False 'Regarder si la table Affaire est vide If Not (affaire.EOF And affaire.BOF) Then 'La table n'est pas vide 'Se placer sur le premier enregistrement. Il va falloir boucler sur ' tous les enregistrements de la table pour rechercher l'existence ' de txtaffaire affaire.MoveFirst Do Until raffaire.EOF If affaire![NumAff] = txtaffaire Then ' on a trouve le txtaffaire dans la table MsgBox "ok" trouve = True 'sortir de la boucle Exit Do Else 'Cet enregistrement n'est pas le bon => passer au suivant affaire.MoveNext End If Loop 'As-t-on trouvé txtaffaire ? If Not trouve Then 'Pas trouvé ==> le créer dans la table affaire.AddNew affaire![NumAff] = txtaffaire affaire.Update End If End If dbaffaire.Close Set dbaffaire = Nothing Unload Me End Sub Bon courage ...