OVH Cloud OVH Cloud

DoCmd.SetWarnings

12 réponses
Avatar
Luis
Bonjour,
A l'ouverture d'un formulaire j'ai souvent=20
Quelqu'un =E0 modifi=E9 votre enreistrement.....
l'avertissement: Voulez vous enregistrer les modifications?

Pour =E9viter =E7a j'ai mis sur Activ=E9 du formulaire:
DoCmd.SetWarnings False
DoCmd.SetWarnings True
Mais les messages continuent.
Comment faire pour =E9viter ses messages, surtout qu'il faut=20
toujours faire attention =E0 cliquer sur 'annuler', car si=20
on clique sur 'enregistrer les modifications' les donn=E9es=20
se corrompent.
Merci pour votre aide.
Luis

2 réponses

1 2
Avatar
Luis
Re,
En enlevant:
Me.Cadre224.SetFocus
Me.Cadre240.SetFocus

de la commande 'Suivant':
DoCmd.GoToRecord , , acNext

Me.Cadre224.SetFocus
Me.Cadre240.SetFocus

Je n'ai plus de message 'pas sauver...' en quittant le
formulaire.
Est-ce que ça peut-être la cause et la solution?
Merci pour tout et à bientôt.
Luis
-----Message d'origine-----
re,

"Luis"

Non, j'ai

Sur ouverture :
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Me.Modifiable242.SetFocus

Sur chargement :
Private Sub Form_Load()
Me.Annuler_l_enregistrement.Visible =
False

Me.MODIFIER.Visible = True
Me.OK.Visible = False

Et sur Activé :
Private Sub Form_Activate()
DoCmd.Maximize

Mais pas sur activation.
Pourquoi?


Ben, si tu n'as pas de code sur le "Form_Current" ce
n'est

pas là que le code est "dirty"...

faut chercher ailleurs... pas simple de loin...


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------





.



Avatar
3stone
re,

"Luis"
En enlevant:
Me.Cadre224.SetFocus
Me.Cadre240.SetFocus
[...]
Je n'ai plus de message 'pas sauver...' en quittant le
formulaire.
Est-ce que ça peut-être la cause et la solution?


Indirectement, oui...
mais faudrait voir tout l'enchainement...


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
1 2