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
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