Passage d'une étiquette à l'autreRésolu

Question

Bonjour tout le monde,

j'ai un problème avec ma base de donnée. J'ai créé dans un formulaire un tableau pour afficher le nom des produits. Mais cette collonne contient 50 étiquettes différente l'une en dessous de l'autre! Maintenant pour remplir les étiquettes j'aimerais faire une boucle pour passer d'une étiquette à l'autre. Comment peut on faire cela ,sachant que le remplissage des étiquettes varient entre 10 et 50??

Merci ,

Spawn

jrivet · Accepted Answer

Alors test ce code: Dim Ctrl As Object For Each Ctrl In Me.Controls If TypeOf Ctrl Is TextBox Then If UCase(Mid(Ctrl.Name, 1, 3)) = "TXT" Then Ctrl.Value = rs("REGISTER").Value rs.MoveNext End If End If Next Coloration syntaxique automatique [AFCK] Tu dois placer ce code directement dans la Feuille ou il y a les 50 TextBox. Ajoute un bouton par exemple et place ce code dans l'événement Click Normalement cela devrait fonctionner. Pour commencer si cela ne marche pas essaie de remplacer rs("REGISTER").Value par une chaine de caractère quelconque @+, Julien Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

jrivet · Answer

Mais on t'a déjà expliquer comment Faire.

Mais ressayons.

Quel est ton langage

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

Je n 'arrive toujours pas , désolé . J'utilise le visual basic dans access.

jrivet · Answer

Access de quelle Année?

Je demande cela car tu marque Aujourd'hui .NET alors qu hier c'etait du VB6

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

jrivet · Answer

posté trop vite.

Mais il est vrai que les Groupe de controle sous VBA n'existant pas, la manière la plus simple proposée hier ne fonctionne pas.

Il faut donc essayer le For Each

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

Access 2000

jrivet · Answer

Code teste sous Access 2000

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

Alors le code se compile bien ,mais rien ne s'affiche. J'ai aussi testé avec "Bonjour" au lieu de rs("REGISTER").

jrivet · Answer

Comment s'appelle tes texteBox 

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

OneHacker · Answer

Préciser dans le titre si c'est du VB6 ou VB.Net !

Redman

Spawn3107 · Answer

Non , c bon ! J'ai compris!

En fait le code marche seulement avec zone de texte. Hors moi j'ai des étiquettes. Donc je pouvais encore essayer longtemps,lol.

Il y a t-il  un moyen pour faire fonctionner cela en étiquette? Peut-être remplacer le .value en .caption ?

jrivet · Answer

Il faut remplacer .Value  par .caption et Remplacer Is TextBox par Is Label

Peu etre faut il modifier aussi les "TXT" car je ne sais pas le nom commun a tes Labels

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

Ok , je vais essayer ca !

Merci beaucoup pour ton attention!!

a+

Spawn

jrivet · Answer

Y a pas de quoi pense simplement au Réponse acceptée quand ton problème sera résolu

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Passage d'une étiquette à l'autre

14 réponses

Votre réponse

Discussions similaires