VISUAL BASIC

FORMULARIO EN ACCESS

-Primero crea un documento en blanco en el programa de ACCESS.

-Luego debes hacer las tablas que desees, en este caso mis tablas son: (Libro, Clientes, Pedido).

    

-Luego llenas las tablas  con los datos en sus respectivos campos.

-Luego te vas a la tabla en la que deseas crear el formulario, en mi caso es la de pedido.

-Luego puedes ir modificando tu formulario de la manera que te sea más conveniente.

-Luego puedes ir poniendo tu formulario de la manera que más te parezca. También puedes agregar un "Botón" el cual te ayudará a buscar los datos que deseas en la tabla respectiva.

-Por último puedes ejecutar tu botón y buscar los datos que deseas en tu tabla de datos.

PRIVACIDAD EN MIS FORMULARIOS DE VISUAL BASIC

#1 Abrir excel.

#2 Activar el botón del programador.

#3 Abrir Visual Basic.

#4 Crea un UserForm, con los datos que deseas y agregando los botones de "Login" y "Cancelar"

Luego nos vamos al boton login y lo configuramos con los siguientes codigos.

Private Sub login_Click()
If usuario.Text = "Lopez" And contraseña.Text = "12345" Then
MsgBox "bienvenida señorita Lopez"
Application.Visible = True
Unload UserForm1
Else
MsgBox "nombre o contraseña incorrecta", vbCritical, "alerta"

End If
End Sub

#5 Dentro del botón login podrás empezar a darle instrucciones a tu formulario, tales como darle el nombre del "usuario" y su "contraseña" para que pueda ir accediendo a otro UserForm entre otros, también se podrá darle estilo a los mensajes que saldrán  a la hora de ingresar datos "correctos e incorrectos"

#6 También podrás dar instrucciones como las de "Click" "Dblclick" "Mousedown" y así ir perfeccionando tu formulario.

#7 Y tu resultado después de haber dado las modificaciones correspondientes será esté.

#8 Y también ya podrás ingresar al siguiente formulario.

SEGURIDAD DE FORMULARIOS EN VISUAL BASIC

#1 Abrir excel.

#2 Activar el botón del programador.

#3 Abrir Visual Basic.

Crea los formularios en UserForm con los datos que se te harán necesarios.

se crea en excel una base de datos.

Private Sub CommandButton1_Click()
menu.Hide
nuevousuario.Show
End Sub

EL BOTON DE "CREAR"

Private Sub crear_Click()
If nusuario.Value = "" Or ncontraseña.Value = "" Then
MsgBox "Por favor debe llenar todos los Datos", vbCritical, "alerta"
Else
Hoja1.Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Hoja1.Range("a3").Value = nusuario.Value
    Hoja1.Range("b3").Value = ncontraseña.Value
    MsgBox "Su cuenta de Usuario a sido Creada Satisfactoriamente", vbInformation, "felicidades"
    MsgBox "Desea crear una cuenta mas", vbYesNo
    nusuario.Text = ""
    ncontraseña.Text = ""
    cncontraseña.Text = ""
    End If
 End Sub
EL BOTON "REGRESAR A MENU" 
tiene los siguientes codigos:

Private Sub regresar_Click()
nuevousuario.Hide
menu.Show
End Sub