Discussion :

[Bessolo]

BONJOUR,
Svp pourrais-je avoir de l'aide concernant comment omposer la saisie d'un caractère particulier dans une

zone de texte..
En effet mon souci est le suivant :je voudrais que le format entré soit impérativement une année, commençant à partir de 2010.

bien cordialement…...

[marot_r]

Bonjour.

Il n'y a pas de masque de saisie qui te permette de forcer une valeur.

Les solutions que je vois si c'est juste une annee :

1. definir une valeur par defaut a 2010 puis de verifier apres modification si la valur est >=2010,
   Tu peux aussi metre une regle de valider sur le champ mais je n'aime pas car je trouve cela trop contraignant.
2. utiliser une liste deroulante presentant les diverses valeurs autorisees.

La liste deroulante a l'avantage de guider l'utilisateur dans ses choix.

A+

[Bessolo]

ok merci..
svp pourrais-je dans la mesure du possible avoir un code vba approprié?

merci d'avance

[marot_r]

Bonjour.

svp pourrais-je dans la mesure du possible avoir un code vba approprié?

Pour quelle solution ?

A+

[Bessolo]

pour celle là

-définir une valeur par défaut a 2010 puis de vérifier après modification si la valeur est >=2010,
Tu peux aussi mettre une règle de valider sur le champ mais je n'aime pas car je trouve cela trop contraignant.


merci

[marot_r]

Bonjour.

Pour la valeur par defaut, c'est une propiete du champ (onglet Data/Donnees).
Tu as juste a mettre 2010 la et c'est tout.

Pour la validation, dans la procedure evenementielle associee a l'evenement "Apres Mise a jour", tu peux mettre quelque chose comme :

Code :

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

1
2
3
if Nz(me.Annee,0)<2010 then
    call msgbox("Attention, l'annee doit au moins etre 2010.", vbInformation) 'Juste un information, l'utilisateur peut passer outre.
end if

ou si tu te sens autoritaire :-).

Code :

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

1
2
3
4
if Nz(me.Annee,0)<2010 then
    call msgbox("Attention, l'annee doit au moins etre 2010. Vous ne pourrez pas passer a un autre champ tant que ce ne sera pas le cas.", vbExclamation)
    me.annee.setfocus 'Ramene le curseur sur le champ Annee
end if

Enfin si tu utilises les regles de validation, c'est aussi une propriete du champ donc pas de programmation.
En Anglais c'est dans l'onglet data, Validation Rule, Validation Text.

Avec la regle, l'utilisateur ne peut pas quitter le champ tant qu'il n'a pas entre une valeur valide.
Personnellement je trouve cela tres contraignant et j'ai tendance a etre "laxiste" dans mes saisies.
Cela permet a l'utilisateur de ne pas entrer les champs dans un ordre defini.
Une fois qu'il signale qu'il a fini je fais un controle groupe et je lui explique toutes les erreurs qu'il a commises et je lui demande de corriger.

A+

[Bessolo]

Merci

j'essai et je vous revient......

Cordialement..

[Bessolo]

bonjour,

Merci encore pour la fois passée...

j'ai une préoccupation, en fait quand je mais une année inférieur à 2010, le message s'affiche

mais le soucis est que quand je mais ok pour changer, je passe à l'étape suivante..

je comprends pas....


merci d'avance

[marot_r]

Bonjour.

Peux-tu poster le code que tu as mis ?

A+

[Bessolo]

bonsoir, voici le code....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub bt_suivant_Click()
 
    If IsNull(Me.zt_année) = True Then
        MsgBox "Remplir l'année de cessions !", vbCritical
        'Verifier que ce qui à été rempli est une année
 
    Else
        DoCmd.Close acForm, Me.Name
        DoCmd.OpenForm "F_ImportMatTaux"
        If Nz(Me.zt_année, 0) < 2010 Then
              Call MsgBox("Attention, l'annee doit au moins etre 2010. Vous ne pourrez pas passer a un autre champ tant que ce ne sera pas le cas.", vbExclamation)
               Me.zt_année.SetFocus 'Ramene le curseur sur le champ Annee
        End If
    End If
 
End Sub

[marot_r]

Bonjour.

Pourquoi ?

Code :

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

1
2
 DoCmd.Close acForm, Me.Name 'Ferme le formulaire courrant
 DoCmd.OpenForm "F_ImportMatTaux" 'Ouvre un autre formulaire ?

A+