l'objet est incorrect ou n'est plus défini

Question

bonjour



je travaille sur une base access 97, en dao. quand je fait un
recordet.movefirst, ca me met comme erreur "l'objet est incorrect ou
n'est plus d&#233;fini" . Je ne comprends pas pourquoi et ai essay&#233; de me
renseigner l&#224; dessus, mais en vain. Ca me fait la m&#234;me erreur avec un
addnew autre part dans mon code. 



voici mon code



Private Sub Form_Activate()



With Me.dataaddition.Recordset

        .AddNew 'ajout de la nouvelle table

        !id_table = idtable

        !addition_ht = Me.lbltotalht.Caption

        !Date = Me.lbldateservice.Caption

        .Update

        .MoveLast

End With

End Sub

 ma question va vous paraitre basique, mais je d&#233;bute. 

D'autre part, je voudrais mettre un message d'erreur quand
l'utilisateur fait appel &#224; un enregistrement qui n'est plus valide,
mais ne sais pas comment m'y prendre. Une personne du forum m'a donn&#233;
un code, mais il ne fonctionne pas. je ne l'ai pas mis au bon endroit,
je pense.



j'ai mis: Private Sub Form_Load()

On Error GoTo Err_form_activate



Err_form_activate:



    If Err.Number = "3201" Then

    MsgBox "L'enregistrement sp&#233;cifi&#233; n'existe plus !"

    Resume Next

    Exit Sub

    End If

   

End Sub

est ce que je dois me mettre &#224; chaque sub de mon code ou juste &#224; form load? est ce qu'il faut que je d&#233;clare autre chose?



merci de vos lumi&#232;res,

cs_CanisLupus · Answer

Salut,

Un traitement d'erreur doit se trouver dans la proc&#233;dure ou la fonction o&#249; l'erreur peut se produire donc la mettre dans le load de la form n'est valable que pour le load, pas pour toute la form. Et on code de cette fa&#231;on :

sub truc()
On Error GoTo Trt_erreur

'ton code susceptible de provoquer l'erreur

exit sub 'sinon on passe dans le trt d'erreur m&#234;me s'il n'y en a pas
Trt_erreur:

    If Err.Number = "3201" Then
    MsgBox "L'enregistrement sp&#233;cifi&#233; n'existe plus !"
    Resume Next 'si tu veux continuer malgr&#233; l'erreur sinon rien
    End If
   
End Sub

D'autre part, je ne comprend pas ton addnew dans l'&#233;v&#232;nement activate. Si tu veux ajouter un enreg chaque fois que ta form prend le focus c'est presque correct (reste &#224; savoir comment tu g&#232;re idtable et le pourquoi du movelast inutile). Sinon, ce n'est pas l&#224; qu'il faut le mettre.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

titilechat001 · Answer

merci pour le addnew, il fallait juste enlever le .movelast. 

par contre, la gestion d'erreur ne fonctionne pas, m&#234;me avec ton code. j'ai bien mis sub truc()

On Error GoTo Trt_erreur en haut de la bonne sub

mais en l'ex&#233;cutant, ca s'arrete quand m&#234;me sur le .update et ca me met
l'erreur windows, comme si il ne prenait pas le on error goto...



voici le code complet de la sub en question : 



Private Sub cmdvalider_Click()

On Error GoTo Err_form_activate



With Me.datatable.Recordset

    If (Me.txtcouverts.Text "") Or (Me.txtserveur.Text "") Then 'gestion des erreurs de saisie

        MsgBox ("Vous devez remplir tous les champs")

    ElseIf (Not IsNumeric(Me.txtcouverts)) Then

        MsgBox ("vous devez entrer un nombre de couverts pour la table")

    ElseIf (Not IsNumeric(Me.txtserveur)) Then

        MsgBox ("vous devez entrer un num&#233;ro de serveur pour la table")

    Else

        .AddNew 'ajout de la nouvelle table

        !id_serveur = Me.txtserveur.Text

        !nb_couverts = Me.txtcouverts.Text

        !no_table = notable

        !etat = "commande" 'changement de l'&#233;tat &#224; commande

        idtable = Me.datatable.Recordset.Fields(0) 'r&#233;cup de l'id

        .Update

        .MoveLast

        notable = Me.datatable.Recordset.Fields(1)

        nb_couverts = Me.datatable.Recordset.Fields(2)

        id_serveur = Me.datatable.Recordset.Fields(3)

        Load commande3 'passage &#224; l'&#233;tape commande

        commande3.Show

        Unload Me

    End If

End With



Err_form_activate:

    If Err.Number = 3201 Then

    MsgBox ("L'enregistrement sp&#233;cifi&#233; n'existe plus !")

    Resume Next

    Exit Sub

    End If

End Sub

merci beaucoup

cs_CanisLupus · Answer

Plut&#244;t que 
        idtable = Me.datatable.Recordset.Fields(0) 'r&#233;cup de l'id
        .Update
        .MoveLast
essaie
        .Update
        .MoveLast
        idtable = Me.datatable.Recordset.Fields(0) 'r&#233;cup de l'id

car je suppose que le champ de l'id est un num&#233;ro auto ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Et n'oublie pas de mettre exit sub avant l'&#233;tiquette Err_form_activate:

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

titilechat001 · Answer

bon, ca ne fonctionne toujours pas, quand je rentre un enregistrement faux, il me met 

erreur d'ex&#233;cution '3201'

vous ne pouvez pas ajouter ou modifier un enregistrement car  l'enregistrement connexe est requis dans la table 'serveur'

??

la, je suis au bord du desespoir ;-)

cs_CanisLupus · Answer

J'en &#233;tait rest&#233; &#224; l'erreur "l'objet est incorrect ou n'est plus d&#233;fini" mais en fait, "l'enregistrement connexe est requis dans la table 'serveur'" veut dire qu'il y a une int&#233;grit&#233; r&#233;f&#233;rentielle entre ta table et la table serveur. Tu ne peux donc modifier ou supprimer d'enregistrement.

Il n'y aurait pas 2 tables dans le from de ton recordset ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

titilechat001 · Answer

Non, pas du tout, il me dit ca quand je veux s&#233;lectionner un id qui
n'existe plus (car je n'ai pas mis de listbox qui donne les valeurs de
ma base)

et comme j'ai cette erreur &#224; plusieurs endroits, je cherche &#224; faire une
gestion d'erreur qui tienne la route, pour &#233;viter tous les bugs de ce
type

L'objet est incorrect ou n'est plus défini

7 réponses

Discussions similaires