Aide pour correction de mon code

Bonjour Chers tous

Access 2007
Language VBA

Code ci-dessous
Je veux ajouter un enregisterement dans mon formulaire mais en validant il signale une faute sur rs.Update.
Demande d'aide SVP

Private Sub Ajouter_Click()
Set BD = CurrentDb()
Set rs = BD.OpenRecordset("select * from Document ")

If IsNull(Me.Codoc.Value) Then
     MsgBox "le code du document doit être renseigné"
     Me.Codoc.SetFocus
     Else
                                    rs.AddNew
                                    rs!Codoc = Me.Codoc.Value
                                    rs.Update
                                   
                                    Me.Codoc.Value = Codoc
                                    Me.Codoc.SetFocus

                                    rs.Close
                                    BD.Close         
      End If
End Sub

Salut,
Question très claire et bien posée. SAUF quelle est la faute annoncée?

@+: Ju£i¤n
Pensez: Réponse acceptée

Salut,

Je ne vois pas dans ton code la déclaration de ton Rs et Bd....peux-tu SVP nous donner l'erreur retournée par l'IDE aussi ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

salut,

dans le doute.. :
un petit rs.movefirst avant
quel est le type attendu pour le champ "codoc"
n'y a t'il pas un autre champs dans "document" qui NE peut PAS être null ?
peut-être remplacer (ou cumuler) ton test IsNull avec lenb(zone)=0


Explo -> ah bon tu vois pas les déclarations? ^^

---

Prenez un instant pour répondre à ce sondage svp  

nb :

ceci n'est pas possible :
Me.Codoc.Value = Codoc
manque rs!

---

Prenez un instant pour répondre à ce sondage svp  

Salut,
Je ne suis pas un expert sous Access mais il me semble que sous un Add new tu ne doit pas faire un Update celui-ci comprends des arguments.

pour ma part j'ouvre un nouveau Recordset, je selectionne les champs "en général tous"

et ensuite je fait un Update dans le style:

Private Sub RiteInBDD()
   On Error GoTo RiteInBDD_Error
Set rsFilm = New ADODB.Recordset
sqlFilm = "Select * From Films where N°=" & NumFilm
rsFilm.Open sqlFilm, dbFilm, adOpenStatic, adLockOptimistic

rsFilm.Update Array("Titre", "Nombre cd", "Catégorie", "Durée", "Compression", "Lien web", _
        "TitreLecture1", "prêt", "Année", "Acteur", "Langue", "Réalisateur", "Synopsis"), _
    Array(txtTitre, txtNombreCD, cmbCatégorie, txtDurée, txtCompression, txtWeb, _
        txtPathLecture, txtPret, txtAnnée, txtActeur, txtLangue, txtRéalisateur, _
        txtSynopsis)
'J'utilise la fonction Array pour faire tous les changements en une fois

rsFilm.Close
Set rsFilm = Nothing

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé