Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //MENU PRINCIPAL (LA QUE SE LLAMA LUEGO DE INICIAR SESION)
- Private usuario_ing As String
- Private tipo_us As String
- Public Sub menu_1(tipo_usuario As String, usuario_ingresado As String)
- usuario_ing = usuario_ingresado
- tipo_us = tipo_usuario
- If tipo_us <> "Administrador" Then
- Menu_Principal.Title = "Menú del operador"
- form2.show
- Endif
- End
- //MENU LOGIN
- Public Sub Button_Aceptar()
- Menu_Principal.Menu_1(Clave2, Clave1)
- Me.close
- Endif
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement