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

    Apresentar campo após confirmação de dados

    Compartilhe

    jldacosta
    Novato
    Novato

    Respeito às Regras 100%

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

    Apresentar campo após confirmação de dados

    Mensagem  jldacosta em 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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 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: 17/8/2018, 01:09