Visual Basic - Como cierro esta ventana????

Life is soft - evento anual de software empresarial
   
Vista:

Como cierro esta ventana????

Publicado por Jacque (6 intervenciones) el 08/02/2008 07:39:18
Hola expertos mi problema es que estoy haciend una aplicacion donde te pide una contraseña para ingresar al sistema como no se mucho de visual y entre tanto buscarle obtuve este codigo...

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Introduce algún valor", vbCritical, "Sin información"
End If
If Text1.Text = "jacque" Then
MsgBox "Contraseña correcta", vbInformation, "Correcta"
Form1.Show
Else
MsgBox "Contraseña incorrecta", vbCritical, "Error"
End If
End Sub

mi problema es... como cierro esta ventana??? x q cuando le pongo la opcion correcta me sale el msgbox correcto pero se queda abierta :P y se supone q l darle aceptar se tiene que cerrar he ingresar al otro formulario me puden ayuda???

PD. si alguien me puede ayudar conectar a una base de datos de access 2002 se los agradeceria, yo lo hice con elcomando ADODC pero cuando me pedia la contraseña ya tenia todo escrito en el textbox :P :P osea no me pedia nada jajajaja me pueden ayudar a que mis textbox inicien en blanco????
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

RE:Como cierro esta ventana????

Publicado por FEDE (189 intervenciones) el 08/02/2008 15:50:52
LO QUE YO HAGO ES ESTO EN FORM DE CONTRASEÑA

Private Sub cmdaceptar_Click()
nro = rsempleado.RecordCount
If nro < 1 Then
MsgBox "No Existen Empleados,Debe Crear Uno", vbExclamation, "Aviso"
frmempleado.Show
GoTo sale:
End If
rsempleado.MoveFirst
rsempleado.Find "nombre='" & LCase(txtnom) & "'"
If Not rsempleado.EOF Then
If rsempleado.Fields(4) = LCase(txtpassword) Then
usuario = LCase(txtnom)
Unload Me
MDIForm1.Show
Else
Intentos = Intentos + 1
If Intentos < 3 Then
MsgBox "Contraseña Incorrecta", vbExclamation, "Aviso"
txtpassword = ""
txtpassword.SetFocus
Else
Unload Me 'ACA VALIDO SI ES CORRECTA EL PASS LO BAJO AL FORM
End If

End If
Else
MsgBox "Usuario no Autorizado", vbExclamation, "Aviso"
txtnom = ""
txtpassword = ""
txtnom.SetFocus
End If
sale:
End Sub

Y PARA CONECTARME YO LO HAGO X CODIGO NO USO ADODC SI LO KERES AVISA A SI TE LO PASO
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