chargement textbox à partir datagrid

bonjour à tous.
je visualise une table sous acces dans un datagrid,ce que je veux en cliquant sur un enregistrement de datagrid les informations correspondantes s'affichent dans des texbox correspondants.
voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If Text2.Visible = False Then Text2.Text = DataGrid1.Text Text2.Visible = True Else Text2.Text = Text2.Text & vbCrLf & DataGrid1.Text Text2.SelStart = Len(Text2) End If Do While Not rs.EOF If Trim(rs!nom = Text2.Text) Then afficher Text2.Visible = True Text2 = rs!nom Exit Sub End If rs.MoveNext Loop   End Sub

---

MERCI D'AVANCE

bonsoir,
personne n'a pu me repondre,peut etre j'etais clair dans ma question.
je joints une piece jointe contenant les texbox et datagrid
salutations.

Je ne connais pas bien le datagrid.
dans cette ligne

Code:

---

Text2.Text = Text2.Text & vbCrLf & DataGrid1.Text

---

que contient DataGrid1.Text ? Est-ce même une propriété existante ?
A chaque dois que tu vas sélectionner une cellule, tu ajoutes ce DataGrid1.Text dans text2? pourquoi ?
ensuite tu ecris

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Do While Not rs.EOF If Trim(rs!nom = Text2.Text) Then afficher Text2.Visible = True Text2 = rs!nom Exit Sub End If rs.MoveNext Loop End Sub

---

c'est quoi cette table rs ? que contient elle ?
que fait afficher ?


En fait je te vois mal parti avec cette méthode.
Comme lorsqu'on sélectionne un enregistrement dans un datagrid, le recordset sous-jacent est mis à jour, et declenche un événement reposition. dans cet évenement tu affiches le contenu du recordset courant, çà devrais suffire.

J'avoue que courageusement, j'ai attendus que quelqu'un se lance dans une réponse (salut Delbeke :lol:), car je ne comprenais pas ou tu voulais en venir avec le code proposé.

A la vue de l'image que tu as fournis, ne serait-ce pas sa que tu recherches a obtenir.

Code:

---

1 2 3 4 5 6 7

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) TextNom = DataGrid1.Columns(0).Text TextPrenom = DataGrid1.Columns(1).Text TextDateNaissance.Text = DataGrid1.Columns(2).Text TextTelephon.Text = DataGrid1.Columns(3).Text '...etc .... End Sub

---

tout simplement lier les textboxs au recordset associé à la DataGrid, avec leurs propriétés DataSource et DataField !

bonsoir
merci beaucoup.
je remercie tous qui m'ont repondu,j'ai pu termine mon application.
encore je vous remercie infiniment.