MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Declaração de Variaveis ( um campo da tabela )

    avatar
    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 20/06/2013

    Declaração de Variaveis ( um campo da tabela ) Empty Declaração de Variaveis ( um campo da tabela )

    Mensagem  Carlos Rugno 11/7/2014, 14:39

    Tabela: Senha

    Campos: Logon
           Nivel
           Senha

    Formulario Logon

    [Procedimento do evento]

    Private Sub Comando9_Click()
    Dim t As Recordset, d As Database
    Set d = CurrentDb
    Set t = d.OpenRecordset("SENHA", dbOpenDynaset)
    While t.EOF = False
    If LOGON = t!LOGON And SENHA = t!SENHA Then
       MsgBox "SENHA CONFIRMADA!  " & LOGON, vbInformation, "AVISO !"
    DoCmd.OpenForm "A - MENU"
    Me.Visible = False
    Exit Sub
    Else
    t.MoveNext
    End If
    Wend
    MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
    End Sub


    Eu acrescentei o campo Nivel na tabela: senha

    Como declarar o nivel do logon para ser obtido no formulario (A - MENU)



    Formulario ( A - MENU )

    outra : nome = Usuario_Atual

    valor padrão =[Formulários]![LOGON]![LOGON]

    Eu Obtenho o Nome do Usuario


    Porem necessito obter o Nivel o usuario.

    Como fazer ?



    ******************

    Hoje estou usando este comando funciona...

    Private Sub Comando328_Click()
    On Error GoTo Err_Comando328_Click

    Dim stDocName As String

    If [Usuario_Atual] = "XX" Then
    stDocName = "Rel_1"
    DoCmd.OpenReport stDocName, acPreview

    Else
    MsgBox "Usuario não Autorizado! ", vbInformation, "AVISO !"
    Exit_Comando328_Click:
    Exit Sub
    Err_Comando328_Click:
    MsgBox Err.Description
    Resume Exit_Comando328_Click
    End If
    End Sub


    Gostaria de usar com o comando abaixo e não funciona ..
    Pois não estou conseguindo captar o nivel do usuario na função abaixo:
    Poderiam me ajudar

    Obrigado


    Private Sub Comando328_Click()
    On Error GoTo Err_Comando328_Click

    Dim stDocName As String

    If nivel = "I" Then
    stDocName = "Rel_1"
    DoCmd.OpenReport stDocName, acPreview

    Else
    MsgBox "Usuario não Autorizado! ", vbInformation, "AVISO !"
    Exit_Comando328_Click:
    Exit Sub
    Err_Comando328_Click:
    MsgBox Err.Description
    Resume Exit_Comando328_Click
    End If
    End Sub



    Última edição por Carlos Rugno em 15/7/2014, 14:55, editado 1 vez(es)
    daniloreiis
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 14/02/2011

    Declaração de Variaveis ( um campo da tabela ) Empty Declaração de Variaveis ( um campo da tabela )

    Mensagem  daniloreiis 11/7/2014, 18:23

    Boa tarde!

    tente usar a função nz(Dlookup("seunivel","suatabela","loginuser=form_logon"),0)

    este código retornar o nível do seu usuário.

    se não conseguir disponibilizar o projeto, para melhor ajuda-lo

    abraços


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

      Data/hora atual: 4/3/2021, 02:47