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 Qui 23 Nov 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 : 3389
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qui 23 Nov 2017, 21:28

    Boa noite

    Teste assim ....


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


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

      Data/hora atual: Dom 27 Maio 2018, 09:11