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

    Declarar variavel global

    Compartilhe

    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

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

    Declarar variavel global

    Mensagem  Carlos Rugno em Seg 28 Jul 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][Você precisa estar registrado e conectado para ver esta imagem.][/url]


    • [url=post?p=146080&mode=editpost][Você precisa estar registrado e conectado para ver esta imagem.][/url]
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

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

    Re: Declarar variavel global

    Mensagem  Cláudio Machado em Ter 29 Jul 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  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Declarar variavel global

    Mensagem  Carlos Rugno em Ter 29 Jul 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


      Data/hora atual: Qui 14 Dez 2017, 08:05