Discussion :

[azzouz_soui]

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 :

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

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

[azzouz_soui]

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.

[Delbeke]

Je ne connais pas bien le datagrid.
dans cette ligne

Code :

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

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 :

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

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.

[ProgElecT]

J'avoue que courageusement, j'ai attendus que quelqu'un se lance dans une réponse (salut Delbeke ), 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 :

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

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

[ThierryAIM]

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

[azzouz_soui]

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