Discussion :

[labjon01]

Bonjour,

J'aimerais pouvoir mettre par défaut le texte saisie dans ma zone de texte du nom de "Msg_C1". J'aimerais qu'en réouvrant mon formulaire, la valeur par défaut soit déjà là. Je voudrais que la valeur saisie devienne la valeur par défaut seulement si je coche la case à cocher "ParDefautA".

Voici mon code qui ne marche pas:

Code :

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

1
2
3
4
5
6
Private Sub ParDefautA_GotFocus()
 
Form_Formulaire_Jonathan.Msg_C1.DefaultValue = Form_Formulaire_Jonathan.Msg_C1.Value
DoCmd.Save acForm, "Form_Formulaire_Jonathan"
 
End Sub

Merci d'avance!

[lelensois16]

Bonjour,

Ce n'est pas la bonne procédure évenementielle , l'évenement clic me semble plus approprié et il faut gérer la situation où la case est décochée.

Voici le code :

essai étant le champ
Cocher2 étant la case à cocher

Code :

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

1
2
3
4
5
6
7
Private Sub Cocher2_Click()
If Me.Cocher2.Value = -1 Then
Me.essai.DefaultValue = "'Valeur par défaut'"
Else
Me.essai.DefaultValue = "'Pas de valeur'"
End If
End Sub

et pour réinstaller à l'ouverture du formulaire

Code :

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

1
2
3
Private Sub Form_Load()
Me.essai.DefaultValue = "'Valeur par défaut'"
End Sub

Cdt

PSEDIT : Oups , j'ai mal lu , si tu veux conserver les données pourquoi ne pas utiliser une table intermédiaire.

[dut-dut]

Bonjour,
essaie peut-être :

Code :

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

Form_Formulaire_Jonathan.Msg_C1.DefaultValue = """" & Form_Formulaire_Jonathan.Msg_C1.Value & """"

[labjon01]

Merci pour les réponses.

J'ai essayé:

Code :

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

1
2
3
4
5
6
7
Private Sub ParDefautA_Click()
If Me.ParDefautA.Value = True And Me.Msg_C1.Value <> Null Then
Me.Msg_C1.DefaultValue = Me.Msg_C1.Value
Else
Me.Msg_C1.DefaultValue = ""
End If
End Sub

Mais bien que je n'ai pas de message d'erreur, dès que je coche la case, la zone de texte devient vide...

[labjon01]

PSEDIT : Oups , j'ai mal lu , si tu veux conserver les données pourquoi ne pas utiliser une table intermédiaire.

Tu veux dire qu'en cochant la case "par défaut", je copierais le texte saisie dans une table et qu'en réouvrant mon formulaire, je prendrais cette valeur par défaut à partir de la table? C'est une option... mais il faudrait que je m'assure que la valeur par défaut est bien la dernière entrée de ma table.

N'y a-t-il pas un moyen plus simple?

[pier.antoine]

Bonjour

Personnellement, je préfère utiliser une table de paramètres pour gérer mes valeurs par défaut.

Je ne retrouve plus le tutoriel. Si vous êtes intéressé, je chercherai mieux demain.

Pierre

[labjon01]

Ce n'est peut-être pas si compliqué après tout. Je vais essayer de voir comment je pourrais faire avec la table intermédiaire et je vous ferai part de mon code s'il marche (ou pas).

[labjon01]

Bonjour

Personnellement, je préfère utiliser une table de paramètres pour gérer mes valeurs par défaut.

Je ne retrouve plus le tutoriel. Si vous êtes intéressé, je chercherai mieux demain.

Pierre

Oui, je serais intéressé! Merci.

[lelensois16]

Bjr,

Merci à pier Antoine !
je ne connaissais pas ce système !
Le voici

Cdt

[labjon01]

Merci! J'essaie de suite.

[labjon01]

Je me rend compte que j'avais oublier de fermer cette discussion. Tout a très bien fonctionné finalement.