Visual Basic - Formulario MDI se cierra

Life is soft - evento anual de software empresarial
   
Vista:

Formulario MDI se cierra

Publicado por Pedro44 (1 intervención) el 01/05/2017 23:32:08
Buenas noches,

Cuando ejecuto el programa, introduzco nombre usuario y contraseña en un formulario, si es correcto debe entrar en el formulario MDI y mantenerlo, pero no lo hace, se cierra. Esto es lo que he puesto;

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
36
37
Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
 
    Dim consultar As String
    Dim lista As Byte
    If txtNom_Usuario.Text = "" And txtContrasena.Text = "" Then
        MsgBox("Introducir nombre usuario y contraseña", vbInformation, "Error")
        txtNom_Usuario.Focus()
        Exit Sub
    End If
    If txtNom_Usuario.Text = "" Then
        MsgBox("Introduzca nombre usuario", vbInformation, "Error")
        txtNom_Usuario.Focus()
        Exit Sub
    Else
        If txtContrasena.Text = "" Then
            MsgBox("Introduzca contraseña", vbInformation, "Error")
            txtContrasena.Focus()
            Exit Sub
        End If
    End If
    consultar = "SELECT * FROM CONTRASENA WHERE NOM_USUARIO = '" & txtNom_Usuario.Text & "' and CONTRASENA ='" & txtContrasena.Text & "'"
    adaptador = New OleDbDataAdapter(consultar, conexion)
    registros = New DataSet
    adaptador.Fill(registros, "CONTRASENA")
    lista = registros.Tables("CONTRASENA").Rows.Count
    If lista <> 0 Then
        registros.Clear()
        conexion.Close()
        MenuPrincipal.Show()
        Me.Close()
    Else
        MsgBox("No existe nombre usuario o contraseña", vbCritical, "Atención")
        txtNom_Usuario.Text = ""
        txtContrasena.Text = ""
        txtNom_Usuario.Focus()
    End If
End Sub

Un saludo,

Pedro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Formulario MDI se cierra

Publicado por Christian Cmc1476@hotmail.com (698 intervenciones) el 06/05/2017 05:16:56
Usa el me.close antes del show del otro formulario.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar