SQL & VB

Imagen 1

Este ejemplo permite combinar instrucciones Visual Basic, con instrucciones SQL para este ejercicio de Acces haces clic con el boto derecho del mouse sobre el Boton Ingresar tal como se muestra en la siguiente imagen.

Imagen 2

Como se muestra en la imagen 2,  clic en propiedades.

Imagen 3

En la hoja de propiedades sobre la pestaña Eventos, y al hacer clic en el botón más a la derecha marcado con tres (3) putos… como se evidencia en le Imagen 3
Colocamos el código Visual Básic siguiente.

Private Sub cmbIngresar_Click()
Dim UserLevel As Integer
If IsNull(Me.txtNombre) Then
MsgBox "Por favor, escriba su Usuario", vbInformation, "Usuario requerido"
Me.txtNombre.SetFocus
ElseIf IsNull(Me.TxtContraseña) Then
MsgBox "Por favor, ingrese correctamente su Contraseña", vbInformation, "Contraseña requerida"
Me.TxtContraseña.SetFocus
Else
If (IsNull(DLookup("[usuario]", "Tbusuario", "[usuario] ='" & Me.txtNombre.Value & _
"' And contraseña = '" & Me.TxtContraseña.Value & "'"))) Then
MsgBox "Usuario y/o Contraseña incorrectos"
Else
UserLevel = DLookup("Nivel_Seguridad", "Tbusuario", "usuario = '" & Me.txtNombre.Value & "'")
If UserLevel = 1 Then
DoCmd.Close
MsgBox "Bienvenido!!!", , "Administrador"
DoCmd.OpenForm "departamento"
End If
If UserLevel = 2 Then
DoCmd.Close
MsgBox "Bienvenido!!!", , "Usuario"
DoCmd.OpenForm "FPC"
End If
End If
End If End Sub


El código con color resaltado en Vede te permite ver las instrucciones
SQL que permiten el control de acceso a la base de datos .