sauvegarde d'enregistrement

azza

09/11/2004 à 10:20

Salut,
Avant de faire le If MsgBox... tu essai de faire if Me.Dirty (voir si ya
changement dans l'enreg en cours)
A+
"ptite grenouille" a écrit dans
le message de news:

Bonjour,
Sur mes formulaires j'ai mis un code permettant à la fermeture de pouvoir
sauvegarder ou non ce que l'on a fait. Seulement il me le demande à chaque
fois mem si je n'ai rien changé. je souhaiterais qu'il me demande de
sauvegarder seulement si j'ai touché à quelque chose!

Voilà mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes Then
DoCmd.Close acForm, "imputations", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne sauvegarde pas et ferme
l'enregistrement
End If
'partie automatique générée à la création du bouton
DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

JMH

09/11/2004 à 10:23

Salut
Il te faut tester cette condition avant d'afficher ton message:
If Me.Dirty Then
Il y a eu des modifications
Else
Pas de modifications
End If

Bye

"ptite grenouille" a écrit dans
le message de news:

Bonjour,
Sur mes formulaires j'ai mis un code permettant à la fermeture de pouvoir
sauvegarder ou non ce que l'on a fait. Seulement il me le demande à chaque
fois mem si je n'ai rien changé. je souhaiterais qu'il me demande de
sauvegarder seulement si j'ai touché à quelque chose!

Voilà mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes Then
DoCmd.Close acForm, "imputations", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne sauvegarde pas et ferme
l'enregistrement
End If
'partie automatique générée à la création du bouton
DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

ptite grenouille

09/11/2004 à 10:38

J'ai rentré un if me.dirty, mais je rencontre toujours un problème, c'est
surement bête mais je ne connais pas cette fonction! Merci
voilà ce que ca donne :

If Me.Dirty Then
Me!Commande65.Enabled = True
Else
Me!Commande65.Enabled = False
End If
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes Then
DoCmd.Close acForm, "commandes", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "commandes", acSaveNo ' ne sauvegarde pas et ferme
l'enregistrement
End If

Salut,
Avant de faire le If MsgBox... tu essai de faire if Me.Dirty (voir si ya
changement dans l'enreg en cours)
A+
"ptite grenouille" a écrit dans
le message de news:
Bonjour,
Sur mes formulaires j'ai mis un code permettant à la fermeture de pouvoir
sauvegarder ou non ce que l'on a fait. Seulement il me le demande à chaque
fois mem si je n'ai rien changé. je souhaiterais qu'il me demande de
sauvegarder seulement si j'ai touché à quelque chose!

Voilà mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes Then
DoCmd.Close acForm, "imputations", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne sauvegarde pas et ferme
l'enregistrement
End If
'partie automatique générée à la création du bouton
DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

ptite grenouille

09/11/2004 à 10:44

oui oui et j'ai mis ça :
If Me.Dirty Then
Me!Commande65.Enabled = True
Else
Me!Commande65.Enabled = False
End If

Mais il me met un message d'erreur :
"Impossible de désactiver le controle actif."

Salut
Il te faut tester cette condition avant d'afficher ton message:
If Me.Dirty Then
Il y a eu des modifications
Else
Pas de modifications
End If

Bye

"ptite grenouille" a écrit dans
le message de news:
Bonjour,
Sur mes formulaires j'ai mis un code permettant à la fermeture de pouvoir
sauvegarder ou non ce que l'on a fait. Seulement il me le demande à chaque
fois mem si je n'ai rien changé. je souhaiterais qu'il me demande de
sauvegarder seulement si j'ai touché à quelque chose!

Voilà mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes Then
DoCmd.Close acForm, "imputations", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne sauvegarde pas et ferme
l'enregistrement
End If
'partie automatique générée à la création du bouton
DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

Ghislain

09/11/2004 à 10:55

J ai eu le meme message hier en utilisant a peu pres le
meme code...
J ai supprimer le "=True" de mon code et ca a marche
donc
If Me!Dirty Then
Me!Command65.Enabled
Else .....

Je sais ca parait bizarre moi ca a marcher donc j espere
que pour toi aussi.
A+

-----Message d'origine-----
oui oui et j'ai mis Ã§a :
If Me.Dirty Then
Me!Commande65.Enabled = True
Else
Me!Commande65.Enabled = False
End If

Mais il me met un message d'erreur :
"Impossible de dÃ©sactiver le controle actif."

Salut
Il te faut tester cette condition avant d'afficher ton
message:

If Me.Dirty Then
Il y a eu des modifications
Else
Pas de modifications
End If

Bye

"ptite grenouille"
a Ã©crit dans

le message de news: 983A9593-FC15-4D84-B547-

Bonjour,
Sur mes formulaires j'ai mis un code permettant Ã
la fermeture de pouvoir

sauvegarder ou non ce que l'on a fait. Seulement il
me le demande Ã chaque

fois mem si je n'ai rien changÃ©. je souhaiterais
qu'il me demande de

sauvegarder seulement si j'ai touchÃ© Ã quelque
chose!

VoilÃ mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?",
vbYesNo, "PIXXIM") = vbYes Then

DoCmd.Close acForm, "imputations",
acSaveYes 'sauvegarde et ferme

l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne
sauvegarde pas et ferme

l'enregistrement
End If
'partie automatique gÃ©nÃ©rÃ©e Ã la crÃ©ation du
bouton

DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

.

ptite grenouille

09/11/2004 à 11:02

Merci pour le conseil, mais en ce qui me concerne ca na rien changé!

J ai eu le meme message hier en utilisant a peu pres le
meme code...
J ai supprimer le "=True" de mon code et ca a marche
donc
If Me!Dirty Then
Me!Command65.Enabled
Else .....

Je sais ca parait bizarre moi ca a marcher donc j espere
que pour toi aussi.
A+

-----Message d'origine-----
oui oui et j'ai mis Ã§a :
If Me.Dirty Then
Me!Commande65.Enabled = True
Else
Me!Commande65.Enabled = False
End If

Mais il me met un message d'erreur :
"Impossible de dÃ©sactiver le controle actif."

Salut
Il te faut tester cette condition avant d'afficher ton
message:

If Me.Dirty Then
Il y a eu des modifications
Else
Pas de modifications
End If

Bye

"ptite grenouille"
a Ã©crit dans

le message de news: 983A9593-FC15-4D84-B547-

Bonjour,
Sur mes formulaires j'ai mis un code permettant Ã
la fermeture de pouvoir

sauvegarder ou non ce que l'on a fait. Seulement il
me le demande Ã chaque

fois mem si je n'ai rien changÃ©. je souhaiterais
qu'il me demande de

sauvegarder seulement si j'ai touchÃ© Ã quelque
chose!

VoilÃ mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?",
vbYesNo, "PIXXIM") = vbYes Then

DoCmd.Close acForm, "imputations",
acSaveYes 'sauvegarde et ferme

l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne
sauvegarde pas et ferme

l'enregistrement
End If
'partie automatique gÃ©nÃ©rÃ©e Ã la crÃ©ation du
bouton

DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

.

Gafish

09/11/2004 à 11:08

Bonjour,

Ce message d'erreur intervient quand tu essaies de desactiver le contrôle
actif, donc ici ton commande65 est actif, donc tu ne peux appliquer le
enabled dessus, il faut à la limite passer le focus à un autre contrôle
avant.

Arnaud

"ptite grenouille" a écrit dans
le message de news:

oui oui et j'ai mis ça :
If Me.Dirty Then
Me!Commande65.Enabled = True
Else
Me!Commande65.Enabled = False
End If

Mais il me met un message d'erreur :
"Impossible de désactiver le controle actif."

Salut
Il te faut tester cette condition avant d'afficher ton message:
If Me.Dirty Then
Il y a eu des modifications
Else
Pas de modifications
End If

Bye

"ptite grenouille" a écrit
dans
le message de news:
Bonjour,
Sur mes formulaires j'ai mis un code permettant à la fermeture de
pouvoir
sauvegarder ou non ce que l'on a fait. Seulement il me le demande à
chaque
fois mem si je n'ai rien changé. je souhaiterais qu'il me demande de
sauvegarder seulement si j'ai touché à quelque chose!

Voilà mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes Then
DoCmd.Close acForm, "imputations", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne sauvegarde pas et
ferme
l'enregistrement
End If
'partie automatique générée à la création du bouton
DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

azza

09/11/2004 à 12:28

Re,
Si j'ai bien compris tu cherche a activer ton bouton si modification
effectuer dans lenreg en cours pour toucher au bouton sinon pas touche
(désactive) voila la fonction que tu mettra ds l'evnement "si modification EnableBtn" de tes contrôles (effectuer une selection multiple de tes ctrl
puis propriétés)

Public Function EnableBtn()
Forms![Formulaire]![Commande49].Enabled = True
End Function

"Gafish" a écrit dans le message de news:

Bonjour,

Ce message d'erreur intervient quand tu essaies de desactiver le contrôle
actif, donc ici ton commande65 est actif, donc tu ne peux appliquer le
enabled dessus, il faut à la limite passer le focus à un autre contrôle
avant.

Arnaud

"ptite grenouille" a écrit
dans

le message de news:
oui oui et j'ai mis ça :
If Me.Dirty Then
Me!Commande65.Enabled = True
Else
Me!Commande65.Enabled = False
End If

Mais il me met un message d'erreur :
"Impossible de désactiver le controle actif."

Salut
Il te faut tester cette condition avant d'afficher ton message:
If Me.Dirty Then
Il y a eu des modifications
Else
Pas de modifications
End If

Bye

"ptite grenouille" a écrit
dans
le message de news:

Bonjour,
Sur mes formulaires j'ai mis un code permettant à la fermeture de
pouvoir
sauvegarder ou non ce que l'on a fait. Seulement il me le demande à
chaque
fois mem si je n'ai rien changé. je souhaiterais qu'il me demande de
sauvegarder seulement si j'ai touché à quelque chose!

Voilà mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes
Then

DoCmd.Close acForm, "imputations", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne sauvegarde pas et
ferme
l'enregistrement
End If
'partie automatique générée à la création du bouton
DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

Re,
Si j'ai bien compris tu cherche a activer ton bouton si modification
effectuer dans lenreg en cours pour toucher au bouton sinon pas touche
(désactive) voila la fonction que tu mettra ds l'evnement "si modification EnableBtn" de tes contrôles (effectuer une selection multiple de tes ctrl
puis propriétés)

Public Function EnableBtn()
Forms![Formulaire]![Commande49].Enabled = True
End Function

"Gafish" <---gafish@free.fr----nospam> a écrit dans le message de news:
e7c0JQkxEHA.1392@tk2msftngp13.phx.gbl...

Bonjour,

Ce message d'erreur intervient quand tu essaies de desactiver le contrôle
actif, donc ici ton commande65 est actif, donc tu ne peux appliquer le
enabled dessus, il faut à la limite passer le focus à un autre contrôle
avant.

Arnaud

"ptite grenouille" <ptitegrenouille@discussions.microsoft.com> a écrit
dans

le message de news: 1A0842AE-C94E-4438-8BE6-A4CA4FD15F39@microsoft.com...

oui oui et j'ai mis ça :
If Me.Dirty Then
Me!Commande65.Enabled = True
Else
Me!Commande65.Enabled = False
End If

Mais il me met un message d'erreur :
"Impossible de désactiver le controle actif."

Salut
Il te faut tester cette condition avant d'afficher ton message:
If Me.Dirty Then
Il y a eu des modifications
Else
Pas de modifications
End If

Bye

"ptite grenouille" <ptitegrenouille@discussions.microsoft.com> a écrit
dans
le message de news:
983A9593-FC15-4D84-B547-9B03C94E2415@microsoft.com...

Bonjour,
Sur mes formulaires j'ai mis un code permettant à la fermeture de
pouvoir
sauvegarder ou non ce que l'on a fait. Seulement il me le demande à
chaque
fois mem si je n'ai rien changé. je souhaiterais qu'il me demande de
sauvegarder seulement si j'ai touché à quelque chose!

Voilà mon code pour le moment :

Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click
If MsgBox("Voulez-Vous sauvegarder ?", vbYesNo, "PIXXIM") = vbYes
Then

DoCmd.Close acForm, "imputations", acSaveYes 'sauvegarde et ferme
l'enregistrement
Else
DoCmd.Close acForm, "imputations", acSaveNo 'ne sauvegarde pas et
ferme
l'enregistrement
End If
'partie automatique générée à la création du bouton
DoCmd.Close

Exit_Commande26_Click:
Exit Sub

Err_Commande26_Click:
MsgBox Err.Description
Resume Exit_Commande26_Click

End Sub

Merci

sauvegarde d'enregistrement

8 réponses

Veuillez sélectionner un problème