Estoy haciendo un sistema de banco, en el cual se escoge un servicio que después de seleccionado envía al formulario correspondiente (al servicio). En el formulario del servicio hay variados campos para rellenar, por ejemplo: Nombre, Domicilio, Ciudad, etc.
Lo que quiero saber es si se puede ingresar los datos, después hacer un boton de "guardar" (que después lanzará un msgbox con la confirmación) y que después los haga aparecer en un nuevo formulario o algún otro recurso pero que muestre "Nombre:xxxxxxx" "Domicilio:xxxxxxxxxxx", etc. No estoy usando base de datos.
Por el momento, lo que llevo del programa, además del acceso (user, pass) y del menú principal es lo siguiente:
Código:
Private Sub Command1_Click()
II_Menú_Servicios.Show
End Sub
Private Sub Command2_Click()
If (List1.List(List1.ListIndex) = "Avalúos") Then
III_P_AVALUOS.Show
End If
If (List1.List(List1.ListIndex) = "Banca por Celular") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Crédito") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Crédito Hipotecario") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Inversiones") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Cajero Automático") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Tarjeta de Crédito") Then
IV_EMPRESAS.Show
End If
If (List1.List(List1.ListIndex) = "Banca por Internet") Then
IV_EMPRESAS.Show
End If
End Sub
Aquí por ejemplo al seleccionar de la lista el elemento "Avalúos" mandará al formulario "Avaluos" que es donde mostrará los campos para ser ingresados los datos antes mencionados.
Saludos
___________
Acceso:
Private Sub Command1_Click()
If Text1.Text = "Brad" And Text2.Text = "Maddox" Then
MsgBox ("BIENVENIDO AL SISTEMA")
II_Menú_Servicios.Show
Else: MsgBox ("NOMBRE DE USUARIO O CONTRASEÑA INCORRECTOS")
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command3_Click()
If MsgBox("¿Está seguro que quiere salir del sistema?", vbExclamation + vbYesNo, "Advertencia") = vbYes Then
End
End If
End Sub