[es-users] Help with LibreOffice Base

Hello
I ask for your help with the following:
I have a form called "Menu" and within a button called "Root" 
(associated with a macro requesting password) Which brings me to another 
form called "MenuRoot". Being new I could make it work. I request your 
help to successfully complete the code and to open the second form once 
the correct password is entered.


The code is as follows:

Sub solicitaPassword(Event As Object)
 Dim Form As Object
 Dim Pass
 Dim Entrada
 Form=Event.Source.Model.Parent
 Pass="comprasaux" ' escribir entre comillas la cadena de texto que 
servira de password
 Entrada="" & InputBox("Introduzca la Contraseña :","AVISO DE 
SEGURIDAD","") & "" ' aquí modificamos el inputbox y recogemos los datos 
del usuario

 If Pass=Entrada Then ' comparamos las dos variables
 '________________ ' aquí ejecutariomos las acciones si ambas variables 
son iguales
 Else
 MsgBox("Contraseña incorrecta!!", "","AVISO DE SEGURIDAD") ' aqui 
mostramos un MsgBox en caso de que no sean iguales las variables
 End if
End Sub

Any help or if there is a better way thank you.

--
migwer
Skype: migwer1


--
Para instrucciones sobre darse de baja envíe un mensaje a: users+unsubscribe@es.libreoffice.org
¿Problemas? http://es.libreoffice.org/asistencia/listas-de-correo/como-darse-de-baja/
Guías para envío + más: http://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: http://listarchives.libreoffice.org/es/users/
Todos los mensajes enviados a esta lista serán archivados públicamente y no pueden ser eliminados