MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Carlos Rugno em Sex 11 Jul 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 Ter 15 Jul 2014, 14:55, editado 1 vez(es)
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  daniloreiis em Sex 11 Jul 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: Dom 22 Out 2017, 21:50