Erreur .addnew

Question

Bonjour,

J'ai une erreur lors de l'execution sur le .addnew

voici mon code

Module:
Public Sub connectBd()
    Set maBase =  OpenDatabase("Menu.mdb", False, False, "MS Access;PWD=moon")
    Set monRecordset = maBase.OpenRecordset( _
        "SELECT Title, Description, Chemin FROM tblMenu ORDER BY Title", dbOpenSnapshot)
End Sub

 Form: 
Private Sub Command2_Click()
With monRecordset
    .AddNew
    .Fields("Title")  = txtTitre.Text
    .Fields("Chemin") = txtChemin.Text
    .Fields("Description") = txtDescription.Text
    .Update
End With
MsgBox ("l'ajout est termin&#233; avec succ&#233;s"), vbOKOnly + vbInformation, ("Ajout")
End Sub

Merci
DraaFil

econs · Answer

L'objet monRecordset est-il d&#233;clar&#233; en Public quelque part ? Si
ce n'est pas le cas, il n'est tout simplement pas consid&#233;r&#233; comme &#233;tant
un objet de type recordset quand tu l'utilises dans Form.Il n'a donc
pas de m&#233;thode Addnew.



Si ma r&#233;ponse ne convient pas, pense &#224; dire quelle message d'erreur tu obtiens.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

ricomiracle · Answer

Avant la ligne :
Set monrecorset... 
du module, tu dois attribu&#233;e la valeur de la propri&#233;t&#233; locktype permettant la mise a jour du recordset.

DraaFil · Answer

pourrais-tu me donner une exemple de locktype

merci
DraaFil

DraaFil · Answer

Public maBase As Database
Public monRecordset As Recordset
Public maBaseSetup As Database

Erreur: l'obet n'est pas defini ou n'est plus d&#233;fini

DraaFil · Answer

est-ce que cela pourrais etre dnas la methode d'ouverture de la base de donnee

DraaFil · Answer

voici mon erreur

je dois ouvrir en dbOpenDynaset)

ricomiracle · Answer

mcnData est ma variable connection



Private Function OpenRecordset() As ADODB.Recordset

Dim rst As New ADODB.Recordset



rst.LockType = adLockOptimistic

rst.Open mstrCommand, mcnData, adOpenDynamic

rst.MoveFirst

...........

rst.addNew

Erreur .addnew

7 réponses

Discussions similaires