erreur "cet objet ne gère pas cette méthode" qui n'empeche pas le programme de f

Question

Bonjour

je r&#233;alise actuellement une application e gestion de client&#232;le vb-access.
J'ai un petit probl&#232;me de message d'erreur "cet objet ne g&#232;re pas cette propri&#233;t&#233; ou cette m&#233;thode". Quand je clic sur OK sur ce message, l'application reprend son cour normalement. Cette erreur est survenue apr&#232;s avoir ajouter une requ&#234;te d'ajout : data.database.execute("insert into...") qui fonctionne parfaitement d'ailleurs.J'ai essay&#233; de suprimer cette requ&#232;te mais l'erreur ne part pas. De plus cette erreur arrive n'importe o&#249; comme quand je clic sur un bouton qui charge simplement une page (frm.show).

Merci pour votre aide

tinino70's

apaulux · Answer

il faut d&#233;bogu&#233; mettr un point d'arret sur l'erreur pour povoir remonter a ton erreur

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

tinico70s · Answer

j'ai essay&#233; les point d'arr&#234;ts mais l'erreur arrive quand je clic sur un bouton o&#249; le code est tr&#232;s basic

Private Sub cmdnewcontrat_Click()
frmfrs.txtnumclt.Text = ""
frmfrs.Show
End Sub

il n'y a pas d'erreur ici.
l'erreur est arriv&#233;e lorsque dans la form frmfrs j'ai ajout&#233; un bouton qui permet d'ajouter un enregistrement &#224; la base de donn&#233;es

Private Sub cmdok_Click()
Dim clt As IntegerIf cmbfrs.Text "AFI" Or cmbfrs.Text "AIG" Or cmbfrs.Text = "ALPTIS" Or cmbfrs.Text = "APRIL" Or cmbfrs.Text = "AVIVA" Or cmbfrs.Text = "AZUR" Or cmbfrs.Text = "SwissLife" Then
    If txtnumclt.Text = "" Then
        frmnumclt.Show
        frmfrs.Hide
        Else
        datalier.RecordSource = "SELECT numeroclt FROM LIER , CLIENT WHERE LIER.numeroclt='" & txtnumclt.Text & "' AND LIER.numclt = CLIENT.numclt AND CLIENT.nomclt = '" & frmresult.txtnomclt.Text & "' AND CLIENT.prenomclt = '" & frmresult.txtprenomclt.Text & "' AND CLIENT.adrclt = '" & frmresult.txtadrclt.Text & "' AND CLIENT.villeclt = '" & frmresult.txtvilleclt.Text & "';"
        datalier.Refresh
        lblcount.Caption = datalier.Recordset.RecordCount        If lblcount.Caption "0" Or lblcount.Caption "" Then
            
datalier.Database.Execute ("INSERT INTO LIER(numclt , nomfrs , numeroclt) VALUES ('" & frmresult.txtnumclt.Text & "' , '" & cmbfrs.Text & "' , '" & txtnumclt.Text & "');")
            datalier.Database.Close
            MsgBox ("Le contrat a &#233;t&#233; enregistr&#233;.")
            frmfrs.Hide
        Else
            MsgBox ("Le contrat a d&#233;j&#224; &#233;t&#233; enregistr&#233;")
            frmfrs.Hide
        End If
    End If
Else
    If txtnumclt.Text = "" Then        frmnumcltcontrat.datacontrat.RecordSource "SELECT * FROM PRODUIT WHERE nomfrs '" & cmbfrs.Text & "';"
        frmnumcltcontrat.datacontrat.Refresh
        frmnumcltcontrat.Show
        frmfrs.Hide
        Else
        clt = CInt(frmresult.txtnumclt.Text)        datalier.RecordSource "SELECT * FROM LIER WHERE numeroclt '" & txtnumclt.Text & "' AND numclt = " & clt & ";"
        datalier.Refresh
        lblcount.Caption = datalier.Recordset.RecordCount        If lblcount.Caption "0" Or lblcount.Caption "" Then
            
datalier.Database.Execute ("INSERT INTO LIER(numclt , nomfrs , numeroclt) VALUES ('" & frmresult.txtnumclt.Text & "' , '" & cmbfrs.Text & "' , '" & txtnumclt.Text & "');")
            datalier.Database.Close            frmcontrat.datacontrat.RecordSource "SELECT * FROM PRODUIT WHERE nomfrs '" & cmbfrs.Text & "';"
            frmcontrat.datacontrat.Refresh
            frmcontrat.Show
            frmcontrat.cmbcontrat.Text = frmcontrat.datacontrat.Recordset.Fields("nompdt").Value
            frmfrs.Hide
        Else            frmcontrat.datacontrat.RecordSource "SELECT * FROM PRODUIT WHERE nomfrs '" & cmbfrs.Text & "';"
            frmcontrat.datacontrat.Refresh
            frmcontrat.Show
            frmfrs.Hide
        End If
    End If
End If
End Sub

rien de tr&#232;s sorcier &#224; part les lignes en rouge
C'est lorsque j'ai &#233;crit ces lignes que l'erreur est apparue.
Seulment cette m&#233;thode a fonctionn&#233; pour ajouter un enregistrement &#224; la base

Merci pour ton aide apaulux

tinino70's

apaulux · Answer

Sur une table existante "LIER"

datalier.Database.Execute ("INSERT INTO LIER(numclt , nomfrs , numeroclt) 
VALUES ('" & frmresult.txtnumclt.Text & "' , '" & cmbfrs.Text & "' , '" & txtnumclt.Text & "');")

si c'est des champs num&#233;riques  voir le format de tes champs

datalier.Database.Execute ("INSERT INTO LIER(numclt , nomfrs , numeroclt)
VALUES (" & frmresult.txtnumclt.Text & " , " & cmbfrs.Text & " , " & txtnumclt.Text & ");")

va sur mon  http://multibases.site.voila.fr tu as une application pour faire du developpement

            datalier.Database.Close

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

tinico70s · Answer

J'ai enlev&#233; les quotes mai la requete ne fonctionne plus
ca m'embete vraimen parcke cette erreur n'en ai pa vraimen une puisque tou ce passe bien le resultat de la requete s'affiche &#224; l'ecran.
Par contre je n'ai pa trop compris ce que je dois faire avec ton logiciel. Peut tu m'expliquer s'il te plait ?
Aparament les enregistrement passe dans la base de donn&#233;es donc le format des champs doit correspondre.

Merci beaucoup pour ton aide

tinino70's

apaulux · Answer

C'est un utilitaire qui permet de g&#233;n&#233;rer des scripts Sql et du code Vb sur des Bases de donn&#233;es(Access 97 2000, Excel, Paradox, Db Base, FoxPro)


pour faire du d&#233;veloppement sur les bases de donn&#233;es.


Avec l&#146; Enregistrement Automatique des requ&#234;tes dans le r&#233;pertoire DEMO 


Aucune configuration a faire,  il suffit de cliquer sur ta base de donn&#233;es et ta table

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

tinico70s · Answer

Je suis toujours sur cette p..... d'erreur.
J'ai enlev&#233; mes requetes sql de type : data.database.execute("INSERT INTO...")
mais l'erreur arrive toujours. Je sais pas si c'est une erreur al&#233;atoire ou si elle a une cause r&#233;elle mais il faut vraiment que vous m'aidiez.
Je r&#233;p&#232;te le message d'erreur : "cet objet ne g&#232;re pas cette propri&#233;t&#233; ou cette m&#233;thode".

Merci beaucoup pour votre aide

tinino70's

apaulux · Answer

il est difficile de t'aider sans voir ton application ! il aurait falut que j'ai en main ton application et la base de donn&#233;es je ne pense pas que se soit un tres gros probleme je suis en region parisenne je peux te consacre une heure pour ton application
tel 06 85 28 20 48
paul

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

tinico70s · Answer

Merci. Je viens de vous envoyer mon projet sur votre mail.

Merci beaucoup pour votre aide

tinino70's

apaulux · Answer

Pour tes controle Data
les mettre dans un module pour et declare l'adresse de ta base de donn&#233;e
dataconseil.Database "C:\Documents and Settings\paul\Bureau\oc.mdb"

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

Erreur "cet objet ne gère pas cette méthode" qui n'empeche pas le programme de f

9 réponses

Discussions similaires