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


3 participantes

    [Resolvido]Preenchimento automático de um campo

    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Preenchimento automático de um campo Empty [Resolvido]Preenchimento automático de um campo

    Mensagem  Mcahet 5/9/2024, 19:56

    boa tarde !

    tenho uma tabela (TbAcessos) onde cadastro o usuario

    tenho uma tabela (Tabela GERAL) onde tenho também o campo usuario

    Fiz um relacionamento da TbAcessos  de 1 para muitos para a tabela GERAL.

    Gostaria de quando fosse incluir um registro no formulário, aparecesse o nome do usuário que fez o tal registro.


    obrigado por qq ajuda .
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de um campo Empty Re: [Resolvido]Preenchimento automático de um campo

    Mensagem  crysostomo 6/9/2024, 23:34

    Boa noite Mcahet.
    Para fazer isso é só incluir o nome de quem está logado no evento salvar.
    Ex.:
    Código:
    Dim db As DAO.Database
    Dim sSQL As String
      
    Set db = CurrentDb
            sSQL = "INSERT INTO TabelaGERAL"  ***** os campos não podem ficar com espaços*****
            sSQL = sSQL & "("
            sSQL = sSQL & "  numeroDoCadastro
            sSQL = sSQL & " ,item
     sSQL = sSQL & " ,usuarioLog
     sSQL = sSQL & " ,dataHOra
         ....
            sSQL = sSQL & ")"
            'VALORES -------------------------------------
            sSQL = sSQL & " VALUES"
            sSQL = sSQL & "("
            sSQL = sSQL & "  '" & Trim(Me.txtNumroDoCadastro) & "'"
            sSQL = sSQL & " ,'" & Trim(me.txtItem) & "'"
            sSQL = sSQL & " ,'" & Trim(Me.txtUsuarioLog) & "'"
     ssql = ssqL & ", now
            sSQL = sSQL & ")"
            db.Execute sSQL
    End Sub

    Aqui ele vai registrar o número do cadastro feito, ou você pode jogar o nome do usuário direto na tabela onde estão os cadastros


    .................................................................................
    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.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016

    [Resolvido]Preenchimento automático de um campo Empty Re: [Resolvido]Preenchimento automático de um campo

    Mensagem  Alexandre Fim 7/9/2024, 01:18

    Boa noite,

    O sistema possui login para o usuário acessar?

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preenchimento automático de um campo Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Preenchimento automático de um campo Empty Preenchimento automático de um campo

    Mensagem  Mcahet 9/9/2024, 11:11

    Alexandre !!!

    Possui sim !!


    Ex:

    Formulário Login

    usuário : campo usuario - não associado (Nome =TxtUsuario) aba todas 
    senha :Idem TxtSenha

    Gostaria que esse usuário ao logar-se , aparecesse o nome dele, ao incluir os dados em outro formulário,
    Formulário de Inclusão.

    aguardo !


    Última edição por Mcahet em 9/9/2024, 12:20, editado 1 vez(es)
    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Preenchimento automático de um campo Empty Preenchimento automático de um campo

    Mensagem  Mcahet 9/9/2024, 12:09

    Maximo VIP

    crysostomo

    Estou tentando entender !!!!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de um campo Empty Re: [Resolvido]Preenchimento automático de um campo

    Mensagem  crysostomo 9/9/2024, 12:25

    Deixe o arquivo aqui.


    .................................................................................
    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.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016

    [Resolvido]Preenchimento automático de um campo Empty Re: [Resolvido]Preenchimento automático de um campo

    Mensagem  Alexandre Fim 9/9/2024, 12:57

    Bom dia Mcahet,

    Siga os seguintes passos:

    1 -  Em um modulo qualquer, crie a variavel assim:

    Global vgLogin As String

    2 - No formulário de login, no código do botão de confirmação ("OK" ou qq outro nome), no procedimento em que ele colocou usuario e login corretamente, coloque a seguinte linha:

    vgLogin = Trim([NOME_DO_LOGIN_NO_FORMULARIO].Value)

    Desta forma, a variavel global obtém o valor do campo e você pode utilizá-la em todo o sistema.

    É isso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Preenchimento automático de um campo Setinf11
    Sistemas e Tecnologia Ltda

    crysostomo gosta desta mensagem

    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Preenchimento automático de um campo Empty Preenchimento automático de um campo

    Mensagem  Mcahet 27/9/2024, 16:31

    agradeço muito !!!!
    avatar
    Mcahet
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 25/07/2023

    [Resolvido]Preenchimento automático de um campo Empty Preenchimento automático de um campo

    Mensagem  Mcahet 27/9/2024, 16:32

    agradeço a lição !
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Preenchimento automático de um campo Empty Re: [Resolvido]Preenchimento automático de um campo

    Mensagem  crysostomo 27/9/2024, 22:20

    Agradecemos.
    Sucesso


    .................................................................................
    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]Preenchimento automático de um campo Empty Re: [Resolvido]Preenchimento automático de um campo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 08:45