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

    [Resolvido]Código não grava na tabela

    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 23/03/2010

    [Resolvido]Código não grava na tabela Empty [Resolvido]Código não grava na tabela

    Mensagem  Finformática 4/8/2023, 14:02

    Grandes Mestres, bom dia.

    Abrindo novo tópico baseado no anterior dado como resolvido. Acesso um DB com Frm_Login com usuário e senha. Passando por aqui normal abre o formulário principal Z_Menu_Principal. Quero gravar na tabela TbAcessos os campos Usuario, DataEntrada, HoraEntrada ao abrir o formulário Z_Menu_Principal e DataSaida e HoraSaida ao fechar o formulário. Estou com dificuldade de guardar o conteúdo do campo Usuario do formulário Frm_Login já que foi fechado para abrir o formulário principal. Estou usando o código abaixo, tanto no evento ao abrir quanto em Ao carregar e não grava nada. Onde está o erro?

    Dim db As DAO.Database
    Dim strSQL As String

    ' Obtém o nome de usuário do login
    Dim usuario As String
    'usuario = Forms.Frm_Login.txtUsuario --------- Aqui seria o campo usuário do Frm_Login a ser gravado na TbAceesos
    usuario = "Pelé" ----------- Está assim para testar se grava e não grava.

    ' Grava a data e hora de entrada
    Dim dataEntradaX As Date
    Dim horaEntradaX As Date
    dataEntradaX = Date
    horaEntradaX = Time

    MsgBox "Posso gravar?" ---------- Chegar até aqui sem problemas e não grava

    ' Insere os dados na tabela "TbAcessos"
    Set db = CurrentDb()
    strSQL = "INSERT INTO TbAcessos (Usuário, DataEntrada, HoraEntrada) VALUES ('" & usuario & "', #" & dataEntradaX & "#, #" & horaEntradaX & "#);"
    'db.Execute strSQL, dbFailOnError ---------- Com esse OnError não reconhece isso.
    db.Execute strSQL

    Onde foi que errei para pelo menos gravar.

    Muito grato a todos

    Forte abraço



    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 23/03/2010

    [Resolvido]Código não grava na tabela Empty Re: [Resolvido]Código não grava na tabela

    Mensagem  Finformática 4/8/2023, 22:06

    UP
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 23/03/2010

    [Resolvido]Código não grava na tabela Empty Re: [Resolvido]Código não grava na tabela

    Mensagem  Finformática 4/8/2023, 23:26

    Boa noite!

    Alguém pode me ajudar?

    Muito obrigado
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Código não grava na tabela Empty Re: [Resolvido]Código não grava na tabela

    Mensagem  crysostomo 5/8/2023, 00:52

    Em anexo.
    Sucesso Basketball
    Anexos
    [Resolvido]Código não grava na tabela AttachmentLogin com log.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 17 vez(es)


    .................................................................................
    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.
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 23/03/2010

    [Resolvido]Código não grava na tabela Empty Re: [Resolvido]Código não grava na tabela

    Mensagem  Finformática 5/8/2023, 15:11

    Grande Crysostomo

    Tudo agora está perfeito. Muito obrigado.

    Forte abraço
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Código não grava na tabela Empty Re: [Resolvido]Código não grava na tabela

    Mensagem  crysostomo 5/8/2023, 15:15

    Sucesso Basketball


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

    Conteúdo patrocinado


    [Resolvido]Código não grava na tabela Empty Re: [Resolvido]Código não grava na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/4/2024, 11:34