Boa tarde Marcelo me ajuda essa e mais uma explicação que entendi essa logica, eu copiei ele para outro formulário que é esse mas está nos mesmo campos!
3 participantes
[Resolvido]pegar usuario logodo
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº12
Re: [Resolvido]pegar usuario logodo
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº13
Re: [Resolvido]pegar usuario logodo
Boa noite. eu so estou aguarrado nisso! Para fechar o sistema e lançar "
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
- Mensagem nº14
Re: [Resolvido]pegar usuario logodo
Meu amigo, tinha alguns códigos faltando...
A variável intIdAcesso não estava declarada, por isso não salvava...
Alterei de variável para um campo invisível de mesmo nome...
A variável intIdAcesso não estava declarada, por isso não salvava...
Alterei de variável para um campo invisível de mesmo nome...
- Anexos
- registar entradaSaida de User_New2.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (1.8 Mb) Baixado 31 vez(es)
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº15
Re: [Resolvido]pegar usuario logodo
Marcelo Boa tarde, mais tarde vou dar uma olhada e vou te pedir ajuda para explicar.
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº16
Re: [Resolvido]pegar usuario logodo
Bom dia marcelo, no seu arquivo esta tudo ok, passei para meu , para entender sobre o código , mas continua dando erro , com operador faltando !?
CurrentDb.Execute "UPDATE tbl_log_usuarios SET data_saiu=#" & Now & "# WHERE id_acesso=" & Me.intIdAcesso, dbFailOnError
DoCmd.Close
End Sub[/code]
Isso é problema de versão? Porque são os mesmos campos. Nem registra a entrada.
vou quebrando a cabeça aqui , porque do erro
CurrentDb.Execute "UPDATE tbl_log_usuarios SET data_saiu=#" & Now & "# WHERE id_acesso=" & Me.intIdAcesso, dbFailOnError
DoCmd.Close
End Sub[/code]
Isso é problema de versão? Porque são os mesmos campos. Nem registra a entrada.
vou quebrando a cabeça aqui , porque do erro
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº17
Re: [Resolvido]pegar usuario logodo
Eu estou mexendo em outras parte aqui,mas na tabela de registar os usuários ainda continua dando erro.
Mesmo se eu copiar tudo dar o mesmo erro.
Qual erro estou cometendo?
Caraca, incrível
Mesmo se eu copiar tudo dar o mesmo erro.
Qual erro estou cometendo?
Caraca, incrível
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
- Mensagem nº18
Re: [Resolvido]pegar usuario logodo
Boa noite, chegou a criar o campo intIdAcesso? Imagino que seja ele...
Lemba que falei que esse campo fica invisível...
Lemba que falei que esse campo fica invisível...
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº19
Re: [Resolvido]pegar usuario logodo
Não! eu mudei ele como você deixo, agora ele sempre da erro e manda outra mensagem " operador faltando"
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
- Mensagem nº20
Re: [Resolvido]pegar usuario logodo
poste aqui o banco que está dando o erro
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº21
Re: [Resolvido]pegar usuario logodo
cheguei a criar outro tipo de logica , pois fiquei sei entender essa
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
Marcelo David- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3947
Registrado : 21/04/2011
- Mensagem nº22
Re: [Resolvido]pegar usuario logodo
Você não copiou (ou alterou o que eu havia feito).
O código do botão OK do formulário de login,
na parte que abre o formulário principal o código não está do jeito]
que eu postei no exemplo anterior.
Veja p correto (e está no exemplo anterior, basta baixar):
If txtUsuario = Me.usuarioTab.Value And txtSenha = Me.senhaTab Then
DoCmd.OpenForm "frm_principal", , acNormal, , , , Me.txtUsuario '<= Esse linha é a correta, pois passo como argumento de abertura o nome do usuário txtUsuario
DoCmd.OpenForm "frm_principal", , acNormal '<= Cadê o argumento? O correto é o de cima. Pode apagar essa e deixar apenas a de cima
DoCmd.Close acForm, "frm_login"
Else
MsgBox "Campos Inválidos", vbInformation, "Arquivamento-Login"
End If
Observe que, assim como no exemplo anterior, você não passou o argumento de abertura do formulário.
E eu já havia inclusive comentado no código anterior também isso.
O código do botão OK do formulário de login,
na parte que abre o formulário principal o código não está do jeito]
que eu postei no exemplo anterior.
Veja p correto (e está no exemplo anterior, basta baixar):
If txtUsuario = Me.usuarioTab.Value And txtSenha = Me.senhaTab Then
DoCmd.OpenForm "frm_principal", , acNormal, , , , Me.txtUsuario '<= Esse linha é a correta, pois passo como argumento de abertura o nome do usuário txtUsuario
DoCmd.OpenForm "frm_principal", , acNormal '<= Cadê o argumento? O correto é o de cima. Pode apagar essa e deixar apenas a de cima
DoCmd.Close acForm, "frm_login"
Else
MsgBox "Campos Inválidos", vbInformation, "Arquivamento-Login"
End If
Observe que, assim como no exemplo anterior, você não passou o argumento de abertura do formulário.
E eu já havia inclusive comentado no código anterior também isso.
- Anexos
- entradaSaida de User_New3.zip
- Esqueci o anexo
- Você não tem permissão para fazer download dos arquivos anexados.
- (1.8 Mb) Baixado 42 vez(es)
.................................................................................
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Access e VBA - Formulário Desacoplado - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2741
Registrado : 23/01/2018
- Mensagem nº23
Re: [Resolvido]pegar usuario logodo
falta de atenção em mim que não falta depois de 5 hs programando ja não passa nenhuma logica na minha cabeça.
obg
obg
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
» [Resolvido]Comparar Usuário Logado x Usuário no formulário
» [Resolvido]Pegar nome de usuário na consulta via código
» Pegar numero da sessão de usuário (Session ID)
» [Resolvido]Exibir o Usuário Logado - não está modificando ao trocar de Usuario
» [Resolvido]Erro 3260 - Usuario bloqueando outro usuario
» [Resolvido]Pegar nome de usuário na consulta via código
» Pegar numero da sessão de usuário (Session ID)
» [Resolvido]Exibir o Usuário Logado - não está modificando ao trocar de Usuario
» [Resolvido]Erro 3260 - Usuario bloqueando outro usuario