[RESOLU] problème de focus sur une textbox

[mysterauto]

Bonjour à tous, j'ai un petit problème:
je suis en train de créer un petit programme de gestion de magasin par code barre; pour l'instant, je navigue entre 3 userform ( gestion, OutilsSortis et accueil) ceci grâce à des codes barres pour passer de l'une à l'autre

la première apparition des 3 userform ne pose pas de problème mais à la deuxième apparition, j'ai beau mettre le focus par une instruction, le textbox n' a pas de curseur clignotant et le programme ne peut continuer saufà faire un clic sur le userform ce que je ne veut pas.

en gros les lignes de code de la textbox:

Private Sub TextBox1_Change()


If gestion.TextBox1.Text = "3020000000005" Then gestion.Hide: OutilsSortis.Show 0: gestion.TextBox1.Value = "": TextBox1.SetFocus
If gestion.TextBox1.Text = "3040000000003" Then gestion.TextBox1.Value = "": accueil.TextBox1.SetFocus: gestion.Hide: accueil.Show 0:

End Sub

vous avez surement des idées mais je ne suis qu'un codeur très occasionnel, faites preuve de patience. merci d'avance

 

[laetitia90]

bonjour mysterauto

comme cela pas simple a voir le pb...

mettre ton fichier sans données confi... avec quelques explications

 

[mysterauto]

voilà, vous pouvez télécharger le fichier et voir le résultat.
quand je passe de accueil à gestion, pas de problème
que je passe de gestion à accueil, pas de problème
mais si je veux repasser en gestion, le userform accueil n'a plus le focus et le lecteur de code barre ne peut plus envoyer les caractères vers la textbox1. si on clique sur la text box, le focus revient mais une seule fois; il faut recommencer à chaque changement de userform.

ce prg est prévu pour fonctionner avec un lecteur de code barre mais vous pouvez taper les chiffres au clavier, ça marche aussi

merci à tous

 

[herve62]

Bonjour
Quel dilemme ! jouer entre USF n'est pas simple le mode Modal intervient donc moi je mets le principal à True et les autres à false le mettre dans les propriétés de l'USF, comme ça pas besoin de vérifier dans VBA
ensuite tu ajustes les ordres de tabulation des objets , là je t'ai mis TEXTBOX en tête dans tous les USF donc le focus va se mettre automatiquement
aussi par précaution avec utilisation de plusieurs USF sans données communes > faire UNLOAD au lieu de hide cela fait une RAZ et permet aussi de réinitialiser si besoin est, là ce n'est pas le cas
enfin le me.repaint rien à faire ici d'après ce que j'ai lu c'est plutôt Access
Remet tes codes car pour tester j'ai changé ( c'était trop long et risque d'erreur)
J'ai testé toutes les possibilités x fois ça marche bien

 

[Si...]

Bon_soir

Bonjour
Quel dilemme ! jouer entre USF n'est pas simple ..

mais si ..., trop d'infos et on se noie.
Les 3 contrôles "TextBox" ayant leur propriété TabIndx à 0 (Cf)

Accueil

Private Sub TextBox1_Change()
  If TextBox1 = 3020000000005 Then Unload Me: OutilsSortis.Show
  If TextBox1 = 3030000000004 Then Unload Me: gestion.Show
End Sub

gestion

Private Sub TextBox1_Change()
  If TextBox1 = 3020000000005 Then Unload Me: OutilsSortis.Show
  If TextBox1 = 3030000000004 Then Unload Me: accueil.Show
End Sub

Outils

Private Sub TextBox1_Change()
  If TextBox1 = 3040000000003 Then Unload Me: gestion.Show
  If TextBox1 = 3030000000004 Then Unload Me: accueil.Show
End Sub

 

[mysterauto]

un très grand merci, c’était pas trop compliqué mais je n'y arrivait pas; j'avais pensé à fermer le usf mais je n'avais pas trouvé la bonne formule.

d'ailleurs, il n'est pas proposé dans la liste déroulante quand on écrit du code???
repaint était un restant de test dans mes nombreuses tentatives de codage

j'ai voulu mettre les textbox en non visible car j'en ai juste besoin pour relever les codes mais ça ne marchait plus, j'ai donc mis un label pardessus, ce n'est pas très propre comme méthode mais ça fonctionne, aurais tu une meilleure piste?

un grand merci en tout cas pour ce coup de main; je vais pouvoir continuer à travailler sur ce programme

 

[laetitia90]

re , ,hervé

seulement pour saluer l'ami SI pas croiser depuis un moment

 

[herve62]

Bonjour tous

mais si ..., trop d'infos et on se noie.

Si t'avais vu mon appli vers 2011/12 , 4 usf avec transmissions de données même avec les Barba on y a passé du temps !
Sinon Mysterauto je vois pas bien ce que tu veux masquer ? la textbox ? tu vas dans ses propriétes et tu mets Visible=false ou ausi dans USF Initialize et si ta douchette attaque direct ta sub change ( j'avais utilisé au boulot mais il y a plus d e10ans !!) tu remets avec le code à visible= true

 

[mysterauto]

merci oui je ne veux pas voir la textbox qui ne sert à rien qu'à collecter les données de la douchette. mais à priori, si je mets la textbox.visible=false, la sub ne voit pas les données issues de la douchette donc pas de renvoi possible vers un autre usf.

 

[Si...]

Bon_jour

Bonjour tous
Si t'avais vu mon appli vers 2011/12 , 4 usf avec transmissions de données même avec les Barba on y a passé du temps !

Je ne l'ai pas vue donc, bien que ni BarbaTruc, ni BarbaChose … je ne peux pas infirmer mon propos .

On peut rendre des contrôles non visibles en jouant sur leurs propriétés (sans macro) comme je l'ai fait dans l'exemple.

Nota : n'ayant pas de douchette, je ne me suis pas préoccupé des initialisations des zones sensibles.

@Léti : content de te saluer et au plaisir d'autres rencontres !

 

[herve62]

On peut rendre des contrôles non visibles en jouant sur leurs propriétés (sans macro) comme je l'ai fait dans l'exemple.

et qu'est ce que j'ai écrit avant ??

la textbox ? tu vas dans ses propriétes et tu mets Visible=false

Ensuite il y a voir et voir ?? transparent = visible...

 

[mysterauto]

merci pour cette autre possibilité - merci à vous deux pour ses solutions bien expliquées et fonctionnelles - si j'y arrive, je passe en résolu car s'est effectivement résolu

 

[mysterauto]

oui je sais je suis une quiche, comment on fait pour pour passer en résolu?

 

[herve62]

Bonjour
Heureux que tu soit satisfaite : Sinon tu vas dans ton 1 er post sans editer , en haut à droiteil il y a outils
dedans il y modifier le titre

 

[Si...]

Re

Un merci est amplement suffisant donc pour le "résolu" on peut (doit pour moi) s'en abstenir ; la preuve :

hervé62, as-tu la liste de toutes les propriétés sous les yeux car, après la remarque de mysterauto, j'ai écarté justement celle que tu cites tout en initialisant d'autres (cf. image du fichier joint).

Maintenant je ne sais pas comment les nombres sont installés dans leur zone et ne vois pas l'utilité de lire des données chiffrées qui ne me parlent pas donc j'ai fait l'impasse sur cela (et tout le reste qui n'est pas présenté mais qui semble ne pas poser de soucis, nest-ce pas mysterauto).