Aide pour correction de mon code

Question

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

jrivet · Answer

Salut,
Question très claire et bien posée. SAUF quelle est la faute annoncée?

@+: Ju£i€n
Pensez: Réponse acceptée

cs_Exploreur · Answer

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

PCPT · Answer

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? ^^

<hr size  ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

nb : 

ceci n'est pas possible :
Me.Codoc.Value = Codoc
manque rs!

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

valtrase · Answer

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é

Aide pour correction de mon code

5 réponses

Votre réponse

Discussions similaires