ACCESS II: Código del Módulo bas_Usuarios

Option Compare Database
Option Explicit

'---------------------------------------------------------------------
' Procedure : Get_Contraseña
' Author    : Witigo (Angel Campos Muñoz)
' Date      : 22/09/2014
' Purpose   : Obtiene la contraseña del usuario pasado como argumento.
'---------------------------------------------------------------------
'
Public Function Get_Contraseña(intUsuario As Integer) As String

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Dim strSQL As String

    strSQL = "SELECT dbo_Usuarios.Contraseña " & _
                "FROM dbo_Usuarios " & _
                "WHERE ID_Usuario = " & intUsuario & ";"

    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)

Dim strContraseña As String
   
    If rst.RecordCount <> 0 Then

        strContraseña = rst!Contraseña
   
    End If
   
    ' Devolvemos la contraseña
    Get_Contraseña = strContraseña
   
    ' Cerramos el recordset
    rst.Close
   
    ' Borramos los objetos
    Set rst = Nothing
    Set dbs = Nothing

End Function

'---------------------------------------------------------------------
' Procedure : Comprueba_Usuario
' Author    : Witigo (Angel Campos Muñoz)
' Date      : 22/09/2014
' Purpose   : Controla si se ha seleccionado un usuario del combobox
'             cbo_Usuario
'---------------------------------------------------------------------
'
Private Function Comprueba_Usuario() As Boolean

    If IsNull(Me.cbo_Usuario.Value) = True Then

        ' Realizamos mensaje sonoro
        Beep

        ' Mostramos mensaje en la etiqueta
        Call MensajeEtiqueta("Debe seleccionar un usuario.")

        ' Centramos el foco en el textbox
        Me.cbo_Usuario.SetFocus

        ' Devolvemos FALSE por que no hay ningún usuario
        ' seleccinado en el combobox...
        Comprueba_Usuario = False

    Else

        ' Devolvemos TRUE por que SI hay un usuario
        ' seleccionado en el combobox...
        Comprueba_Usuario = True

    End If

End Function


'---------------------------------------------------------------------
' Procedure : Comprueba_Contraseña
' Author    : Witigo (Angel Campos Muñoz)
' Date      : 22/09/2014
' Purpose   : Controla si se ha introducido una contraseña en el
'             textbox txt_Contraseña
'---------------------------------------------------------------------
'
Private Function Comprueba_Contraseña() As Boolean

Dim strContraseña As String

    strContraseña = Nz(Me.txt_Contraseña, "")

    If strContraseña = "" Then

        ' Realizamos mensaje sonoro
        Beep

        ' Mostramos mensaje en la etiqueta
        Call MensajeEtiqueta("Introduzca una contraseña.")

        ' Centramos el foco en el textbox de la contraseña
        Me.txt_Contraseña.SetFocus

        ' Devolvemos FALSE, por que no se ha introducido ninguna
        ' contraseña en el textbox...
        Comprueba_Contraseña = False

    Else

        ' Devolvemos TRUE, por que hay una contraseña introducida,
        ' sea erronea o no...
        Comprueba_Contraseña = True

    End If
   
End Function