Discussion :

[BCBFIS]

Bonjour à tous.
Dans un formulaires j'ai fait en sorte, sans passer par le masque de saisie du champ, que le champ "Nom du pays" n'accepte que les majuscules; dans le cas où l'on introduirait tout autre caractère, il y a un petit message d'avertissement, mais je ne parviens pas à finaliser le retour du curseur à son emplacement initial. J'ai apparemment un problème avec la longueur de l'encodage du champ qui reste désespérément "Null".
Voici ce que j'ai introduit:

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
17
 
'Limiter le nom du Pays à des MAJUSCULES - retour du curseur au dernier emplacement'
Private Sub Pays_Nom_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim Selstart As Integer
  Dim LongCh As Long
  LongCh = "0"
 If KeyCode >= 65 And KeyCode <= 90 Then
     LongCh = Nz(Len(Me.Pays_Nom))
     MsgBox "Longueur1 =" & LongCh
     Exit Sub
  Else
     Beep
     MsgBox "Seules des lettres MAJUSCULES sont admises !"
     MsgBox "Longueur2 =" & LongCh
     Selstart = LongCh - 1
  End If
End Sub

J'ai placé des MsgBox 1 et 2 pour vérifier la valeur de la longueur des champs complétés.
Je joins également la BDD.
Merci d'avance pour votre aide.

[hyperion13]

Saut
Pourquoi faire simple, quand on peut faire compliquer !
Micniv, que je salue, vous a fourni une fonction. Il suffit tout simplement d'ajouter la fonction UCase() en Ligne 13.

Avec votre sub() les utilisateurs de votre bdd risqueraient de se comporter comme sur cette vidéo

.
Autre problème ; en l'état avec votre sub() comment fait-on pour écrire Nouvelle-Calédonie avec vos KeyCode() compris entre 65 et 90 ? On ne peut pas saisir le tiret du 6 !

Selon vous Bénin en majuscule c'est plus tôt BENIN ou plus tôt BÉNIN ?

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
Public Function ChaineSansAccent(ByVal s As String) As String
' 2010-05-01    Helas, MN
'               Exemple : Ucase(ChaineSansAccent("il était l'affût à Foïx ùune fois"))
 
 
    Dim s1 As String, s2 As String, i As Long
 
    s1 = " àâáãäåéèêëïîìíöôðòóüûùúñçÿÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜ"
    s2 = " aaaaaaeeeeiiiiooooouuuuncyAAAAAAEEEEIIIIOOOOOUUUU"
    For i = 1 To Len(s1)
        s = Replace(s, Mid$(s1, i, 1), Mid$(s2, i, 1))
    Next i
    ChaineSansAccent = UCase(s)
 
End Function

[BCBFIS]

Merci hyperion13 pour votre réponse. Néanmoins, la solution de Micniv n'empêche pas la saisie de caractères autres que les lettres alphabétiques tels que les chiffres, l'espacement, et autres ($, *, ¨, ^, §, (, ), &, etc...).

[hyperion13]

Amusez-vous.

[BCBFIS]

Merci Hyperion13. Je réfléchis encore à ce que je vais faire. Toutefois, je considère le problème comme résolu.