Discussion :

[kyoshinri]

Bonjour tout le monde,

Dans le cadre de mon stage en entreprise, je dois faire la chose suivante :

J'ai un formulaire avec deux onglets :

• Un onglet dans lequel j'ai un DGV contenant la liste des articles.
• Un onglet dans lequel j'ai un DGV contenant la liste des ensembles.

Un ensemble est composé de plusieurs articles (exemple : un ordinateur comprenant plusieurs composants).

Mon problème est le suivant : lorsque je me trouve dans l'onglet "ensemble" et que j’essaie d'ajouter des articles à mon ensemble j'obtiens le message suivant : "le formulaire est déjà en cours d'utilisation".

Avez vous une idée de comment je peux ouvrir une deuxième fois mon formulaire pour ajouter des articles à mon ensemble ?
je vous mets un extrait de mon code servant à l'ouverture de mon formulaire :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 Private Sub btn_dev_art_aj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_dev_art_aj.Click
        'Réinitialisation de la variable
        Droit = False
        'Réinitialisation de la variable
        Level = Form_Accueil.lbl_acc_priv_lib.Text
        'Instancier un objet Commande
        Obj_Command = New OleDbCommand()
        'initialiser l'objet Command
        Obj_Command.Connection = laConnection
        Obj_Command.CommandText = "SELECT cb_gestion_articles_aff FROM ADMINISTRATION WHERE ADMIN_NOM='" + Level + "'"
 
        Obj_Reader = Obj_Command.ExecuteReader()
 
        While Obj_Reader.Read()
 
            Droit = Obj_Reader.GetBoolean(0)
 
        End While
 
        If Droit = True Then
 
            Form_Articles_List.tbx_art_elab.Text = "Ensemble"
            Form_Articles_List.lbl_art_elab.Visible = True
            Form_Articles_List.tbx_art_elab.Visible = True
            Form_Articles_List.ShowDialog()
        Else
            Dim result = MessageBox.Show("Désolé, vous ne disposez pas des privilèges nécessaires à l'ouverture de ce formulaire.", "CORTEX GESTION - Restriction de sécurité", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        ' If allowUser("Article", "Articles_List", "Afficher", "") Then
        ' fm_art_list.tbx_art_elab.Text = "Ensemble"
        ' fm_art_list.ShowDialog()
        'End If
        'dgv_ens_RowsAdded()
    End Sub

Si quelqu'un a une idée ça m'aiderait beaucoup.
Merci à tous.

[Pol63]

normalement on devrait pas pouvoir écrire ce que tu as écrit, vb l'autorise mais ca amène plus de confusion qu'autre chose
à savoir utiliser le nom d'une classe de type form comme variable

il faudrait écrire

Code :

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

1
2
dim f as new Form_Articles_List
f.show

et là on peut en ouvrir autant qu'on veut


par contre des choses comme

Code :

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

Level = Form_Accueil.lbl_acc_priv_lib.Text

ne devrait pas être autorisées non plus, si tu as 2 fenetre de ce type d'ouvertes à un instant T tu as 50% de ne pas cibler la bonne
là aussi il faut utiliser une variable de type Form_Accueil, si c'est une autre fenetre il faut là passer en paramètre au constructeur par exemple et la stocker dans une variable de classe

[kyoshinri]

Merci pour la réponse qui m'a permis de me débloquer.