OVH Cloud OVH Cloud

Mesage de sauvegarde bidon

3 réponses
Avatar
Luis
Bonjour,
Comment faire pour =E9viter d'avoir le message 'Cet=20
enregistrement a =E9t=E9 modifi=E9 par un autre utilisateur=20
depuis que vous avez commenc=E9 =E0 le modifier.....

Avec trois boutons
-Sauvegarder l'enregistrement
-Copier dans le presse papier
-Annuler

Ce ci arrive =E0 la fermeture de formulaires m=EAme si l'on=20
n'a rien modifi=E9 et le plus terrible c'est que en cliquant=20
sur un des boutons ont perd les donn=E9es de la fiche, car=20
elles se transforment en Hi=E9roglyphes..

Merci pour votre aide.
Luis

3 réponses

Avatar
Michel Walsh
Salut,


Est-ce que la base de données fut compactée récemment? elle semble sur
le point de flancher.

Si tout est beau de ce coté là, est-ce que le CODE VBA modifie des
valeurs (de lui-même ou via une requête de type UPDATE) ? Le code VBA est
un AUTRE utilisateur que celui qui est devant le clavier et, dans ce cas, le
message d'erreur peut avoir du sens.


Espérant être utile,
Vanderghast, Access MVP




"Luis" wrote in message
news:230d001c45de1$4270f3e0$
Bonjour,
Comment faire pour éviter d'avoir le message 'Cet
enregistrement a été modifié par un autre utilisateur
depuis que vous avez commencé à le modifier.....

Avec trois boutons
-Sauvegarder l'enregistrement
-Copier dans le presse papier
-Annuler

Ce ci arrive à la fermeture de formulaires même si l'on
n'a rien modifié et le plus terrible c'est que en cliquant
sur un des boutons ont perd les données de la fiche, car
elles se transforment en Hiéroglyphes..

Merci pour votre aide.
Luis
Avatar
Luis
Bonjour,
La base est compactée à chaque fermeture automatiquement.

Tu as raison car il y a code
DoCmd.Maximize.
Dim y1 As Integer, y0 As Integer, m1 As Integer, m0
As Integer
Dim d1 As Integer, d0 As Integer
dn = Me.NAISSANCE
dx = Now
d1 = Day(dx)
m1 = Month(dx)
y1 = Year(dx)
d0 = Day(dn)
m0 = Month(dn)
y0 = Year(dn)
If d0 > d1 Then m0 = m0 + 1
If m0 > m1 Then
y0 = y0 + 1
m1 = m1 + 12
End If
Me.AGE = (y1 - y0) & " ans et " & (m1 - m0) & " mois"
If (m1 - m0) = "0" Then
Me.AGE = (y1 - y0) & " ans"
Pour le calcul de l'âge en clair.

C'est c'est la seul raison peut-on supprimer l'apparition
de ce message?
Merci.
Luis

-----Message d'origine-----
Salut,


Est-ce que la base de données fut compactée
récemment? elle semble sur

le point de flancher.

Si tout est beau de ce coté là, est-ce que le CODE
VBA modifie des

valeurs (de lui-même ou via une requête de type
UPDATE) ? Le code VBA est

un AUTRE utilisateur que celui qui est devant le clavier
et, dans ce cas, le

message d'erreur peut avoir du sens.


Espérant être utile,
Vanderghast, Access MVP




"Luis" wrote in
message

news:230d001c45de1$4270f3e0$
Bonjour,
Comment faire pour éviter d'avoir le message 'Cet
enregistrement a été modifié par un autre utilisateur
depuis que vous avez commencé à le modifier.....

Avec trois boutons
-Sauvegarder l'enregistrement
-Copier dans le presse papier
-Annuler

Ce ci arrive à la fermeture de formulaires même si l'on
n'a rien modifié et le plus terrible c'est que en cliquant
sur un des boutons ont perd les données de la fiche, car
elles se transforment en Hiéroglyphes..

Merci pour votre aide.
Luis


.



Avatar
Michel Walsh
Salut,



Si Me.Age est lié à un champ d'une table, faisant


Me.Age = ...


cela modifie le champ, donc modifie l'enregistrement, qui doit donc être
sauvegardé. Si le controle n'est pas lié, cela ne devrait pas être la cause
du problème. Dans tous les cas, il devrait être simple de vérifier si le
code génère le problème, ou pas: commenter tout le code (ajouter les
boutons "Comment Block" et "Uncomment Block" dans la barre d'outils, de la
catégorie "Edit" , si ces boutons ne sont pas déjà là, ils sont très utiles)
et ainsi, essayer "sans le code". Si le problème a disparu, c'est bien le
code. Sinon... Ok, si c'est le code, alors essayer d'utiliser
Me.AgeCalculé au lieu de Me.Age, par exemple, où Me.AgeCalculé ne serait
pas associé à un champ d'aucune table... ?


Espérant être utile,
Vanderghast, Access MVP



"Luis" wrote in message
news:2616701c461df$6555f570$
Bonjour,
La base est compactée à chaque fermeture automatiquement.

Tu as raison car il y a code
DoCmd.Maximize.
Dim y1 As Integer, y0 As Integer, m1 As Integer, m0
As Integer
Dim d1 As Integer, d0 As Integer
dn = Me.NAISSANCE
dx = Now
d1 = Day(dx)
m1 = Month(dx)
y1 = Year(dx)
d0 = Day(dn)
m0 = Month(dn)
y0 = Year(dn)
If d0 > d1 Then m0 = m0 + 1
If m0 > m1 Then
y0 = y0 + 1
m1 = m1 + 12
End If
Me.AGE = (y1 - y0) & " ans et " & (m1 - m0) & " mois"
If (m1 - m0) = "0" Then
Me.AGE = (y1 - y0) & " ans"
Pour le calcul de l'âge en clair.

C'est c'est la seul raison peut-on supprimer l'apparition
de ce message?
Merci.
Luis

-----Message d'origine-----
Salut,


Est-ce que la base de données fut compactée
récemment? elle semble sur

le point de flancher.

Si tout est beau de ce coté là, est-ce que le CODE
VBA modifie des

valeurs (de lui-même ou via une requête de type
UPDATE) ? Le code VBA est

un AUTRE utilisateur que celui qui est devant le clavier
et, dans ce cas, le

message d'erreur peut avoir du sens.


Espérant être utile,
Vanderghast, Access MVP




"Luis" wrote in
message

news:230d001c45de1$4270f3e0$
Bonjour,
Comment faire pour éviter d'avoir le message 'Cet
enregistrement a été modifié par un autre utilisateur
depuis que vous avez commencé à le modifier.....

Avec trois boutons
-Sauvegarder l'enregistrement
-Copier dans le presse papier
-Annuler

Ce ci arrive à la fermeture de formulaires même si l'on
n'a rien modifié et le plus terrible c'est que en cliquant
sur un des boutons ont perd les données de la fiche, car
elles se transforment en Hiéroglyphes..

Merci pour votre aide.
Luis


.