Discussion :

[cornet04]

Bonjour,

J'ai 3 applications qui fonctionne avec des tables liées qui se trouve sur MySQL.
Ces trois appli sont sur un serveur de test ou je suis le seul a avoir acces.
Deux d'entre elles fonctionne bien.
Une d'elle me donne ce message "Le moteur de base de données microsoft jet a arrété le traitement car vous et un autre utilisateur tentez de mettre a jour le même données en même temps"
Je comprnds pas je suis seul sur le serveur, j'ai modifié mon code pour ne mettre a jour qu'un champ, et la même procedure de mise a jour fonctionne tres bien sur mes deux autres applications ?
Quelqu'un a t il une solution ou au moins une piste ?
D'avance merci cordialement

[Maroxye]

Allo,

Rendu ici, on aurait besoin de code je pense....Peut-être as-tu un problème avec ta boucle d'update et que tu tentes de mettre à jour deux fois la même données?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Code S.V.P.

[cornet04]

J'ai ajouté des ' devant un certains nombre de ligne afin de réduire mon code il n'y a donc plus grand chose ma boucle est bien simple
D'avance merci si quelqu'un a une solution

Private Sub Eti_Btn_validation_modif_Click()


Dim r As adoDB.Recordset 'r sera un objet de la classe des record set
Set r = New adoDB.Recordset 'creation d'un record set nouveau qui se nome r
Set r.ActiveConnection = CurrentProject.Connection 'connection courante
r.CursorType = adOpenDynamic 'type curseur
r.LockType = adLockOptimistic



Dim sqlmaj As String
Dim vtest As String

'DoCmd.RunCommand acCmdRefreshPage
If profilok > 0 Then

sqlmaj = "select T_projets.Intitule_projet" _
& " from T_projets " _
& " where T_projets.Numero_Projet like " & """" & Me!id_proj & """" & " and " & " T_projets.Num_Ordre_Projet = " & Me!num_ordre_proj

'& " FROM (T_projets LEFT JOIN T_proposition_dr ON (T_projets.Num_Ordre_Projet = T_proposition_dr.id_ordre_projet) AND " _
'& " (T_projets.Numero_Projet = T_proposition_dr.id_projet)) " _
'& " LEFT JOIN T_D2RT ON (T_projets.Numero_Projet = T_D2RT.Numero_projet) and (T_projets.Num_Ordre_Projet = T_D2RT.Num_Ordre_Projet) " _

MsgBox (sqlmaj)

r.Source = sqlmaj
r.Open
r.Fields("Intitule_projet") = Forms!formu_modif_projet!intitule_projet
'r.Fields("T_projets.Cotation") = Me!cotation_proj
'r.Fields("Responsable_Scientifique_Projet") = Me!resp_proj
'r.Fields("laboratoire_du_responsable_scientifique") = Me!labo_resp
'r.Fields("commentaire_dr") = Me!commentaire_dr
'r.Fields("montant_autre") = Me!mtant_autre
'r.Fields("fi_autre") = Me!fi_autre
'r.Fields("reference_d2rt") = Me!num_D2RT

'MAJ dates période
'r.Fields("Date_debut_periode") = Me!date_debut
'r.Fields("Date_fin_periode") = Me!date_fin

'MAj données financieres
'r.Fields("tranche_addi_EQ_ke") = Me!ADI_Eq
'r.Fields("tranche_addi_OI_ke") = Me!ADI_OI

'r.Fields("Montant_financement_DS_EQ") = Me!DS_Eq
'r.Fields("Montant_financement_DS_OI") = Me!DS_OI


'r.Fields("montant_feder") = Me!feder

'r.Fields("Montant_total_de_loperation_demande_en_ke") = Me!Montant_total_de_loperation_demande_en_ke
'r.Fields("Montant_global_demande_au_CNRS_en_ke") = Me!Montant_global_demande_au_CNRS_en_ke


'MAJ données fi DR table T_proposition_dr ( à finir)
'r.Fields("proposition_dr_en_ke") = Me!proposition_dr_en_ke
'r.Fields("proposition_OI_dr_en_ke") = Me!proposition_OI_dr_en_ke
'r.Fields("proposition_region_en_ke") = Me!proposition_region_en_ke
'r.Fields("proposition_prefet_en_ke") = Me!proposition_prefet_en_ke


r.Update
r.Close


'DoCmd.RunCommand acCmdRefreshPage
'stDocName = "Formu_modif_projet"
'DoCmd.OpenForm stDocName

MsgBox ("vous venez d'enregistrer les modifications sur ce projets")


Else
MsgBox ("vous n'etes pas habilité")
End If


End Sub