bonsoir a tous
monsouci c'est que je veux afficher les menus d'un mdi selon le type d'utilisateur j'ai fait ça
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
 
con.Open()
            Dim cmd As OdbcCommand
            cmd = New OdbcCommand("select * from utilisateur where login_user=? and mot_passe_user=?", con)
            cmd.Parameters.AddWithValue("login_user", login.Text)
            cmd.Parameters.AddWithValue("mot_passe_user", mot_de_passe.Text)
            cmd.Connection = con
            Dim rs As OdbcDataReader
            rs = cmd.ExecuteReader()
            If rs.Read() Then
                MessageBox.Show("vous etes connectez mr   " & rs.GetString(4))
                'If rs.GetString(2) = "a" Then
                '    Me.MdiParent.Menu.MenuItems(1).Visible = True
                '    Me.MdiParent.Menu.MenuItems(2).Visible = True
                '    Me.MdiParent.Menu.MenuItems(3).Visible = True
                '    Me.MdiParent.Menu.MenuItems(4).Visible = True
                '    Me.MdiParent.Menu.MenuItems(5).Visible = True
                'Else
                '    Me.MdiParent.Menu.MenuItems(3).Visible = True
 
                '    Me.MdiParent.Menu.MenuItems(4).Visible = True
                'End If
                Me.MdiParent.Menu.MenuItems(0).MenuItems(0).Text = "Déconnexion"
                Me.MdiParent.Text = (((Me.MdiParent.Text & " ------- Bienvenue ") + rs.GetString(5) & " ") + rs.GetString(3) & " ") + rs.GetString(4) & " ---------"
                Me.Close()
                con.Close()
            Else
                MessageBox.Show(Me, "Login ou Mot de passe invalide", "", MessageBoxButtons.OK, MessageBoxIcon.[Error])
            End If
mais il me gére une erreur de type
la réference d'objet n'est pas définit a un instance d'un objet
et merci d'avance pour vous reponse