VBA recordset

En faites je suis en stage, et on me demande de le faire avec un recordset pour voir les différente manière. Mais je t'avouerai que je ne comprends pas pourquoi on me demande ça si tu dit qu'avec un dlookup ca va beaucoup plus vite.

Ajoute un Exit Sub (ou Function) après le msgbox.

C'est étrange parce que je viens de faire un test et je n'ai pas ton message d'erreur.

En fait j'ai fait ça de tête mais la bonne façon de faire serait plutôt :

Sub AjoutTaille()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim query As String

    Set db = CurrentDb
    query = ""select * from TAILLE where code_taille = ' " & Me.new_taille & " '")
        
    Set rs = db.OpenRecordset(query)
    
    If rs.RecordCount <> 0 Then
        MsgBox "Cet enregistrement existe déjà !!!"
    Else
        With rs
            .AddNew
            .Fields("code_taille") =  Me.new_taille
            .Update
        End With
         MsgBox ("La taille à été ajouter avec succès")
    End If

    rs.Close
    db.Close
    Set rs = Nothing
     Set db = Nothing
       
End Sub

Essaye ça :

if not isnull(dlookup("code_taille","taille","code_taille = " & me.new_taille)) then
msgbox "taile existante
else
'ajout ligne
end if

Par contre, ton recordset tel que décrit actuellement ne te permettra pas de faire une insertion de ligne. Il faut le traiter en type table.

Set rs = CurrentDb.OpenRecordset("TAILLE", dbOpenTable)

Opération annulé en signalant la ligne du if notisnull :(

j'ai pas fait attention, mais si code_taille est alphanum, il faut l'enquoter :

if not isnull(dlookup("code_taille","taille","code_taille = '" & me.new_taille & "'"))

Effectivement ça marche maintenant, c'est vrai que j'ai du mal a enquoter tous :/

Juste une dernière petite indication si tu sais (je demande pas la solution) :

Dans mon formulaire d'ajout, j'ai aussi une listbox avec la table table. et j'aimerai que quand j'appuis sur le bouton Ajouter (que je viens de faire grace a votre aide), la listBox ce mette a jour. Car je suis obligé une fois une taille ajouter, de quitter puis de rouvrir pour voir la mise a jour.

Faut il faire une requête update ou autre ?

listbox.requery ???