[AC-2003] Formulaire requete jointure erreur 3200 disparait apres Requery [Résolu]

[gabvoir]

Bonjour,
J'ai un soucis il me faudrai de l'aide

J'ai un form1 liee a une requete avec des jointures.
J'ai un bouton dans ce formulaire qui ouvre un autre form2 en modal venant edite une information contenu dans une des tables contenu dans la jointure.

Si je modifie une des infos dans le form2, le form1 n'est pas directement mis a jour. Je fais donc un me.requery. (en passant par la fonction ci dessous)
Et la j'ai un message d'erreur : "Write conflict This record has been changed by another ..." Si je fais "Save Record", je tombe sur une erreur 3200 : the record cannot be deleted or changed because table 'tasks' includes related records'.
Cependant je n'ai ni supprime l'element, ni touche a la liaison, simplement changer une info annexe.
Si j'arrete le code, et tente de relancer le Form2, cette fois en quittant le Form2, l'info dans Form1 se met directement a jour....

Quelque chose de bizarre, si avant douvrir mon Form2, je lance mon refreshForm,
je n'ai pas d'erreur ....


Donc j'ai pour l'instant cette solution de lancer refreshForm, avant d'ouvrir le Form2, mais ca fait des calculs pour rien ....

Merci de votre aide !!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub refreshForm(ByVal frmName As String, Optional ByVal ID As String = "", Optional ByVal field As String = "")
    Dim frm As Form
If CurrentProject.AllForms(frmName).IsLoaded Then
    Set frm = Forms(frmName)
    If CurrentProject.AllForms(frmName).CurrentView = acCurViewFormBrowse Then
        frm.Requery
        If Not (ID = "" And field = "") Then
            If ID = "" And field <> "" Then
                ID = frm.controls(field)
            End If
            frm.Recordset.FindFirst (field & "=" & ID)
        End If
    End If
    Set frm = Nothing
End If
End Sub

[Dolphy35]

Bonjour,

Je n'ai pas regardé le code en détail. Pourquoi ne pas faire

Code :

Forms![Form1].Requery

depuis le Form2 après mise à jour.

Comment tu mets à jour dans le Form2, directement dans la table ?

Dolphy

[gabvoir]

J'ai tente un Requery depuis le form2 avec

Code :

1
2
3
Private Sub Form_AfterUpdate()
Forms![TASK].Requery
End Sub

Meme erreur.

Pour ce qui est de la mise a jour de la table a partir du Form2, je laisse faire access car c'est un formulaire liee a cette table.

[Dolphy35]

Envoyé par gabvoir

Pour ce qui est de la mise a jour de la table a partir du Form2, je laisse faire access car c'est un formulaire liee a cette table.

Je pense que c'est ici qu'il y a le conflit. Il faudrait que tu libère l'enregistrement avant de faire la mise à jour, tu as encore besoin du Form2 après la modif. Le tout serait de modifier puis lors du retour sur le form1 mettre à jour.

Dolphy

[gabvoir]

Actuellement si je fait une mise a jour dans Form2 que je le ferme, j'affiche la table Table2, elle a bien ete mise a jour. C'est seulement l'affichage du champs dans Form1 qui n'est pas mis a jour.

Et si je tente de faire un me.requery c'est la que l'erreur arrive, le probleme est bel et bien sur Form1.

Et encrivant les phrases au dessus je viens effectivement de trouver le probleme.
Je me suis attarde sur les events du form1,
Et en fait j'ai OnCurrent du form1 qui me change automatiquement un champ.
De ce fait des l'ouverture l'enregistrement est modifie, et passe en dirty.
En modifiant, certe indirect l'enregistrement il y a effectivement conflit.

La solution a donc ete, de rajouter un me.dirty = false a la fin du current.

Code :

1
2
3
4
Private Sub Form_Current()
Me![photo] = Fonction()
Me.dirty = False
End sub

Merci pour ton aide qui m'a permis de me dire que le probleme venait de Form1 et non de form2

gabvoir

[Dolphy35]

Dolphy