Discussion :

[D4rkTiger]

Voilà j'ai un petit souci. Dans mon formulaire de choix de concours je permet l'ajout la suppression et la modification. Seulement pour Modifier le concours, j'utilise une fenêtre spécifique appelée après un clic sur le bouton Modifier.

Voici les fenêtres :

Fenêtre Principale



Fenêtre "Modifier Concours"



Lorsque je selectionne un concours dans le DataGridView de la fenêtre Principale je cliques ensuite sur "Modifier". Voici le code qui s'exécute alors :

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
20
21
Private Sub btnPremModifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPremModifier.Click
        Dim ModifPremConcours As New ModifConcours

        'Détermination du Choix de Concours Selectionné dans le DataGridView
        Dim ChoixConcoursSelect As New OleDbCommand("SELECT Concours FROM Concours, ecole WHERE sigle='" & Me.DataListePremConcoursEleve.Rows(Me.DataListePremConcoursEleve.SelectedRows.Item(0).Index).Cells(2).Value & "' AND Concours.Code = ecole.CodeConcours", OConnexion)
        Try
            OConnexion.Open()
            ModifPremConcours.txtChoixConcours.Text = ChoixConcoursSelect.ExecuteScalar
        Catch ex As Exception
            MessageBox.Show("La Modification ne peut s'effectuée, elle va maintenant se terminée" & Chr(13) & "L'Administrateur va être prévenu de cette erreur", "Erreur Modification Concours", MessageBoxButtons.OK, MessageBoxIcon.Error)
            ErreurLog(ChoixConcoursSelect.CommandText & Chr(13) & ex.ToString)
            Exit Sub
        Finally
            OConnexion.Close()
        End Try
        'Détermination du Choix d'Ecole Selectionnée dans le DataGridView
        ModifPremConcours.cboLstConcours.Text = Me.DataListePremConcoursEleve.Rows(Me.DataListePremConcoursEleve.SelectedRows.Item(0).Index).Cells(2).Value

        ModifConcours.ShowDialog()
    End Sub

Le Problème est comme vous pouvez le voir sur la fenêtre "Modifier Concours" , les données du Concours ne sont pas transférées de la première fenêtre à la deuxième.

Donc si quelqu'un pouvait m'aider

Merci d'avance

[D4rkTiger]

J'ai résolu mon Problème en faisant des Vérifications de mes variables.

En fait lorsque l'on affecte des valeurs à une Fenêtre Externe (qui sera créée après par un Show() ou ShowDialog()) il ne faut apparemment pas mettre l'affectation de la valeur au contrôle dans un Try, Catch, Finally.

J'ai en effet enlever le Try Catch Finally et l'affectation à fonctionner comme vous pouvez le voir.

(PS: J'ai remodifier mes variables également )

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
Dim Modification As New ModifConcours
        'Détermination du Concours de l'Ecole Selectionnée
        Dim ConcoursChx As New OleDbCommand("SELECT Concours FROM concours, ecole WHERE sigle='" & Me.DataListePremConcoursEleve.Rows(Me.DataListePremConcoursEleve.SelectedRows.Item(0).Index).Cells(2).Value & "' AND concours.code = ecole.codeConcours", OConnexion)

        'Reset de la Connexion pour éviter un conflit
        OConnexion.ResetState()
        'Ouverture de la Connexion
        OConnexion.Open()
        'Indication du Concours de l'Ecole Selectionnée pour la Modification
        Modification.txtChoixConcours.Text = ConcoursChx.ExecuteScalar
        'Fermeture de la Connexion
        OConnexion.Close()

        'Indication de l'Ecole Selectionnée pour la Modification
        Modification.txtChoixEcoleConcours.Text = Me.DataListePremConcoursEleve.Rows(Me.DataListePremConcoursEleve.SelectedRows.Item(0).Index).Cells(2).Value
        Modification.ShowDialog()

Donc Voilà j'ai pas mal galèré pour un simple Try catch dont je ne comprend pas le refus d'affecter la valeur puisque j'ai vérifié le contenu de chaque contrôle avant et après affectation, et le contenu changeait (dans le code) mais pas dans le design.

( BIZARRE NON !)