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

    [Resolvido]Formulario ( com variaveis )

    Compartilhe

    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Formulario ( com variaveis )

    Mensagem  Carlos Rugno em Qua 23 Jul 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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Formulario ( com variaveis )

    Mensagem  JPaulo em Qua 23 Jul 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Formulario ( com variaveis )

    Mensagem  Carlos Rugno em Qua 23 Jul 2014, 19:17

    jpaulo

    Agora funcionou

    Muito obrigado pela diga
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Formulario ( com variaveis )

    Mensagem  JPaulo em Qua 23 Jul 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Carlos Rugno
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Formulario ( com variaveis )

    Mensagem  Carlos Rugno em Sex 25 Jul 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
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Formulario ( com variaveis )

    Mensagem  JPaulo em Qua 30 Jul 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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

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