MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

+2
daniloreiis
Carlos Rugno
6 participantes

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

    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty [Resolvido]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 : Respeito às Regras 100%

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

    [Resolvido]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
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty [Resolvido]Formulario ( com variaveis )

    Mensagem  Carlos Rugno 23/7/2014, 14:05

    Como faço para pegar o valor da variavel ( nivel ) no formulario ( A - MENU )


    o PROCEDIMENTO ESTA NO FORMS LOGON  ---  PROXIMO FORMS (A - MENU )


    Private Sub Confirmar_Click()
    Dim T As Recordset, d As Database
    Set d = CurrentDb
    Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
    Dim Nivel
    While T.EOF = False
    If LOGON = T!LOGON And SENHA = T!SENHA Then
    Nivel = T!Nivel
    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



    senhores mestres no acess

    Alguem poderia me ajudar...


    se anexo o projeto
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  JPaulo 23/7/2014, 17:39

    Faça o teste por favor;

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new Instruções SQL como utilizar...
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  Carlos Rugno 23/7/2014, 19:17

    jpaulo

    Agora funcionou

    Muito obrigado pela diga
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  JPaulo 23/7/2014, 21:18

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new Instruções SQL como utilizar...
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  Carlos Rugno 25/7/2014, 20:08

    JPAULO

    Descupe estar perguntando novamente...

    o comando abaixo esta funcionado perfeitamente, o forms logon ... chama o forms ( A- MENU ) a variavel nivel é alimentada..

    Forms![A - MENU].Campo = "'" & Nivel & "'"


    Porem a casos que o forms ( A - MENU )  e fechado e ao reabri-lo a variavel esta vazio...


    Como resolver este problema...
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Formulario ( com variaveis )

    Mensagem  Carlos Rugno 25/7/2014, 20:49

    Descupe estar perguntando novamente...

    o comando abaixo esta funcionado perfeitamente, o forms logon ... chama o forms ( A- MENU ) a variavel nivel é alimentada..

    Forms![A - MENU].Campo = "'" & Nivel & "'"


    Porem a casos que o forms ( A - MENU )  e fechado e ao reabri-lo a variavel esta vazio...


    Como resolver este problema...


    segue script abaixo:

    ***********

    Private Sub Confirmar_Click()
    Dim T As Recordset, d As Database
    Set d = CurrentDb
    Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
    Dim Nivel
    While T.EOF = False
    If LOGON = T!LOGON And SENHA = T!SENHA Then
    Nivel = T!Nivel
    MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
    DoCmd.OpenForm "A - MENU"
    Forms![A - MENU].Campo = "'" & Nivel & "'"
    Me.Visible = False
    Exit Sub
    Else
    T.MoveNext
    End If
    Wend
    MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
    End Sub
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3782
    Registrado : 04/04/2010

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  Avelino Sampaio 28/7/2014, 11:24

    Olá!

    Para não perder o valor da variável "nível" , transfira para um módulo global

    Exclua do seu evento a linha:

    Dim Nivel

    E crie em um módulo global a linha:

    Public Nivel  

    Ou aprenda a utlizar a coleção TempVars(), se seu Access for uma das seguintes versões: 2007, 2010 ou 2013

    http://www.usandoaccess.com.br/tutoriais/tuto31.asp?id=1#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  Carlos Rugno 28/7/2014, 13:15

    Desculpe fiz conforme abaixo e não funcionou...

    Option Compare Database
     

    'variável de escopo público
    Public nivelUsuario As Long
     

    Public Function Nivel(Optional nivelUsuario As Long = 0) As Long
    If Nivel = 0 Then

        'função recebe o valor da variável nivel
        Nivel = nivelUsuario
    Else

        'Variável recebe valor do argumento Nivel
        Nivel = nivelUsuario
        End If
    End Function

    ***

    como poderia fazer para funcionar?

    Desabilitei a funçao dim Nivel Conforme solicitado..

    Private Sub Confirmar_Click()
    Dim T As Recordset, d As Database
    Set d = CurrentDb
    Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
    'Dim Nivel
    While T.EOF = False
    If LOGON = T!LOGON And SENHA = T!SENHA Then
    Nivel = T!Nivel
    MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
    DoCmd.OpenForm "A - MENU"
    Forms![A - MENU].Nivel = "" & Nivel & ""
    Me.Visible = False
    Exit Sub
    Else
    T.MoveNext
    End If
    Wend
    MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
    End Sub
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Declarar variavel global

    Mensagem  Carlos Rugno 28/7/2014, 21:50

    Alguem poderia me ajudar
    a declarar o comando abaixo:

    Como uma variavel global.. que o pegasse o valor em qualquer form....

    Forms![A - MENU].Campo = "'" & Nivel & "'"

    pois o comando acima eu tenho o valor somente no forms ( A - MENU ) ao fecha-lo o valor e perdido...

    Eu gostaria de declarar o valor até a saida do programa...



    *********

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

    • [url=t19776-formulario-com-variaveis#top][Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty[/url]


    • [url=post?p=146080&mode=editpost][Resolvido]Declaração de Variaveis ( um campo da tabela ) Edit10[/url]
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  Cláudio Machado 29/7/2014, 14:20

    Bom dia.
    Veja se ajuda:

    Código:

    'Crie um módulo chamado por ex. VariáveisGlobais e declare suas variáveis:
    Global StrVar

    Me!Forms![A - MENU].Campo = "'" & Nivel & "'" = StrVar

    'Não esqueça, antes de mover algum dado para uma variável, você deve zera-la.

    StrVar = Null



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Declaração de Variaveis ( um campo da tabela ) 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  Carlos Rugno 29/7/2014, 18:30

    Código:
    Criei a variavel conforme instrução, porem esta ocorrendo erro na lima abaixo:

    Me!Forms![A - MENU].Campo = "'" & Nivel & "'" = StrVar

    ( Não seria os = ( duas vezes no mesmo comando) ?

    Fico no aguardo

    Obrigado

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  JPaulo 30/7/2014, 14:56

    Ola;

    Só hoje vi a nova duvida neste tópico já resolvido.

    Você para poder guardar a variável, tem de a colocar num módulo e declarar como Publica.

    Exemplo:
    Num modulo novo:

    Public Nivel As String



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Folder_announce_new Instruções SQL como utilizar...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  DamascenoJr. 18/11/2021, 00:08

    Tópicos fundidos. Mesmo autor, mesma dúvida.

    Carlos, como ficou esta situação? A dica dos colegas ajudaram?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Declaração de Variaveis ( um campo da tabela ) Empty Re: [Resolvido]Declaração de Variaveis ( um campo da tabela )

    Mensagem  Carlos Rugno 18/11/2021, 12:13

    Sim já resolvido

    Obrigado

      Data/hora atual: 1/10/2022, 15:24