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

    [Resolvido]Gravar usuário em tabela.

    Compartilhe
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Gravar usuário em tabela.

    Mensagem  XPTOS em Sex 02 Jan 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?
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Gravar usuário em tabela.

    Mensagem  daniloreiis em Sex 02 Jan 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
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Sex 02 Jan 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
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Gravar usuário em tabela.

    Mensagem  daniloreiis em Sex 02 Jan 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
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Sab 03 Jan 2015, 09:57

    Olá,
    Segue lin.

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Seg 05 Jan 2015, 19:35

    Up.
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Gravar usuário em tabela

    Mensagem  daniloreiis em Seg 05 Jan 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
    Banco de Dados1-DANILO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (128 Kb) Baixado 31 vez(es)


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

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

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Seg 05 Jan 2015, 20:47

    daniloreiis, obrigado por sua ajuda,

    O código funcionou perfeitamente.

      Data/hora atual: Seg 25 Set 2017, 17:55