Discussion :

[rcarlyp]

Bonjour,
J'ai un formulaire access dans lequel l'utilisateur doit entrer un numero de 0 à 9 , j'aimerais à chaque numero taper, qu'access masque et affiche le trait suivant.

DANS LA PREMIERE IMAGE JE VOUS MONTRE COMMENT MON FORMULAIRE S'AFFICHE LORQUE L'UTILISATEUR EST EN TRAIN DE TAPER LES NUMERO ET DANS LA DEUXIEME IMAGE JE VOUS MONTRAV COMMENT MES 10 TRAIS VERTICAUX DONT DISPOSES.

[loufab]

Bonjour,

Il vous faut utiliser l'évènement "Sur touche relachée"

Créer une variable pour un compteur global.
Dans l'évènement traiter les cas possible :
1) les caractères qui peuvent composer le code (0-9)
2) les touches pour annuler la saisie (Esc ?), Retour Arrière ...

Pour le cas 1 on incrémente le compteur global,
Dans le cas 2 on décrémente ou on met le compteur à 0

Enfin, d'après le compteur on met les traits visible true ou False.
On peut faire avancer ou reculer un trait en utilisant la propriété Left.

Cordialement,

[rcarlyp]

Merci pour votre REPONSE, pourriez-vous me montrer un expemple de code pour les deux cas? Merci

[loufab]

Pour faire avancer ou reculer un trait :

Code :

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

me.trait1.left = valeur

Utiliser la valeur Left de vos traits existants. Le tout dans un tableau devrait faire l'affaire.

Pour le traitement je n'ai aucun exemple précis cependant j'ai fait un article sur mon blog pour piloter une liste déroulante. L'interception des touches pressées est le très proche.

Tri d'une liste déroulante

A adapter.

[rcarlyp]

J'ai utilisé le code :

Code :

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

1
2
3
me.trait158.visible=false
me.trait176.visible=true
....

Mais cela ne fait afficher un seul trait alors que moi je voudrait a chaque fois qu'on entre un chiffre et que le trait qui s'affichait dispparait et un autre trait s'affiche. en gros mon champ attent 10 caractere et pour chaque caractere j'ai un trait, quand je tape le premier caractere un trait s'affiche, quand je tape le deuxieme caractere le trait qui s'affichait dispparait et un autre trait s'affiche. COMMENT ARRANGER MON CODE POUR QUE L'EVENEMENT SE PASSE COMME CELA.

[loufab]

Cette propriété Visible est facile à comprendre, Quand elle est à True c'est que l'élément est visible, quand il est à False il est invisible.

Le F1 sur la propriété (dans la liste des propriétés de l'élément) permet de voir ce que cela fait et comment on doit l'employer.

Donc ne pas utiliser de False lorsqu'on avance dans la saisie. Aussi simple que ça.

[rcarlyp]

J'ai utilisé sur touche appuyer

Code :

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

me.trait178.left = 5.0555

Mais au lieu que le trait s'avance, le trait dispparait, auriez vous une suggestion de code pour me permettre de FAIRE AVANCER UN TRAIT VERS LA DROITE A CHAQUE FOIS QUE JE TAPE UN CARACTERE? MERCI

[loufab]

Le mesure left, top ... sont exprimées en Twips :
https://learn.microsoft.com/en-us/of...ess.label.left

Le Twip :
https://learn.microsoft.com/en-us/of...-glossary#twip

0.01 cm = 5.6692913386 twips

Vous indiquez 5.05555 en twip depuis une mesure en cm, vous mettez votre ligne sur le bord gauche du formulaire.

Faites la conversion et mettez les valeurs en constante ou créer une petite fonction pour cela.

Le code devrait ressembler à cela.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Age_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Me.Age.Left = cm2twip(6.817)  'où 6.817 est "6,817cm" dans la propriété left
End Sub
 
Function cm2twip(inCm As Double) As Double
     cm2twip = inCm * 566.92913386
End Function

MERCI DE TENIR COMPTE DES MESSAGES DE MODERATION QUE VOUS RECEVEZ.
Balises de code obligatoire et pas d'utilisation du bouton "Répondre avec citation" sans motif valable.

[tee_grandbois]

bonjour,

Mais cela ne fait afficher un seul trait alors que moi je voudrait a chaque fois qu'on entre un chiffre et que le trait qui s'affichait dispparait et un autre trait s'affiche. en gros mon champ attent 10 caractere et pour chaque caractere j'ai un trait, quand je tape le premier caractere un trait s'affiche, quand je tape le deuxieme caractere le trait qui s'affichait dispparait et un autre trait s'affiche. COMMENT ARRANGER MON CODE POUR QUE L'EVENEMENT SE PASSE COMME CELA.

je me permet de demander: l'utilisateur final a t-il vraiment besoin de cela pour saisir un numéro de compte ?
Sachant qu'un masque de saisie fait pratiquement la même chose:

[rcarlyp]

Je voudrais ecrire mon code de cette maniere la:
if me.entrer__numerocompte= 2 then
Me.trait1776.visible = false
Me.trait177.visible = true

Je voudrais dire si dans le champ "NUMERIO DE COMPTE" un numero de compte de deux caracteres est saisie LE TRAIT 177 DOIT S'AFFICHER , COMMENT ECRIRE MON CODE POUR QUE LEVENEMENT SE PASSE COMME CA?

[rcarlyp]

Le mesure left, top ... sont exprimées en Twips :
https://learn.microsoft.com/en-us/of...ess.label.left

Le Twip :
https://learn.microsoft.com/en-us/of...-glossary#twip

0.01 cm = 5.6692913386 twips

Vous indiquez 5.05555 en twip depuis une mesure en cm, vous mettez votre ligne sur le bord gauche du formulaire.

Faites la conversion et mettez les valeurs en constante ou créer une petite fonction pour cela.

Le code devrait ressembler à cela.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Age_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Me.Age.Left = cm2twip(6.817)  'où 6.817 est "6,817cm" dans la propriété left
End Sub
 
Function cm2twip(inCm As Double) As Double
     cm2twip = inCm * 566.92913386
End Function

MERCI DE TENIR COMPTE DES MESSAGES DE MODERATION QUE VOUS RECEVEZ.
Balises de code obligatoire et pas d'utilisation du bouton "Répondre avec citation" sans motif valable.

BONJOUR,
J'AI ECRIT MON CODE COMME SUIT MAIS CELA NE FONCTIONNENT PAS.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Entrer___compte_KeyPress(KeyAscii As Integer, Shift As Integer, X As Single, Y As Single)
Me.Trait158.Visible = False
Me.Trait176.Left = cm2twip(284)
Function cm2twip(incm As Double) As Double
cm2twip = incm * 566.9291
End Function
End Sub

[loufab]

VBA ne prend pas en charge les fonctions encapsulées.

Comme ce ci ça marchera mieux.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Entrer___compte_KeyPress(KeyAscii As Integer, Shift As Integer, X As Single, Y As Single)
Me.Trait158.Visible = False
Me.Trait176.Left = cm2twip(284)
End Sub
 
Function cm2twip(incm As Double) As Double
cm2twip = incm * 566.9291
End Function

[rcarlyp]

Je voudrais ecrire mon code de cette maniere la:
if me.entrer__numerocompte= 2 then
Me.trait1776.visible = false
Me.trait177.visible = true

Je voudrais dire si dans le champ "NUMERIO DE COMPTE" un numero de compte de deux caracteres est saisie LE TRAIT 177 DOIT S'AFFICHER , COMMENT ECRIRE MON CODE POUR QUE LEVENEMENT SE PASSE COMME CA?

COMMENT ECRIRE UN CODE POUR CE CAS DE FIGURE?

[rcarlyp]

VBA ne prend pas en charge les fonctions encapsulées.

Comme ce ci ça marchera mieux.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Entrer___compte_KeyPress(KeyAscii As Integer, Shift As Integer, X As Single, Y As Single)
Me.Trait158.Visible = False
Me.Trait176.Left = cm2twip(284)
End Sub
 
Function cm2twip(incm As Double) As Double
cm2twip = incm * 566.9291
End Function

JE VAIS ESSAYER COMME CA POUR VOIR CE QUE CA VA DONNER!

[rcarlyp]

Bonjour à tous, mon code fonctionne parfaitement maintenant, merci pour vos messages!