Version imprimable
J'ai une table avec les colonnes suivante :
- n° personnel
- nom
- prénom
- profil
dans mon form, j'ai récupéré le profil (par ex : col1), je l'ai mis dans le textbox1.
maintenant, pour diminuer le nombre de manipulation, j'aimerais que le n° personnel correspondant au profil se mette dans mon textbox2 automatiquement.
quel est la ligne qui peut me permettre cela ?
pour l'instant j'ai un éventuel :
TextBox2.Text = Me.MonDataSet.MaTable.???...
quelqu'un a la soluce ?
Hello collaud,
Si tu utilises vb 2005 je crois que le plus simple serait de reprendre à partir de ton dataset (fenêtre source de données):
Tu sélectionnes ta table et tu choisis le mode Détail (clic sur flèche vers le bas). Tu fais glisser la table sur ton form avec ta souris.
VB étant très gentil ;) il te créé les textbox qui correspondent aux colonnes et une ToolBar pour naviguer dans tes lignes (avant, arrière, ajout, suppression...)
C'est la méthode la plus simple à mon goût, et tu peux à l'aide des TableAdapter filtrer les lignes.
bonne soirée et bonne prog !:D
salut,
j'utilise bien vb 2005 pardon...
Merci mais c'est pas ça que je cherche ! pask en fait j'ai plusieurs tables, des fois liées entre elles.
Là j'ai une collection de textbox et combobox que je dois remplir avant de cliquer sur un bouton ajouter, ce qui m'entrera une nouvelle ligne dans une autre table...
et pour simplifier la saisie, j'essaie de remplir le plus de champs possible automatiquement... et là j'ai justement un textbox qui contient mon 'profil', et j'aimerais utiliser cela pour remplir une autre textbox, celle du 'numéro personnel'...
je réexplique :
j'ai une textbox avec une valeur (champ 1 de ma table) et je veux que dans ma 2e textbox, la valeur correspondante se mette automatiquement (champ 2 de ma table)...
Personne ne voit le souci ?
deux champs dans une table, l'un est représenté dans un textbox et j'aimerais que l'autre s'affiche en conséquence dasn un 2e textbox...
Salut Collaud, :)
La solution en apparence semble simple et c'est peut-être pour cela que tu n'as pas de réponses. Pourquoi est-ce que un simple text2.txt=text1.txt ne marche pas ? :?
non...
dans mon TextBox1, j'ai une valeur : 'col1'... je le fait apparaître en récupérant le profil windows courant (My.User.Name), puis en disant : MaVariable = TextBox1.Text...
'col1', c'est un profil utilisateur... et lié à ce profil, j'ai un nom, un prénom et surtout un n° personnel (c'est d'ailleurs la clé primaire de ma table 'collaborateurs')...
et maintenant, j'aimerais mettre automatiquement dnas mon TextBox2 le n° personnel lié à mon profil...
car le profil change suivant qui utilise l'application !!
c'était en effet pas compliqué... mais quand on sait pas, c'est pas facile... forcément, merci quand même ! ;)Code:TextBox2.Text = CType(TextBox1.SelectedText, String)
et merci à :
http://plasserre.developpez.com/v6-6.htm
mais bon...j'ai pas encore fait tous les tests......
bien fait de me méfier...... c'est pas ça......
:cry:
bon, apparemment, je ne peux pas faire ce que je veux avec deux textbox's...
alors maintenant j'ai une listbox remplie par mon dataset avec mes profils... et quand je sélectionne une entité, le n° correspondant s'affiche dans ma textbox ! ça, ça roule !!
(je rappelle que j'ai une table avec notemment deux colonnes, 'profils' et 'num_personnel'...)
donc c'est ce que je voulais... ça devient pas mal (vous noterez mes progrès en prog :mrgreen: )Code:
2
3
4
seul truc qui coince encore, c'est que j'aimerais que la sélection soit automatique suivant le profil "connecté" !...ben oui, on est flemmard...
car je récupère le user windows et je le mets dans une variable... alors maintenant ma question : est-ce qu'on peut forcer une listbox pour sélectionner directement le bon profil ?...
C'est bon j'ai trouvé !
Juste que si je set la propriété 'Visible' sur 'false' à mon listbox, ben ça marche plus, il arrive pas à faire le 'FindStr' (la fonction que je cherchais tant...)
mais c'est bon comme ça je pense...
merci quand même !
Code:
2
3
4
5
6
7Dim profil_courant As Integer profil_courant = ListBox1.FindStringExact(CleanStr_majuscule) ListBox1.SetSelected(profil_courant, True) ListBox1.DisplayMember = "profil" ListBox1.ValueMember = "id_num_pers_elsa" TextBox2.Text = CType(ListBox1.SelectedValue, String)