Bonjour à toutes et tous.
Débutant, donc béotien de service, dans une base de données ACCESS existante,
dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
"Valide si",
j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
[A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
Merci de vos lumières.
Bonjour à toutes et tous.
Débutant, donc béotien de service, dans une base de données ACCESS existante,
dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
"Valide si",
j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
[A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
Merci de vos lumières.
Bonjour à toutes et tous.
Débutant, donc béotien de service, dans une base de données ACCESS existante,
dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
"Valide si",
j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
[A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonjour à toutes et tous.
Débutant, donc béotien de service, dans une base de données ACCESS
existante,
dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
"Valide si",
j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
qu'avec des majuscules, et renverraient à l'utilisateur un "message si
faux".
Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
[A-Z] me renvoient mon message d'erreur autant en minuscules qu'en
majuscules.
Merci de vos lumières.
Bonjour à toutes et tous.
Débutant, donc béotien de service, dans une base de données ACCESS
existante,
dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
"Valide si",
j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
qu'avec des majuscules, et renverraient à l'utilisateur un "message si
faux".
Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
[A-Z] me renvoient mon message d'erreur autant en minuscules qu'en
majuscules.
Merci de vos lumières.
Bonjour à toutes et tous.
Débutant, donc béotien de service, dans une base de données ACCESS
existante,
dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
"Valide si",
j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
qu'avec des majuscules, et renverraient à l'utilisateur un "message si
faux".
Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
[A-Z] me renvoient mon message d'erreur autant en minuscules qu'en
majuscules.
Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir Georges JOP,
tu peux forcer la saisie en majuscule.
Exemple :
Pour une zone de texte appelée Texte1
- Activer l'événement Sur touche activée de la zone de texte
- Cliquer sur le bouton ... pour accèder au code VBA
- Ecrire le code
Private Sub Texte1_KeyPress(KeyAscii As Integer)
If KeyAscii> AND KeyAscii<2 Then Keyascii=KeyAscii-32
End sub
a chaque fois qu'une lettre a-z est tapée c'est sa majuscule qui s'affiche.
"Georges JOP" a écrit :
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en majuscules.
> Merci de vos lumières.
Bonsoir
Je te joins une fonction qui transforme la saisie minuscule en MAJUSCULE
que tu inseres dans la propriete AMaj du champ dans un formulaire
Function ConvMaj()
'*** screen.activecontrol désigne le contrôle actif au moment
'*** de l'appel de la fonction
Dim chaine
chaine = UCase(Screen.ActiveControl)
If IsNull(chaine) Or chaine = "" Then Exit Function
Screen.ActiveControl = chaine
End Function
..Si tu es preneur, j'ai aussi une fonction pour l'adresse qui met la
premiere en majuscule
Guy
"Georges JOP" <Georges a écrit dans le
message de news:
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS
> existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si
> faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en
> majuscules.
> Merci de vos lumières.
>
Bonsoir
Je te joins une fonction qui transforme la saisie minuscule en MAJUSCULE
que tu inseres dans la propriete AMaj du champ dans un formulaire
Function ConvMaj()
'*** screen.activecontrol désigne le contrôle actif au moment
'*** de l'appel de la fonction
Dim chaine
chaine = UCase(Screen.ActiveControl)
If IsNull(chaine) Or chaine = "" Then Exit Function
Screen.ActiveControl = chaine
End Function
..Si tu es preneur, j'ai aussi une fonction pour l'adresse qui met la
premiere en majuscule
Guy
"Georges JOP" <Georges JOP@discussions.microsoft.com> a écrit dans le
message de news: 49F594F9-4098-4576-B077-717455D0E539@microsoft.com...
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS
> existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si
> faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en
> majuscules.
> Merci de vos lumières.
>
Bonsoir
Je te joins une fonction qui transforme la saisie minuscule en MAJUSCULE
que tu inseres dans la propriete AMaj du champ dans un formulaire
Function ConvMaj()
'*** screen.activecontrol désigne le contrôle actif au moment
'*** de l'appel de la fonction
Dim chaine
chaine = UCase(Screen.ActiveControl)
If IsNull(chaine) Or chaine = "" Then Exit Function
Screen.ActiveControl = chaine
End Function
..Si tu es preneur, j'ai aussi une fonction pour l'adresse qui met la
premiere en majuscule
Guy
"Georges JOP" <Georges a écrit dans le
message de news:
> Bonjour à toutes et tous.
> Débutant, donc béotien de service, dans une base de données ACCESS
> existante,
> dans la feuille "Propriétés" de zone de texte d'un formulaire, à la ligne
> "Valide si",
> j'essaye vainement de formulerles arguments qui n'autoriseraient la saisie
> qu'avec des majuscules, et renverraient à l'utilisateur un "message si
> faux".
> Certains essais qu'Access ne m'a pas refusé comme (peut-être) : [nom] like
> [A-Z] me renvoient mon message d'erreur autant en minuscules qu'en
> majuscules.
> Merci de vos lumières.
>