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]Gravar usuário em tabela.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Gravar usuário em tabela. Empty [Resolvido]Gravar usuário em tabela.

    Mensagem  XPTOS 2/1/2015, 11:50

    Prezados,

    Gostaria de gravar usuário e data em um sistema Access 2007 que possui uma tabela chamada tblCedocPront com dois campos:

    txtUser

    txtData

    Tenho o formulário com dois campos não acoplados com os seguintes nomes:

    txtUser => não acoplado

    txtData=>o rigem =Data()

    Minha dúvida é a seguinte, sempre que um usuário inserir algum registros eu gostaria de salvar na tblCedocPront o usuário logado e a data.

    PS: Meu sistema possui tabela de cadastro de usuários.

    Alguém me da uma dica?
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Gravar usuário em tabela. Empty Gravar usuário em tabela.

    Mensagem  daniloreiis 2/1/2015, 19:58

    Olá amigo faça o seguinte:

    Código:


    Dim DB As DAO.Database
    Dim rs As DAO.Recordset
    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("tblCedocPront")
    rs.AddNew
    rs("txtUser") = seuUsuario
    rs("txtData") = Date
    rs.Update



    coloque esse código quando no evento salvar dos seus formulários (Botões)  e toda vez que algum usuário salvar algum registro você grava na sua tabela.

    acho que é isso ai, boa sorte !


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Gravar usuário em tabela. Empty Re: [Resolvido]Gravar usuário em tabela.

    Mensagem  XPTOS 2/1/2015, 21:04

    Fiz o que sugeriu,

    O código realmente salva usuário e data na tabela, porém, salva na linha abaixo ao registro que acrescento na tabela.

    Exemplo: 1 Meu registro salvo
    2 Usuário e Data


    Porque será?

    O código ficou assim.

    Dim DB As DAO.Database
    Dim rs As DAO.Recordset
    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("tblCedocPront")
    rs.AddNew
    rs("txtUser") = txtUser
    rs("txtData") = Date
    rs.Update
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Gravar usuário em tabela. Empty Gravar usuário em tabela.

    Mensagem  daniloreiis 2/1/2015, 21:08

    poderia disponibilizar o projeto para melhor ajuda-lo


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Gravar usuário em tabela. Empty Re: [Resolvido]Gravar usuário em tabela.

    Mensagem  XPTOS 3/1/2015, 09:57

    Olá,
    Segue lin.

    https://www.dropbox.com/s/q307451lkpik00u/Banco%20de%20Dados1.accdb?dl=0
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Gravar usuário em tabela. Empty Re: [Resolvido]Gravar usuário em tabela.

    Mensagem  XPTOS 5/1/2015, 19:35

    Up.
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    [Resolvido]Gravar usuário em tabela. Empty Gravar usuário em tabela

    Mensagem  daniloreiis 5/1/2015, 19:55

    Olá amigo!

    coloquei o seguinte código
    Código:

    'aqui vamos fazer um update na tabela adicionando o usuario e data
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("SELECT * FROM tblCedocPront where ID =" & Me.ID, dbOpenDynaset)
    On Error GoTo ERRO
    Do
     rst.Edit
     rst![txtUser] = txtUser
     rst![txtData] = Date
     rst.Update
     rst.MoveNext
    Loop Until rst.EOF
    ERRO:


    'fim aqui vamos fazer um update na tabela adicionando o usuario e data

    :
    Anexos
    [Resolvido]Gravar usuário em tabela. AttachmentBanco de Dados1-DANILO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (128 Kb) Baixado 44 vez(es)


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Gravar usuário em tabela. Empty Re: [Resolvido]Gravar usuário em tabela.

    Mensagem  XPTOS 5/1/2015, 20:47

    daniloreiis, obrigado por sua ajuda,

    O código funcionou perfeitamente.

    Conteúdo patrocinado


    [Resolvido]Gravar usuário em tabela. Empty Re: [Resolvido]Gravar usuário em tabela.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:02