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 participantes

    Apresentar campo após confirmação de dados

    avatar
    jldacosta
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/08/2013

    Apresentar campo após confirmação de dados Empty Apresentar campo após confirmação de dados

    Mensagem  jldacosta 23/11/2017, 20:13

    Senhores, Boa tarde!

    Tenho uma rotina de login e gostaria de saudar o usuário quando login e senha estiverem corretos.

    A rotina de login já está funcionando, porém pela falta de pratica não consigo mostrar o nome do usuário.

    Alguem pode me ajudar por favor? - Segue a rotina para analise.

    Private Sub btnlogin_Click()
    If txtusuario.Value = txtusuariotab.Value And txtsenha.Value = txtsenhatab.Value And Nz(DCount("*", "[EndereçoMAC]")) = 0 Then

    "Aqui eu queria mostrar o nome do usuário (nomeusuario) da tabela (tblusuario) e a saudação"

    'Call Sleep(2000)
    DoCmd.OpenForm "000 - Orçamento Pessoal"
    Me.txtusuario.Value = ""
    Me.txtsenha.Value = " "
    Me.txtusuario.SetFocus
    DoCmd.Close acForm, "000 - Identificação Primária", acSaveYes
    Else
    MsgBox ("Usuario, Senha ou numero MAC Inválido!")
    Me.txtusuario.Value = ""
    Me.txtsenha.Value = " "
    Me.txtusuario.SetFocus
    End If
    End Sub

    Private Sub txtempresa_AfterUpdate()
    Texto100 = txtempresa.Column(1)
    End Sub

    Private Sub txtusuario_AfterUpdate()
    txtusuariotab = txtusuario.Column(0)
    txtsenhatab = txtusuario.Column(1)
    End Sub
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4730
    Registrado : 06/11/2009

    Apresentar campo após confirmação de dados Empty Re: Apresentar campo após confirmação de dados

    Mensagem  Assis 23/11/2017, 21:28

    Boa noite

    Teste assim ....


    MsgBox "Bem Vindo " & txtusuario & " ao trabalho!", vbExclamation, "Olá"


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 3/12/2022, 02:47