Discussion :

[zizou2007]

Bonjour tout le monde.
J'ai 2 DataGridView (une maître "TblPersonnelDataGridView" et l'autre détail "TblCongésDataGridView" filtrée par une ComboBox "cboAnnée") :

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub frmCongés_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TblPersonnelDataGridView.DataSource = TblPersonnelBindingSource
        TblCongésDataGridView.DataSource = reltblPersonnelreqtblCongésBindingSource
        cboAnnée.DataSource = ReqtblCongésBindingSource
        cboAnnée.DisplayMember = "Année"
 
        Me.ReqtblCongésTableAdapter.Fill(Me.GRHDataSet1.reqtblCongés)
        Me.TblPersonnelTableAdapter.Fill(Me.GRHDataSet1.tblPersonnel)
    End Sub

Je filtre ma TblCongésDataGridView par la ComboBox :

Code :

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

1
2
3
Private Sub cboAnnée_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboAnnée.SelectedIndexChanged
        reltblPersonnelreqtblCongésBindingSource.Filter = "Année = '" & cboAnnée.Text & "'"
    End Sub

Le problème est que je n'arrive pas à mettre à jour la TblCongésDataGridView lorsque je modifie ses cellules et que je clique sur le bouton TblCongésBindingNavigatorSaveItem, puisque la relation ne possède pas d'événement Update! J'essaie donc de faire ceci :

Code :

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

1
2
3
4
5
6
Private Sub TblCongésBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblCongésBindingNavigatorSaveItem.Click
        Me.Validate()
        TblCongésBindingSource.EndEdit()
        Me.TblCongésTableAdapter.Update(Me.GRHDataSet1.tblCongés)
      '  GRHDataSet1.AcceptChanges()
End Sub

Mais ça marche pas.
J'attend votre aide s'il vous plaît.

[matrixdine]

ajouter mon ami cette ligne de code

Code :

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

1
2
 'TODO : cette ligne de code charge les données dans la table 'DatabaseDataSet.matable'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
                    Form.matableTableAdapter.Fill(Form.Database1DataSet1.matable)

matable c'est la table qui remplit datagridview

[zizou2007]

Merci pour ta réponse Matrixdine, mais malheureusement ça marche pas.
le problème est que les données que je fais entrer ne s'enregistrent peut être pas dans la base de donnée Access.

[olsimare]

Bonjour.

As-tu un commandbuilder sur l'adapter ?

Cdt.

[zizou2007]

olsimare
Bonjour.

As-tu un commandbuilder sur l'adapter ?

Cdt.

A vrai dire, je suis débutant et j'ai pas compris la question.
Mais j'ai utilisé le concepteur si c'est de ça que vous parlez.

[olsimare]

bonjour.

Non pas vraiment, je parlais d'un truc du style :

Code :

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

1
2
3
4
5
6
7
8
Private Sub TblCongésBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblCongésBindingNavigatorSaveItem.Click
        Me.Validate()
        TblCongésBindingSource.EndEdit()
        Dim cmdBuilder As New OleDbCommandBuilder(Me.TblCongésTableAdapter)
         Me.TblCongésTableAdapter.Update(Me.GRHDataSet1.tblCongés)
      '  GRHDataSet1.AcceptChanges()
End Sub

Cdt.